Sie könnten ALT+ drücken F11und Makros verwenden :
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
Auf diese Weise wird bei jedem Öffnen des Dokuments Text von "Textfeld 1" in "Textfeld 2" kopiert.
Möglicherweise möchten Sie die Namen aller Textfelder im Dokument ermitteln mit:
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