Word VBA刪除帶有特定標簽的內容控件

Question

我閱讀了有關如何在SO上通過標記查找和禁用內容控件的問題的答案（以下是為您提供方便的代碼）。 就我而言，我需要刪除帶有SPECIFIC標簽的內容控件（CC）。

例如，從150個CCs ，我有文件，我需要找到並刪除只有那些CCs使用標簽"DCC" （只是CC，而不是其內容）。 如您所知，我在VB中沒有/沒有經驗，非常感謝我可以復制/粘貼的腳本。

我在Word 2007中使用Rich Text CC。

Private Sub DeleteCCByTag_Alternative(ccTag As String)

    Dim cc As ContentControl
    Set cc = ThisDocument.SelectContentControlsByTag(ccTag).Item(1)

    With cc

        .LockContentControl = False
        .LockContents = False

        .Range.Delete               'to delete CC content

        .Delete (False)
    End With
End Sub

Answer 1

好吧，我能夠找出一種方法來執行此操作。。。。。。。不是最漂亮的代碼，而且我敢肯定，有更好的方法可以執行此操作。 但是，由於我對VB的了解非常有限，因此以下內容可以滿足我的需求：

Sub DeleteCCByTag()
Dim oThisdoc As Word.Document
Dim oCC As ContentControl
Dim oCCs As ContentControls

Set oThisdoc = ActiveDocument
Set oCCs = oThisdoc.SelectContentControlsByTag("DCC")

    For Each oCC In oCCs
    If oCCs.Count > 0 Then
    oCC.Delete False
End If
Next
End Sub