Macro to copy data in form field

[ChrisK]

I've been trying to have a macro run when a check box is checked. The macro
would copy data from previous fields on the form and insert it in another
field on the form. i.e. custname to projname, custadd to projadd etc. Can
anyone offer a suggestion?

Thanks

 

[Graham Mayor]

You can run a macro on exit from a form field including a check box field eg

Sub IsChecked()
If ActiveDocument.FormFields("Check1").CheckBox.Value = True Then
ActiveDocument.FormFields("projname").Result = _
ActiveDocument.FormFields("custname").Result
ActiveDocument.FormFields("projadd").Result = _
ActiveDocument.FormFields("custadd").Result
Else
ActiveDocument.FormFields("projname").Result = ""
ActiveDocument.FormFields("projadd").Result = ""
End If

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[ChrisK]

Thanks works like a charm!!

You can run a macro on exit from a form field including a check box field eg

Sub IsChecked()
If ActiveDocument.FormFields("Check1").CheckBox.Value = True Then
ActiveDocument.FormFields("projname").Result = _
ActiveDocument.FormFields("custname").Result
ActiveDocument.FormFields("projadd").Result = _
ActiveDocument.FormFields("custadd").Result
Else
ActiveDocument.FormFields("projname").Result = ""
ActiveDocument.FormFields("projadd").Result = ""
End If

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>