![在 Microsoft Publisher 中,您可以让两个文本框始终具有相同的内容吗?](https://linux22.com/image/1528843/%E5%9C%A8%20Microsoft%20Publisher%20%E4%B8%AD%EF%BC%8C%E6%82%A8%E5%8F%AF%E4%BB%A5%E8%AE%A9%E4%B8%A4%E4%B8%AA%E6%96%87%E6%9C%AC%E6%A1%86%E5%A7%8B%E7%BB%88%E5%85%B7%E6%9C%89%E7%9B%B8%E5%90%8C%E7%9A%84%E5%86%85%E5%AE%B9%E5%90%97%EF%BC%9F.png)
我正在创建的特定文档涉及将页面对折,因此打印时一侧相对于另一侧是颠倒的,但组装时,它们彼此是镜像。
这个问题确实说明了一切——有没有办法将两个文本框链接在一起,以便一个文本框中出现的内容会自动出现在另一个文本框中?
答案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