複数のブックマークの場所に挿入 - Excel VBA

Question

Word文書の複数のブックマークに同じテキストを挿入するExcelマクロを使用しています。これを行うには、insertコマンドを一度指定してすべてのブックマークの場所に適用する方法があります。

今、私はすべてのブックマークに対して以下を行っていますか？

Dim monYear As String 
monYear = Format(DateAdd("m", -1, Now), "mmmm yyyy") 


wdApp.Selection.GoTo what:=-1, Name:="Front_Page_Month_Year" 
wdApp.Selection.TypeText monYear 

wdApp.Selection.GoTo what:=-1, Name:="Page2_Month_Year" 
wdApp.Selection.TypeText monYear 

そして、上と上....

Answer 1

複数のブックマークの場所に書き込むために単一のコマンドを使用する方法はありません。しかし、そのブックマークのコンテンツを複数の場所に表示するには、の参照のブックマークの場所が必要です。

ブックマークを作成し、ブックマークの内容を表示する各場所にの相互参照を挿入します。 （または相互参照を作成して他の場所にコピー/貼り付け）

コードのヒント：Selectionオブジェクトで使用しているアプローチは最適ではありません。 Excelの場合と同様に、選択に頼るのではなく、オブジェクトモデルで作業する方が良いです。したがって：

Dim doc as Word.Document 
Set doc = wdApp.ActiveDocument 'Note: if you're opening a document, set in the Open method 
doc.Bookmarks("Front_Page_Month_Year").Range.Text = monYear 
'When you're done, update the REF fields (references) 
doc.Fields.Update