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

Question

我在一个文档中有超过 150 个内容控制 (CC) 框，想知道是否有人可以帮助我使用 VB一个脚本来以编程方式向它们添加书签。新书签的名称必须与我为 CC 插入的标题或标签相匹配。例如，如果我在文档中有一个标题为 'TestResults' 的 CC，我希望将名为 'TestResults' 的书签插入该 CC。我绝对是 VB!

的新手

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

查找文档中的所有 CC 及其标题
插入与 CC 标题匹配的书签。

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

此过程将对文档中的所有内容控件进行计数，并遍历所有控件，并在每个控件上添加一个书签。实际上，书签将被命名为内容控件的标题。如果您想将其设为标签，请将 ccobjA.Title 替换为 ccobjA.Tag。如果您仍有问题，请告诉我。

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

MS Word VBA script to add Bookmarks to Existing Content Controls

vba

ms-word

word-2007