This example assigns the macro named "Reformat" to the first form field in the selection.
If Selection.FormFields.Count > 0 Then _
Selection.FormFields(1).ExitMacro = "Reformat"
This example assigns the macro named "Blue" to the last form field in "Form.doc."
iMax = Documents("Form.doc").FormFields.Count
Documents("Form.doc").FormFields(iMax).ExitMacro = "Blue"