Word文書で目次を区別する

Question

プログラムで単語の文書を繰り返し処理するとき、段落が目次の一部（実際にはフィールドの一部を形成するもの）の一部であるかどうかを知ることができます。

私は、Word.Paragraphsコレクションを反復することで、ドキュメントから実体的なテキストの段落の最初のカップルを抽出するはずのVBプログラムを用意しています。私は結果に目次やその他のフィールドの表を含めることを望んでいません、私は人間がヘッダー、タイトルまたは通常のテキスト段落として認識するものが欲しいだけです。しかし、目次があれば、目次だけでなく目次にあるすべての行がWord.Paragraphsの別個の項目として表示されることが分かります。私はこれらを望んでいませんが、段落オブジェクトで、それらを区別して無視することができるプロパティを見つけることができませんでした（私は、他のフィールド型にも適用するためのソリューションが必要であると推測しています。私はまだ実際に遭遇していないが、同じ問題を引き起こす可能性があると推測している）

Answer 1

Wordオブジェクトモデルの制限のため、これを実現する最善の方法は、TOCフィールドコードを一時的に削除し、Word文書を繰り返し処理してから、TOCを再挿入することです。 VBAで、それは次のようになります。

Dim doc As Document 
Dim fld As Field 
Dim rng As Range 

Set doc = ActiveDocument 

For Each fld In doc.Fields 
    If fld.Type = wdFieldTOC Then 
     fld.Select 
     Selection.Collapse 
     Set rng = Selection.Range 'capture place to re-insert TOC later 
     fld.Cut 
    End If 
Next 

段落を抽出するためのコードを反復処理し、その後、

Selection.Range = rng 
Selection.Paste 

あなたは.NETでコーディングしている場合、これはかなり密接に変換する必要があります。また、これはWord 2003以前のバージョンでは機能するはずですが、Word 2007/2010の場合、TOCは作成方法に応じて、追加の検出とコードの書き込みが必要なコンテンツコントロールのような領域を持つことがあります。

Answer 2

ドキュメントの各セクションにカスタムスタイルを作成することができます。

Custom styles in Word 2003 (not sure which version of Word you're using)

次に、あなたの段落コレクションを反復処理するときには、.Styleプロパティを確認することができますし、安全に、それはあなたのTOCStyleに等しい場合、それを無視します。

私は同じテクニックがテーブルでもうまくいくと思います。

Answer 3

これは保証されていませんが、標準のWordスタイルがTOCに使用されている（可能性が高い）場合、誰も自分のスタイルに "TOC"が付いていない場合はOKです。これは粗末なアプローチですが、実行可能です。

Dim parCurrentParagraph As Paragraph 

If Left(parCurrentParagraph.Format.Style.NameLocal, 3) = "TOC" Then 

     ' Do something 

End If