In Microsoft Publisher, can you make two text boxes always have identical content?

Question

The particular document I'm creating involves folding the page in half, so one side is upside down relative to the other when printed, but when assembled, they're mirrors of each other.

The question really says it all - is there a way to link two text boxes together so that what appears in one automatically appears in the other?

score 2 · Accepted Answer · answered May 10 '17 at 14:47

You could press ALT+F11 and use macros:

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

This way, every time the document is opened, text is copied from "Text Box 1" to "Text Box 2".

You might want to find out the names of all text boxes in the document with:

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

In Microsoft Publisher, can you make two text boxes always have identical content?

1 Answers1