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

rogelinepaula · #16 10-15-2015, 05:27 PM

This is what I have--the N/R is the one from the Legacy Tools and still has 2 more options and the Choose an item is a content control. The arrow beside it is what I am not seeing in the Legacy drop-down to show the options.

rogelinepaula · #17 10-15-2015, 05:32 PM

Quote:

Originally Posted by macropod

If you're referring to the formfield you have against the 'Does the offence involve violence or threat of violence?' question, which is the only such formfield you have in the document, all you need do is apply the 'filling in forms' editing restrictions.

That said, I see that all your other questions have dropdown content controls. You really should stick to one kind of control - formfields and content controls don't work well together. Unlike formfields, content controls don't require the 'filling in forms' editing restrictions to work. And, since you'll need macros for what you want to do, you could just as well use content controls throughout. In some respects, that would make coding for the conditional formatting simpler, too.

I see and thank you--I was really planning to do the content-control because it's a lot easier. For the codes you've helped me with, that will also work with content control right?

macropod · #18 10-15-2015, 05:39 PM

Quote:

Originally Posted by rogelinepaula

For the codes you've helped me with, that will also work with content control right?

No, but it wouldn't require much effort to re-code for use with the content controls. I'll post back with some later.

rogelinepaula · #19 10-15-2015, 05:43 PM

Quote:

Originally Posted by macropod

No, but it wouldn't require much effort to re-code for use with the content controls. I'll post back with some later.

Thank you so much, Paul. I will wait for your update and hopefully you can post a code that's based on the document I've attached earlier and then I'll follow your format for the rest of the content control drop-down boxes. You've been very patient--much appreciated.

macropod · #20 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 · #21 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 · #22 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 · #23 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 · #24 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 · #25 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