![]() |
|
#1
|
|||
|
|||
![]()
I didn't test those and I suppose they work, but I don't see the point of strCheckBoxName or bCheckBoxValue or rngCheckBoxSlct??
Code:
Sub Test() Dim lngIndex As Long Dim oFld As FormField If Not ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Unprotect Password:="" End If For lngIndex = ActiveDocument.FormFields.Count To 1 Step -1 Set oFld = ActiveDocument.FormFields(lngIndex) If oFld.Type = wdFieldFormCheckBox Then If oFld.CheckBox.Value = True Then oFld.Range.Text = "1" Else oFld.Range.Text = "0" End If Else oFld.Range.Text = oFld.Result End If Next lbl_Exit: Exit Sub End Sub |
#2
|
||||
|
||||
![]()
They are unnecessary but included to demonstrate the uses of variables the OP had attempted to use. Sledgehammers to crack a nut.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
![]() |
Tags |
checkbox, formfields |
Thread Tools | |
Display Modes | |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Issue Using FormFields.Result | boCash | Word VBA | 0 | 04-04-2017 12:54 PM |
Updating/Locking FormFields | Maskot | Word VBA | 4 | 06-24-2015 04:40 AM |
Macro to find coloured text and replace with form-field/formtext containing that text | tarktran | Word VBA | 1 | 11-26-2014 08:12 AM |
![]() |
Liosis | Mail Merge | 4 | 03-07-2014 12:56 PM |
Renaming Word Formfields: string too long error | silverspr | Word VBA | 7 | 01-22-2013 06:20 PM |