Word中的书签功能可快速.准确定位文档中特定的位置,经常用于模板定制.文档产出等. 可一直以来,书签功能存在一个不便的操作,即无法批量删除,只能单个删除,操作极不友好. 解决方案 我用代码暂时还改变不了世界,但可以提高工作效率.使用两VBA代码,即可完成遍历.删除. ALT+F11,打开VBA编辑器,在ThisDocument页面写下语句,F5执行即可. Sub DelBookmarks() Dim MyBk As Bookmark For Each MyBk In ActiveDocumen
For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Cell(1, 1).Select With Selection .SelectRow .Font.Bold = True .Shading.BackgroundPatternColor = -603923969 End With ActiveDocument.Tables(i).Range.Font.Size = 10 Next 宏内容:修改表格第一行字体为粗体,