Can't reset form fields (Word 2013) and conditional formatting

macropod · #1 10-15-2015, 06:58 PM

Assuming all the dropdowns are meant to have the same conditional shading outcomes, the following code is all you'll need.

Code:

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Application.ScreenUpdating = False
Dim lClr As Long
With CCtrl
  If .Type <> wdContentControlDropdownList Then Exit Sub
  With .Range
    If .Information(wdWithInTable) = False Then Exit Sub
    Select Case .Text
      Case "N/R":  lClr = wdColorLightTurquoise
      Case "Yes": lClr = wdColorPink
      Case "No": lClr = wdColorBrightGreen
      Case Else: lClr = wdColorAutomatic
    End Select
    .Cells(1).Range.Shading.BackgroundPatternColor = lClr
  End With
End With
Application.ScreenUpdating = True
End Sub

rogelinepaula · #2 10-15-2015, 07:15 PM

Quote:

Originally Posted by macropod

See attached. Assuming all the dropdowns are meant to have the same conditional shading outcomes, the included code is all you'll need.

WOW! Thank you so much, Paul! Yes--all the options are meant to have the same shadings. I'll just add the other options and will assign a color. My last question--do you have a link or a quick reference of the list of colors that I can use in VBA? I COULDN'T THANK YOU ENOUGH FOR ALL YOUR HELP.

macropod · #3 10-15-2015, 07:33 PM

Quote:

Originally Posted by rogelinepaula

do you have a link or a quick reference of the list of colors that I can use in VBA?

There are 16,777,216 possible colours, any of which can be specified by using VBA's RGB function. That'd make a pretty big list. That said, the BackgroundPatternColor property comes with a bunch of named presets. You can see what those are by inputting WdColor into the VBE Help screen.

rogelinepaula · #4 10-15-2015, 10:00 PM

Quote:

Originally Posted by macropod

There are 16,777,216 possible colours, any of which can be specified by using VBA's RGB function. That'd make a pretty big list. That said, the BackgroundPatternColor property comes with a bunch of named presets. You can see what those are by inputting WdColor into the VBE Help screen.

Many thanks for all your help, Paul! And to those who have replied as well. Closing this case now. Glad to be part of this community.

Maria Hernandez · #5 01-07-2016, 02:44 PM

So I'm having a similar issue. I have a Word 2013 document, but I've used the "Rich Text Content Control" button for Data Entry. I've also tried with the Legacy tool box text form. But I can't get them to clear without closing and opening the document. My process is, I type the necessary info, print it, then I want to click a button to reset it (clear all controls) but that Eraser doesn't work, nor does this VBA

Sub ClearFormFields()
Dim FF As FormField
For Each FF In ActiveDocument.FormFields
Select Case FF.Type
Case wdFieldFormTextInput
FF.Result = ""
Case wdFieldFormCheckBox
FF.CheckBox.Value = False
Case wdFieldFormDropDown
FF.DropDown.Value = 1
Case Else
' do nothing
End Select
Next
End Sub

Document is not protected, currently saved as a Macro enable Template.

macropod · #6 01-07-2016, 03:54 PM

You say you're using the "Rich Text Content Control" button for Data Entry and that the Document is not protected, but your macro is for use with formfields, not content controls, and formfields only work when a document is protected.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to keep formatted form fields after mail merge or replace text with formatted form fields	jer85	Word VBA	2	04-05-2015 10:00 PM
Reinstalling Office 2013 after factory reset	barryd	Office	1	05-17-2013 04:24 PM
Form Fields in Word	jwm1346	Word	1	04-17-2012 07:02 PM
Preventing Form Fields to Reset	PosseJohn	Word VBA	4	07-15-2011 09:44 PM
Form fields in Word messed up	mba	Word VBA	0	02-07-2010 09:54 PM