Wordの目次を一発で更新できるマクロはないでしょうか？

Question

Wordの目次を更新するときに現在ではF9で、↓、改行、で手動で更新しているのですが

全選択し、目次の更新メニューをだし、目次を全て更新する（フィールドを全て更新する）

というすべての作業を一気におこなえるマクロはできないものでしょうか？

ネットでいくつか検索し、いくつか試してみたのですが、できませんでした。

ちなみに、資料を整理するために、張り付けながら、目次を新たにつくって、どんどん分類していく、という方法をしているため、ファイルを開けた時に毎回更新したいのではなく、

資料作成中にたびたび目次を更新する作業が発生するためマクロがほしいと思っています。

↓下記はうまく動きませんでした。

Sub フィールド更新()

Selection.WholeStory

Selection.Fields.Update

End Sub

↓下記もうまく動きませんでした

Sub フィールド更新()

For Each aStory In ActiveDocument.StoryRanges

aStory.Fields.Update

Next aStory

End Sub

[http://support.microsoft.com/kb/181785/ja]

マクロを実行するには、新しい文書を作成するときに、次のコードを入力します。

Sub AutoNew()

For Each aStory In ActiveDocument.StoryRanges

aStory.Fields.Update

Next aStory

End Sub

Answer 1

こんにちは。

目次の更新はTableOfContentsオブジェクトのUpdateメソッドで処理できますので、文書中のすべての目次を更新する場合は下記コードのようになります。

Option Explicit

Public Sub Sample()

  Dim tc As Word.TableOfContents

  For Each tc In ActiveDocument.TablesOfContents

    tc.Update

  Next

End Sub

Answer 2

きぬあささん

いつもお世話になっています。

ありがとうございます。

できました！！！！！

助かります！

いつもありがとうございます。