word文档中删除超链接

keypress

网上下了一批文档，其中有一些公式编辑器插入的公式都被加了超链接，手工删除超链接的话太繁琐，因此想到用VBA。
首先使用的代码是：

1. 
   
2. Sub RemoveHyperlinks()
   
3.     Dim oField As Field
   
4.     For Each oField In ActiveDocument.Fields
   
5.         If oField.Type = wdFieldHyperlink Then
   
6.                oField.Unlink
   
7.         End If
   
8.     Next
   
9.     Set oField = Nothing
   
10. End Sub
    

复制代码

以上代码在网上流传甚广，但执行后所有的公式都成了图片，无法再次编辑。
因此，我想到了hyperlink对象，写了如下的宏：

1. 
   
2. Sub RemoveHyperlinks2()
   
3.     Dim oHpLink As Hyperlink
   
4.    For Each oHpLink In ActiveDocument.Hyperlinks
   
5.         oHpLink.Delete
   
6.    Next
   
7. End Sub
   

复制代码

但每次执行这段代码，总有一些超链接无法删除，多次执行代码后，超链接好象可删除大部分。
请问如何改进代码，提高效率。
附件见下面 高一数学必修4模块训练3.rar (68.37 KB, 下载次数: 28)

2010-1-12 18:24 上传

点击文件名下载附件

keypress

目前想到的临时解决方案：

1. 
   
2. Sub RemoveHyperlinks2()
   
3.     Dim oHpLink As Hyperlink
   
4.     Dim oNum, sNum As Integer
   
5.     oNum = 0
   
6.     sNum = ActiveDocument.Hyperlinks.Count
   
7.     While ActiveDocument.Hyperlinks.Count > 0
   
8.    For Each oHpLink In ActiveDocument.Hyperlinks
   
9.         oHpLink.Delete
   
10.         oNum = oNum + 1
    
11.    Next
    
12.    Wend
    
13.    MsgBox "共有" & sNum & "个超链接" & Chr(13) & "一共转换了" & oNum & "个超链接"
    
14. End Sub
    

复制代码

加上msgbox是为了监控转换的效率。

csnAlex

不用多次执行的方法：
Sub RemoveHyperlinks3()
    Dim i As Integer
   
    With ActiveDocument.Hyperlinks
        For i = .Count To 1 Step -1
            .Item(i).Delete
        Next
    End With
End Sub

说明：你可以把Hyperlinks集合想象成一个队列，用FOR EACH 循环时，从头到尾访问一遍。你如果执行删除第一个，队列中少了1个，队列中的第二个则变为第一个，在next时是按队列序号向下跳1个，可是现在又被删除的其实是原来的第三个，所以执行一遍还有一半儿没有删除。

我用的方法是从最后一个向前删除，就不会出现这个问题。

keypress

谢谢你的提醒，这果然是一个好的方法

lxd

试用了，有效果。

ex121

csnAlex 发表于 2010-12-23 12:04
不用多次执行的方法：
Sub RemoveHyperlinks3()
    Dim i As Integer

我执行代码时报错了:

运行时错误:'-2147467259 (80004005)':
方法 'Delete' 作用于对象 'Hyperlink' 时失败

tangqingfu

学习一下，谢谢分享！