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

It works for me. Updated to unlock contents, too, though that shouldn't make any difference.

Answer 4

Thank you so much Doug, its working

Afzal

Answer 5

That may be, but Doug's code change adds nothing of value.