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

我们遇到了不可行的情况:各种主文档指的是由于目录重命名而不再位于原来位置的子文档。是否有一种在不丢失主/子文档关系的情况下调整超链接字段的编程方法?

我走了这么远…

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(“操作无法完成,因为主控文档中的修订选项与子文档中的选项不匹配。”使主控文档和子文档中的“修订”选项相同。“)但是,我不完全确定这意味着什么。

有什么想法吗?