ページ内にファイル名を表示し、自動的に更新したい

ある教育機関で、職員会議が毎朝行われる。

この会議で職員が取り扱ってほしい内容をあらかじめ入力してもらったものを、当日朝話し合う。

その掲示板的に使用するファイルをWordで、1枚/日用意しておく。

これまでは、ファイルごとコピーし、ファイル名を変更し、さらに本文内の日付部分だけを手作業で直していた。手作業で直さなくてもよい方法はないかという相談を受けた。

【対応】

問題の箇所に、ファイル名フィールドを挿入した。

これだけでは、更新の作業が必要になる。

Word 文書に含まれているフィールドを自動的に更新するには、AutoOpen マクロを作成する。

AutoOpen マクロは以下のようになります。

-------------

Sub AutoOpen()
'
' AutoOpen Macro
' Macro created date by username'

   Dim aStory As Range
   Dim aField As Field

   For Each aStory In ActiveDocument.StoryRanges

      For Each aField In aStory.Fields
         aField.Update
      Next aField

   Next aStory

End Sub

-------------

Microsoftサイト

「Word で文書を開いたときに FILENAME フィールドが自動的に更新されない」

を参考にした。