如何以编程方式更改 Word 2007 主文档中的子文档位置？

Question

我们遇到了令人不快的情况：由于目录重命名，各种主文档引用的子文档不再位于原来的位置。是否有一种编程方式可以调整 HYPERLINK 字段而不丢失主/子文档关系？

我已经到目前为止......

Sub FixyaLinks()
    Dim s 'As String
    Dim i As Long
    Dim bTrackRevFlag As Boolean
    Dim bShowRevFlag As Boolean

    bTrackRevFlag = ActiveDocument.TrackRevisions
    bShowRevFlag = ActiveDocument.ShowRevisions

    ActiveDocument.TrackRevisions = False
    ActiveDocument.ShowRevisions = False

    For i = 1 To ActiveDocument.Fields.Count
    s = ActiveDocument.Fields.Item(i).Code.Text
    If InStr(s, "CURRICULUM\\NEW") Then
        s = Replace(s, "NEW Foundation Units-in developing", "Foundation Programme Units")
        ActiveDocument.Fields.Item(i).Code.Text = s
    End If
    Next
    ActiveDocument.TrackRevisions = bTrackRevFlag
    ActiveDocument.ShowRevisions = bShowRevFlag
End Sub

它在 ActiveDocument.Fields.Item(i).Code.Text = s 上爆炸，错误 5686（“操作无法完成，因为跟踪更改选项主文档中的选项与子文档中的选项不匹配。使主文档和子文档中的“跟踪更改”选项相同。”）但是，我不完全确定这意味着什么。

有人有想法吗？

Answer 1

根据您的代码和文章，我想说该错误基本上意味着您在运行主文档来修复它之前已经关闭了主文档中的跟踪更改，但是您正在更改的子文档链接已打开跟踪更改。

您是否尝试过打开轨道更改并更改链接？

您可能还应该测试您要修改的字段的种类。文档中可能还有其他类型的字段没有链接，并且您可能会无意中用此代码将它们弄乱。我认为你用 Field.Type 来做到这一点