MS Word VBA脚本可将书签添加到现有内容控件

Question

我在一个文档中有超过150个内容控制（CC）框，并且想知道是否有人可以通过VBA脚本帮助我以编程方式向他们添加书签。 新书签的名称必须与我为CC插入的标题或标签匹配。 例如，如果我在文档中有一个标题为“ TestResults”的抄送，我希望将名为“ TestResults”的书签插入该抄送中。 我绝对是VB的初学者！

所以我想我希望代码执行以下操作：

1. 在文档及其标题中找到所有抄送
2. 插入与抄送标题匹配的书签。

Answer 1

这应该为您工作：

Sub AddBookmarksAtCC()
    Dim ccobjA As ContentControl, i As Integer
    For i = 1 To ActiveDocument.ContentControls.Count
        Set ccobjA = ActiveDocument.ContentControls.Item(i)
        Debug.Print ccobjA.Title
        ActiveDocument.Bookmarks.Add ccobjA.Title, ActiveDocument.ContentControls.Item(i).Range
    Next i
End Sub

此过程将对文档中的所有内容控件进行计数，并遍历它们，并在每个控件上添加一个书签。 照原样，书签将被命名为内容控件的标题。 如果要使其成为Tag，请将ccobjA.Title替换为ccobjA.Tag 。 让我知道您是否仍然遇到麻烦。