批量去除文档中的超链接方法.doc

批量去除文档中的超链接方法： （经本人多次试验切实有效） （1）双击打开你要操作的文档： （2）按ALT+F11会出现以下窗口： （3）接着往下： （4）复制如下文本到框里：（以下文本直接复制使用，不可更改） Sub HyperlinksDel() Dim i% Application.ScreenUpdating = False With ThisDocument.Hyperlinks For i = .Count To 1 Step -1 .Item(i).Delete Next End With Application.ScreenUpdating = True End Sub （5）复制完了之后如图所示：特别要注意圈圈部分，如果不是这一排字母，请点三角符号选择 HyperlinksDel （6）点击运行，选择该项，运行之。 （7）运行完毕之后关掉上图之后，回到下图的界面，点击左上角文件，出现下图： （8）选择移除模块，得如下图，选择“否”： （9）然后再点选“文件” 第1项，保存文档 （10）收工。 本方法来自，本人试过，切实有效，为了切实帮助深受链接困扰的朋友，免费贴上来。