跨页面不同字体文本自动关联咨询：如何仅输入一次同步多文本框

方法1：书签+文本框链接 #

• 先在任意一个文本框里输入内容，选中文本框内所有文字，点击「插入」→「书签」，给书签起个好记的名字（比如SyncContent）并保存。
• 切换到其他页面的文本框，点击「插入」→「链接」→「链接到书签」，选择刚才创建的书签。
• 之后只要修改源文本框的内容，所有关联的文本框会自动同步，而且每个文本框原本的字体、字号会保留不变。

方法2：文档部件复用 #

• 选中源文本框里的内容，点击「插入」→「文档部件」→「将所选内容保存到文档部件库」，设置名称后保存。
• 其他页面需要同步的文本框，直接插入这个文档部件；后续要改内容时，右键文档部件→「编辑属性」，修改后所有插入的该部件都会同步更新，同样不影响各自的格式。

方法3：VBA批量同步（适合大量文本框） #

如果文本框数量多，用VBA脚本更高效：

Sub SyncTextBoxes()
    Dim mainTB As Shape
    Dim tb As Shape
    ' 替换成你作为内容源的文本框名称，可在「格式」选项卡查看文本框名称
    Set mainTB = ActiveDocument.Shapes("TextBox 1")
    ' 遍历所有文本框
    For Each tb In ActiveDocument.Shapes
        If tb.Type = msoTextBox And tb.Name <> mainTB.Name Then
            ' 同步内容
            tb.TextFrame.TextRange.Text = mainTB.TextFrame.TextRange.Text
            ' 保留目标文本框原有字体格式
            tb.TextFrame.TextRange.Font = tb.TextFrame.TextRange.Font
        End If
    Next tb
End Sub

使用步骤：按Alt+F11打开VBA编辑器，插入模块粘贴代码，修改源文本框名称后运行。之后修改源内容，再运行一次脚本就能同步所有文本框。

内容的提问来源于stack exchange，提问作者Jack KKK