☰

在 Microsoft Publisher 中，您可以让两个文本框始终具有相同的内容吗？

tag-icon • tag-icon microsoft-publisher
在 Microsoft Publisher 中，您可以让两个文本框始终具有相同的内容吗？

我正在创建的特定文档涉及将页面对折，因此打印时一侧相对于另一侧是颠倒的，但组装时，它们彼此是镜像。

这个问题确实说明了一切——有没有办法将两个文本框链接在一起，以便一个文本框中出现的内容会自动出现在另一个文本框中？

答案1

您可以按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

相关内容