セクション区切りで区切られたドキュメントがあります。 各セクションには、ゼロまたは1つの列区切りがあります。 私はそうのように、2列が含まれている各セクションの最初の列からテキストを抽出したい:VBAでWordの特定の列からテキストを選択
For Each oSec In ActiveDocument.Sections
iSectionStart = oSec.Range.Start
iSectionEnd = oSec.Range.End
i = oSec.PageSetup.TextColumns.Count
If (2 = i) Then
' Update the range to only contain the text in textcolumn 1
' then select and copy it to a destination string
End If
Next oSec
しかし、TextColumnsは、列の内容を返すためのメソッドを持っていないようですオブジェクト。
を見つけるまでのセクションで各単語を見ていました! – pnswdv
しかし、私があなたが記述するカラム・ブレークのあいまい性について心配する必要はありません。ドラフトモードで表示されている場合、ソースドキュメントの書式はLanguage1 + ColumnBreak + Language2 + SectionBreakになります。 – pnswdv