通过VBA删除Word模板的内部链接

Sub RemoveInternalLinks()
    Dim wdDoc As Word.Document
    Dim wdShape As Word.Shape
    Dim shpRange As Word.Range
    Dim i As Integer
    
    '选择模板
    Set wdDoc = ActiveDocument
    
    '循环查找链接的Shape
    For Each wdShape In wdDoc.Shapes
        If wdShape.Type = msoLinkedOLEObject Then
            '删除链接
            wdShape.LinkFormat.Update
            wdShape.Delete
        End If
    Next wdShape
    
    '选择链接的文本
    Set shpRange = wdDoc.Range
    
    '循环查找链接并删除
    For i = shpRange.Characters.Count To 1 Step -1
        If shpRange.Characters(i).LinkFormat.SourceFullName = "" Then
            shpRange.Characters(i).Delete
        End If
    Next i
    
End Sub