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 。 讓我知道您是否仍然遇到麻煩。