今天收到个Word文档，里面有无数个超链接

鹰蛇软件

可能是插入网页文件形成的Word文档，里面有无数个超链接，打开文件慢得要死，查看文件内容，动一下鼠标，半天才相应，烦死了

不行，我得把这些超链接删除掉，一个一个删除，明年都删不完的，于是编制了一段代码，运行一下，泡一杯茶等代码自动删除～

一会会，文件好了，速度恢复正常，可以正常打开查看了

有时候，学点编程好处蛮多的

鹰蛇软件

最终的标准化的代码，可以通用的……

Public Sub RemoveAllHyperlink()
    Dim oHy As Word.Hyperlink, oHys As Word.Hyperlinks, i As Long, nCnt As Long
    Set oHys = Word.ActiveDocument.Hyperlinks
    nCnt = oHys.Count
    For i = nCnt To 1 Step -1
        Set oHy = oHys(i)
        Debug.Print CStr(nCnt - i + 1) & "/" & CStr(nCnt) & "，" & CStr(Round((nCnt - i + 1) / nCnt * 100, 2)) & "％，超链接地址：" & oHy.Address
        oHy.Delete
    Next
    Set oHy = Nothing
    Set oHys = Nothing
End Sub

小飞机

厉害的，看不懂

鹰蛇软件

不会偷懒会累死人的，呵呵，也叫做高效率

银翼灰羽

在删除不需要的链接的时候能否实现保留含有一些关键字的链接呢

鹰蛇软件

银翼灰羽 发表于 2012-10-3 11:08
在删除不需要的链接的时候能否实现保留含有一些关键字的链接呢

完全可以根据oHy.Address进行继续判断

oHy.Address：就是超链接的地址的

鹰蛇软件

我这个文档，那些地址完全没有必要保留，所以全部删除了，这个删除，是不包括Word目录的内部超链接的，也就是Word的目录链接仍然是保留的，我已经测试过了

鹰蛇软件

删除超链接，再保存，发现文件小了2M多{:soso_e110:}

银翼灰羽

{:soso_e179:}了解……学习了

取个名难

会编程的男人好帅