MS Wordのすべてのコンテンツコントロールを削除するメソッドまたはマクロはありますか？

Question

アクティブなドキュメントのすべてのコンテンツコントローラ（LokedおよびUnlocked）をテキストを削除せずに削除する必要があります。私はこれを検索し、マクロを見つけました。しかし、私はそれが適切に動作していないと思う。

Word VBA to delete Content Controls with specific Tags

それがこれを行うことは可能ですか？

編集： 私は以下のコードを試しました。テキストコンテンツを含むコンテンツコントローラが削除されます。私はコンテンツコントローラだけを削除する必要があります。

Sub Test() 
Dim objCC As ContentControl 
Do While ActiveDocument.ContentControls.Count > 0 
For Each objCC In ActiveDocument.ContentControls 
objCC.Delete True 
Next 
Loop 
End Sub 

Answer 1

私は自分自身の方法で答えを見つけた:)誰かに

Public Sub Test() 

    Dim oRng As Range 
    Dim CC As ContentControl 
    Dim LC As Integer 
    Dim LRCC As Integer 
    Dim LTCC As Integer 
    Dim LE As Boolean 

'Remove all content controls 
Set oRng = ActiveDocument.Content 
LTCC = LTCC + oRng.ContentControls.Count 
For LC = oRng.ContentControls.Count To 1 Step -1 

Set CC = oRng.ContentControls(LC) 
If CC.LockContentControl = True Then 
    CC.LockContentControl = False 
End If 
CC.Delete 
If Not LE Then 
    LRCC = LRCC + 1 
    End If 
    LE = False 
Next 
End Sub 

この意志便利。

Answer 2

この回答に感謝します。私が探していたものでした。私は以下を使用して終了しました：

Sub ContentControlRemoval() 
' 
'Remove all content controls 
Set oRng = ActiveDocument.Content 
LTCC = LTCC + oRng.ContentControls.Count 
For LC = oRng.ContentControls.Count To 1 Step -1 

Set CC = oRng.ContentControls(LC) 
If CC.LockContentControl = True Then 
    CC.LockContentControl = False 
End If 
CC.Delete 
If Not LE Then 
    LRCC = LRCC + 1 
    End If 
    LE = False 
Next 
End Sub