If the checkboxes are the only formfields in the document, you could use:
Range("b4").Value = wrd.ActiveDocument.FormFields(1).Result
Range("c4").Value = wrd.ActiveDocument.FormFields(2).Result
Range("d4").Value = wrd.ActiveDocument.FormFields(3).Result
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|