how to remove multiple content control in Word

Question

Hi,

I have standard word templates which has multiple "Rich Text Content Control", I want to apply some option in properties in each and every Rich Text Content Control. The properties options as below picture:

Show as: None

both option in locking

I would like to know that how to apply these options in each and every Rich Text Content Control at once?

Thanking you in advance,

Afzal

Answer 1

Use

Dim CCtrl As ContentControl

For Each CCtrl In ActiveDocument.ContentControls

With CCtrl 

    Select Case .Type 

        Case wdContentControlRichText 

            If .LockContentControl = True Then 

                .LockContentControl = False 

            End If 

        .Delete 

    End Select 

End With 

Next

Answer 2

You could do that with a macro like:

Sub Demo()

Dim CCtrl As ContentControl

For Each CCtrl In ActiveDocument.ContentControls

With CCtrl

Select Case .Type 

  Case wdContentControlRichText 

    .Appearance = wdContentControlHidden 

    .LockContentControl = True 

    .LockContents = True 

End Select 

End With

Next

End Sub

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm

For Mac macro installation & usage instructions, see: https://wordmvp.com/Mac/InstallMacro.html

Answer 3

Thank you very much macropod, its works perfectly, I would like to also know that if I want to remove all content control at once, means text remains but only content control remove, it it possible?

Thanking you in advance,

Afzal

Answer 4

Simply use:

Sub DemoX()

Dim CCtrl As ContentControl

For Each CCtrl In ActiveDocument.ContentControls

With CCtrl

Select Case .Type 

  Case wdContentControlRichText 

   .LockContentControl = False

   .LockContents = False

   .Delete 

End Select 

End With

Next

End Sub

Answer 5

Hi macropod,

I tried your code but showing error as given below:

Thanking you in advance,

Afzal