Você pode pressionar ALT + F11 e usar 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
Dessa forma, toda vez que o documento é aberto, o texto é copiado de "Caixa de texto 1" para "Caixa de texto 2".
Você pode querer descobrir os nomes de todas as caixas de texto no documento com:
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