Word VBA删除带有特定标签的内容控件

debugcn 发表于 Dev

塞伯·弗兰克

我阅读了有关如何在SO上通过标记查找和禁用内容控件的问题的答案（以下是为您提供方便的代码）。就我而言，我需要删除带有SPECIFIC标签的内容控件（CC）。

例如，CCs在文档中的150个文档中，我仅需要查找和删除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

塞伯·弗兰克

好吧，我能够找出一种方法来执行此操作。。。。。。。不是最漂亮的代码，而且我敢肯定，有更好的方法可以执行此操作。但是，由于我对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

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。