Wordの文書の指定個所を別の場所に複写する

１ページ目と２ページ目に同じ内容を書かなければならない。しかし、チェックが抜けたり、数字の入力ミスなどで、同じにならない。
１ページ目を２ページ目に複写する方法を探した。備忘録です。

相互参照

相互参照定義をすると、相互参照先へ同じ内容を転記される事が分かったので、参照元をブックマークにする事にした。

ボタンクリックでも複写したい。（任意のタイミングで複写したい）

ボタンを配置して、マクロを登録する

CommandButton1_Click

Private Sub CommandButton1_Click()
    Dim objStory As Variant
    For Each objStory In ActiveDocument.StoryRanges
         objStory.Fields.Update
    Next
End Sub

印刷時ボタンを非表示にする

調べると、隠し文字設定で出来た。しかし、行内の設定でないと出来なかった。

Word文書サンプル

サンプルに全部記入したので、忘れないだろう

物忘れ防止 wordCopy.docm
https://github.com/sugita0301/douzo