В Microsoft Publisher, вы можете сделать так, чтобы два текстовых поля всегда имели одинаковое содержимое?

Question

В Microsoft Publisher, вы можете сделать так, чтобы два текстовых поля всегда имели одинаковое содержимое?

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

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

4

microsoft-publisher

Источник

T.J.L. 29 апр '17 в 04:46

1 ответ

Решение

Другие вопросы по тегам microsoft-publisher

simlev 10 май '17 в 14:47 2017-05-10 14:47 · Accepted Answer · 2017-05-10 14:47

Вы можете нажать 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