4

Конкретный документ, который я создаю, включает в себя сложение страницы пополам, поэтому одна сторона переворачивается по отношению друг к другу при печати, но в собранном виде они являются зеркалами друг друга.

Вопрос действительно говорит сам за себя - есть ли способ связать два текстовых поля вместе, чтобы то, что появляется в одном, автоматически появилось в другом?

1 ответ1

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .