No Microsoft Publisher, você pode fazer com que duas caixas de texto sempre tenham conteúdo idêntico?

4

O documento específico que estou criando envolve dobrar a página ao meio, então um lado está de cabeça para baixo em relação ao outro quando impresso, mas quando montado, eles são espelhos um do outro.

A pergunta realmente diz tudo - existe uma maneira de vincular duas caixas de texto para que o que aparece em uma apareça automaticamente na outra?

    
por T.J.L. 29.04.2017 / 06:46

1 resposta

2

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
    
por 10.05.2017 / 16:47