私が作成している特定のドキュメントでは、ページを半分に折りたたむ必要があるため、印刷時には一方の面がもう一方の面に対して上下逆になりますが、組み立てると、それらは互いに鏡になります。
質問は本当にすべてを言います-2つのテキストボックスを一緒にリンクして、一方に表示されるものがもう一方に自動的に表示されるようにする方法はありますか?
あなたは押すことができます ALT+F11 そして使用する マクロ :
Private Sub Document_Open()
ActiveDocument.Pages(1).Shapes("Text Box 2").TextFrame.TextRange.Text = ActiveDocument.Pages(1).Shapes("Text Box 1").TextFrame.TextRange.Text
End Sub
このように、ドキュメントを開くたびに、テキストが「テキストボックス1」から「テキストボックス2」にコピーされます。
ドキュメント内のすべてのテキストボックスの名前を次のように確認することをお勧めします。
Sub EnumerateTextBoxes()
Dim pubPage As Page
Dim pubShape As Shape
For Each pubPage In ActiveDocument.Pages
For Each pubShape In pubPage.Shapes
If pubShape.Type = pbTextFrame Then
MsgBox pubShape.Name
End If
Next pubShape
Next pubPage
End Sub