Command for repeating content control

Shhh · #1 06-19-2021, 06:01 PM

Hola! I found a macro on here that works beautifully to clear content control. Only if the repeating content control is removed :S When the repeating content control is added, an error pops up with "Debug" and the aCC.Range.Text = "" is no longer valid.

Wondering, how does one write to add the repeating content control? Any help is greatly appreciated!

This is the original code:

Dim aCC As ContentControl
For Each aCC In ActiveDocument.ContentControls
aCC.Range.Select
If aCC.Type <> wdContentControlDropdownList Then
aCC.Range.Text = ""
Else
aCC.Type = wdContentControlText
aCC.Range.Text = ""
aCC.Type = wdContentControlDropdownList
End If
Next aCC
End Sub

Guessed · #2 06-20-2021, 02:35 AM

Try this - it does nothing to some of the CC types such as Repeating CCs

Code:

Sub ResetCCs()
  Dim aCC As ContentControl
  For Each aCC In ActiveDocument.ContentControls
    Select Case aCC.Type
      Case wdContentControlComboBox, wdContentControlDate, wdContentControlRichText, wdContentControlText
        aCC.Range.Text = ""
      Case wdContentControlDropdownList
        aCC.Type = wdContentControlText
        aCC.Range.Text = ""
        aCC.Type = wdContentControlDropdownList
    End Select
  Next aCC
End Sub

Shhh · #3 06-20-2021, 06:26 AM

Thank you for your response, Guessed!! it is your response from another user where i got the clear form thread from

I've tried the new one and still get the same "Range" isn't valid.

I've attached a sample I'm working with. Any suggestions is greatly appreciated!!

Guessed · #4 06-20-2021, 06:11 PM

Whoops, I left in an error on the Select Case line

Try it again after stopping that line at
Select Case aCC.Type

I've amended the code in the earlier post so you can use that as a block if you prefer

Shhh · #5 06-20-2021, 08:00 PM

Thank you, Guessed!!! Thank you!!!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change Value of a Content Control based on the value of another content Control	jsc_msoffice	Word VBA	2	05-21-2021 09:51 PM
Content Control Dropdowns - How to duplicate the content control and allow a second choice	ashleyf	Word VBA	2	03-19-2020 09:11 AM
Repeating part of a Content Control	NicB	Word	9	07-29-2018 09:46 AM
Adding Row with Content control using Command Button	baes10	Word VBA	0	12-13-2017 11:30 AM
Deleting a table from a content control -- preserving the content control	BrainSlugs83	Word Tables	8	11-14-2013 03:06 AM