Чи можете ви в Microsoft Publisher зробити так, щоб два текстові поля завжди мали однаковий вміст?

Конкретний документ, який я створюю, передбачає складання сторінки навпіл, тому одна сторона перевернута догори до іншої при друкуванні, але коли вони зібрані, вони є дзеркалами один одного.

Питання справді все це говорить - чи є спосіб зв’язати два текстових поля разом, щоб те, що з’явилося в одному, автоматично з’явилося в іншому?

microsoft-publisher

— TJL
джерело

Ви можете натиснути 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

Таким чином, кожен раз, коли документ відкривається, текст копіюється з "Text Box 1" в "Text Box 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

— симлев
джерело

Макроси - не страшна ідея. Я щойно зрозумів, що здатність видавця пов'язувати розділи для потоку, є один, який би їх зв'язав для дублювання. У будь-якому випадку, якщо нічого кращого не відбудеться, я подам це прапор через кілька днів, щоб ви отримали виграш.

— TJL

Деякі кажуть, що їм вдалося виконати те, що ви хочете, почавши з шаблону бюлетеня, а потім скопіювавши текстове поле заголовка, але я не зміг відтворити таку поведінку у Publisher 2010.

— simlev

Я загрожу здогадкою про те, що це макрос, прив'язаний до події зміни в текстовому полі, саме так я збираюся налаштувати свою. Мені подобається макросів в Excel, я просто сподівався їх уникнути.

— TJL