word显示书签并给书签添加颜色

_oP_i2023-07-31 23:54
CTR+g 定位书签
复制代码
在 Word 的用户界面中，没有直接的选项可以批量为所有书签设置颜色。但你可以使用 VBA 宏或者编写自定义的功能来实现这个需求。

这里给出一个简单的 VBA 宏，它可以设置当前文档中所有书签内文本的颜色：

```vba
Sub ColorAllBookmarks()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim bkm As Bookmark

    For Each bkm In doc.Bookmarks
        bkm.Range.Font.Color = wdColorRed
    Next bkm
End Sub
```

这个宏将遍历当前文档的所有书签，并将每个书签内文本的颜色设置为红色。

要运行这个宏，你需要先打开 VBA 编辑器（按下 Alt + F11），然后在 "插入"（Insert） 菜单中选择 "模块"（Module），在新建的模块中复制并粘贴上面的代码。然后，你可以按下 F5 或者在 "运行"（Run） 菜单中选择 "运行子/用户窗体"（Run Sub/UserForm） 来运行这个宏。