VBA - Snippets

CC_RangeDeleteAll

Public Sub CC_RangeDeleteAll( _
         ByVal oRange As Word.Range)

Const sPROCNAME As String = "CC_RangeDeleteAll"

Dim oCC As Word.ContentControl

   On Error GoTo ErrorHandler
   
   'oRange.Select
   
   For Each oCC In oRange.ContentControls
      oCC.LockContentControl = False
      oCC.LockContents = False
      oCC.Delete
   Next oCC
   
   'oRange.Select

   Exit Sub

ErrorHandler:
   Call Error_Handle(msMODULENAME, sPROCNAME, Err.Number, Err.Description)
End Sub