清理MS Word中目录中的URL链接

要清理MS Word中目录中的URL链接，可以使用VBA代码来实现。以下是一个示例代码：

Sub ClearURLLinksInTableOfContents()
    Dim toc As TableOfContents
    Dim rng As Range
    Dim fld As Field
    
    ' 获取文档中的目录
    For Each toc In ActiveDocument.TablesOfContents
        ' 遍历目录中的每个域
        For Each fld In toc.Range.Fields
            ' 检查域类型是否为 HYPERLINK
            If fld.Type = wdFieldHyperlink Then
                ' 获取当前域的范围
                Set rng = fld.Code
                rng.MoveEnd wdCharacter, 1
                ' 删除当前域范围内的链接
                rng.Hyperlinks.Delete
            End If
        Next fld
    Next toc
    
    ' 更新目录
    For Each toc In ActiveDocument.TablesOfContents
        toc.Update
    Next toc
End Sub

要使用这个代码，请按照以下步骤操作：

1. 打开MS Word文档。
2. 按下Alt+F11打开VBA编辑器。
3. 在VBA编辑器中，插入一个新的模块。
4. 将上述示例代码复制粘贴到新模块中。
5. 关闭VBA编辑器。
6. 在MS Word文档中，按下Alt+F8打开宏对话框。
7. 选择"ClearURLLinksInTableOfContents"宏，并点击"运行"按钮。

执行完上述步骤后，代码将会清理目录中的所有URL链接，并更新目录。请注意，在运行宏之前最好先备份文档，以防万一。