web-dev-qa-db-ja.com

Microsoft Publisherで、2つのテキストボックスに常に同じコンテンツを含めることはできますか?

私が作成している特定のドキュメントでは、ページを半分に折りたたむ必要があるため、印刷時には一方の面がもう一方の面に対して上下逆になりますが、組み立てると、それらは互いに鏡になります。

質問は本当にすべてを言います-2つのテキストボックスを一緒にリンクして、一方に表示されるものがもう一方に自動的に表示されるようにする方法はありますか?

4
T.J.L.

あなたは押すことができます 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
2
simlev