Wordの文書の指定個所を別の場所に複写する
1ページ目と2ページ目に同じ内容を書かなければならない。しかし、チェックが抜けたり、数字の入力ミスなどで、同じにならない。
1ページ目を2ページ目に複写する方法を探した。備忘録です。
相互参照
相互参照定義をすると、相互参照先へ同じ内容を転記される事が分かったので、参照元をブックマークにする事にした。
ボタンクリックでも複写したい。(任意のタイミングで複写したい)
ボタンを配置して、マクロを登録する
CommandButton1_Click
Private Sub CommandButton1_Click()
Dim objStory As Variant
For Each objStory In ActiveDocument.StoryRanges
objStory.Fields.Update
Next
End Sub
印刷時ボタンを非表示にする
調べると、隠し文字設定で出来た。しかし、行内の設定でないと出来なかった。