我要创建的特定文档涉及将页面对折，因此打印时，一侧相对于另一侧是倒置的，但是组装时，它们是彼此的镜像。
这个问题确实说明了一切-是否有办法将两个文本框链接在一起，以便一个显示的内容自动出现在另一个显示的内容中？
您可以按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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句