Word中使用vba清空超链接，一直未找到完美的解决方案，求助高人！

xiaoyouxi01

我发现1楼思路1的代码，其实用一句ActiveDocument.Fields.Unlink就可以了。
不过这个ActiveDocument.Fields.Unlink（Ctrl+Shift+F9）有个缺陷，它会把所有域清空掉。
比如正文中插入一个页码（“当前页码/总页码”这种形式），本来是可以更新这个页码域的。用Ctrl+Shift+F9清除了就不能再更新了，相当于把这个动态域转成静态文本了。
而用这种形式倒是可以：

1.     For Each oField In ActiveDocument.Fields    '任何文字
   
2.         If oField.Type = wdFieldHyperlink Then oField.Unlink
   
3.     Next

复制代码

leikaiyi123

这个 If oField.Type = wdFieldHyperlink 就排除了其他域了，只处理链接

xiaoyouxi01

leikaiyi123 发表于 2018-1-23 10:33
再试试：Sub SFHyperlinks2()    '取消文字图片形状(含文字)超链接
    On Error Resume Next
    Dim os ...

太强大了！测试了下完美可行！

我再好好研究消化下这段代码！

xiaoyouxi01

leikaiyi123 发表于 2018-1-23 15:35
这个 If oField.Type = wdFieldHyperlink 就排除了其他域了，只处理链接

想再请教下，我在官方文档中看到Hyperlink的type属性，发现超链接有3种类型：

https://msdn.microsoft.com/en-us/vba/office-shared-vba/articles/msohyperlinktype-enumeration-office

Specifies the type of hyperlink.

[td]

Name	Value	Description
msoHyperlinkInlineShape	2	Hyperlink applies to an inline shape. Used only with Microsoft Word.
msoHyperlinkRange	0	Hyperlink applies to a Range object.
msoHyperlinkShape	1	Hyperlink applies to a Shape object.

0和1我已经知道了，普通的文本超链接就是0，图形图片上的超链接是1。
但是这个2，msoHyperlinkInlineShape，一直测不出来是哪种超链接。
测试嵌入式图片的超链接类型，也是1。


=====================================================

找到2的超链接了。比如插入一个word对象，给这个对象添加超链接，这种情况的超链接类型就是2。

xiaoyouxi01

自用最终版如下：

1. Sub 清空超链接()
   
2.     On Error Resume Next
   
3.     Dim oField As Field, oInlineshape As InlineShape, oShape As Shape
   
4.     For Each oField In ActiveDocument.Fields
   
5.         If oField.Type = wdFieldHyperlink Then
   
6.             oField.Unlink
   
7.         End If
   
8.     Next
   
9.     For Each oInlineshape In ActiveDocument.InlineShapes
   
10.         oInlineshape.Hyperlink.Delete
    
11.     Next
    
12.     For Each oShape In ActiveDocument.Shapes
    
13.         oShape.Hyperlink.Delete
    
14.         For Each oField In oShape.TextFrame.TextRange.Fields
    
15.             If oField.Type = wdFieldHyperlink Then
    
16.                 oField.Unlink
    
17.             End If
    
18.         Next
    
19.         For Each oInlineshape In oShape.TextFrame.TextRange.InlineShapes
    
20.             oInlineshape.Hyperlink.Delete
    
21.         Next
    
22.     Next
    
23. End Sub

复制代码

多谢楼上诸位朋友！特别感谢leikaiyi123

wdpfox

学习了，谢谢分享代码！