Macro

[nparsons75]

This may be a strange place to ask this but I have it feeling it will be the same. I have a word template which I have created. It contains numerous content controls. I need a macro button that will clear the control content to enable me to start filling the form again. I have had so much success on here I thought I would give it a go. Thanks.

 

[CalcSux78]

You could loop through all the formfields within the document resetting to a default value

    Dim FF As FormField
 
    For Each FF In ActiveDocument.FormFields
         Select Case FF.Type
             Case wdFieldFormTextInput
                 FF.Result = ""
             Case wdFieldFormDropDown
                 FF.DropDown.Value = 1
             Case Else
                 ' do nothing
         End Select
     Next

 

[Macropod]

You could loop through all the formfields within the document resetting to a default value

That's all very well, but:

I have a word template which I have created. It contains numerous content controls.

Content controls are not formfields.

nparsons75: Text, picture & date content controls are easily-enough cleared but, if you have checkbox content controls, what default do you want to set them to - checked or unchecked?

 

[nparsons75]

yes I found this, the controls did not clear, I was to reply this morning.

the default for checkboxes would be unchecked.

thanks both of you fit the help. @macropod, would be fantastic if you could help show me how to do this.

thanks

That's all very well, but:

Content controls are not formfields.

nparsons75: Text, picture & date content controls are easily-enough cleared but, if you have checkbox content controls, what default do you want to set them to - checked or unchecked?

 

[Macropod]

Try:

Sub ClearAllContentControls()
Application.ScreenUpdating = False
Dim CCtrl As ContentControl
For Each CCtrl In ActiveDocument.ContentControls
  On Error Resume Next
  With CCtrl
    Select Case .Type
     Case wdContentControlCheckBox: .Checked = False
     Case wdContentControlComboBox: .DropdownListEntries(1).Select
     Case wdContentControlDropdownList: .DropdownListEntries(1).Select
     Case wdContentControlPicture: If .ShowingPlaceholderText = False Then .Range.InlineShapes(1).Delete
     Case Else: .Range.Text = ""
    End Select
  End With
Next
Application.ScreenUpdating = True
End Sub

 

[CalcSux78]

My bad, Macropod! Missed that one. Sometimes the quickest way to get the right answer is to post the wrong one.