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

Question

我在文档中有超过150个内容控制（CC）框，并且想知道是否有人能够帮助我使用VBA脚本以编程方式向他们添加书签。新书签的名称必须与为CC插入的标题或标签相匹配。例如，如果我在文档中有一个CC，其标题是“TestResults”＆＃39;我喜欢名为＆＃39; TestResults＆＃39;的书签。插入该CC。我是VB的绝对初学者！

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

1. 查找文档中的所有CC及其标题
2. 插入与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。 如果您还有问题请告诉我。