加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

批量删除Word书签

(2017-04-19 10:09:14)
标签:

office

word

分类: 快捷方式

如果在Word选项设置中开启了显示书签,会发现在复制粘贴时,Word常常会自动生成很多“OLE_LINK”书签,使页面上布满了大大的中括号。对于一个强迫症患者来说,这是不可容忍的。

http://s8/mw690/002zAUYjzy7apXEr0ov77&690

http://s10/bmiddle/002zAUYjzy7apXFa8WZ89&690

http://s6/mw690/002zAUYjzy7apXFd7Qpd5&690
解决方法是一次批量删除这些OLE书签。在“视图”宏菜单中新建宏,输入以下命令:

Sub 删除OLE书签()

    Dim MyBk As Bookmark

    For Each MyBk In ActiveDocument.Bookmarks

        If UCase(Left(MyBk.Name, 8)) = "OLE_LINK" Then

            MyBk.Delete

        End If

    Next

End Sub

要删除全部书签,可以用以下宏(来自http://club.excelhome.net/thread-673921-1-1.html>):

Sub 删除书签()

Dim MyBk As Bookmark

For Each MyBk In ActiveDocument.Bookmarks

    MyBk.Delete

Next

End Sub

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有