Word - 如何在文档 B 中显示文档 A 中的一段文本，当我在文档 A 或 B 中更改它时，它会实时更新？

Word 中确实没有办法做到这一点。

相反，我要做的是将这些规定保存在全局模板中的自动图文集中，并使用自动图文集字段将它们插入文档中。

如果要修改自动图文集条目，实际上是在文档中输入自动图文集，修改它，然后重新保存条目。

您需要更新文档中的自动图文集字段。这可能会在您打印或不打印时发生，具体取决于用户设置。这是一个执行此操作的宏。

Sub UpdateAllAutoText()
'   Update all AutoText fields in a document, even if in headers/footers or textboxes
    ' https://gregmaxey.com/word_tip_pages/word_fields.html
    ' November 12, 2020 Charles Kenyon
    Dim rngstory As Word.range
    Dim lngValidate As Long ' do not know purpose of this - CK
    Dim oShp As Shape
    Dim oStory As range
    Dim oField As Field

    lngValidate = ActiveDocument.Sections(1).Headers(1).range.StoryType ' do not know purpose of this
    For Each rngstory In ActiveDocument.StoryRanges
      'Iterate through all linked stories
        For Each oField In oStory.Fields
            If oField.Type = wdFieldAutoText Then oField.Update
        Next oField
      Do
        On Error Resume Next
        For Each oField In rngstory.Fields
            If oField.Type = wdFieldAutoText Then oField.Update
        Next oField
            
        Select Case rngstory.StoryType
          Case 6, 7, 8, 9, 10, 11
            If rngstory.ShapeRange.Count > 0 Then
              For Each oShp In rngstory.ShapeRange
                If oShp.TextFrame.HasText Then
                    For Each oField In oShp.TextFrame.Fields
                        If oField.Type = wdFieldAutoText Then oField.Update
                    Next oField
                End If
              Next
            End If
          Case Else
            'Do Nothing
        End Select
        On Error GoTo 0
        'Get next linked story (if any)
        Set rngstory = rngstory.NextStoryRange
      Loop Until rngstory Is Nothing
    Next
    '
    Set oStory = Nothing
    Set oField = Nothing
    Set rngstory = Nothing
    Set oShp = Nothing
End Sub

同样，如果没有访问包含自动图文集条目的模板，该字段将无法在外部计算机上使用。在将文档发送给其他人之前，您可能希望取消该字段的链接。

这是一个用于取消链接文档中的自动图文集字段的宏。

Sub UnlinkAllAutoText()
'   Unlink all AutoText fields in a document, even if in headers/footers or textboxes
'   Based on code at http://www.gmayor.com/installing_macro.htm
'   Charles Kenyon
'   2 Sept 2020
'
    Dim oStory As range
    Dim oField As Field
    '
    For Each oStory In ActiveDocument.StoryRanges
        For Each oField In oStory.Fields
            If oField.Type = wdFieldAutoText Then oField.Unlink
        Next oField
        '
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
            Set oStory = oStory.NextStoryRange
                For Each oField In oStory.Fields
                    If oField.Type = wdFieldAutoText Then oField.Unlink
                Next oField
            Wend
        End If
        '
    Next oStory
    '
    Set oStory = Nothing
    Set oField = Nothing
End Sub

我倾向于使用具有这些字段的文档模板。当我想要发送或打印文档时，我会根据模板创建一个新文档。模板具有在文档创建时更新和取消链接自动图文集字段的宏。文档模板的宏和 AutoNew 宏显示在我的 Microsoft Word 中的样板语言页面中。

披露：有关全局和文档模​​板的链接转到我在 Microsoft Word 中的模板上的网页。