Re: Forms



James
07-10-2005, 12:01 AM
Hello Greg,

Thanks for the help!
After I submitted the new form my boss told me that she now wants a
Wizard to generate a dynamic form.

When will this madness end! lol

I appreciate the help!

Thanks again!

James




Greg Maxey wrote:
> James,
>
> This makes it a little more general. You can run the FiledID macro on all
> textform fields after the Initials field.
>
>
> Sub FieldID()
> Dim myString As String
> Dim pFldName As String
> myString = ActiveDocument.FormFields("Text1").Result
> If Selection.FormFields.Count = 1 Then
> pFldName = Selection.FormFields(1).Name
> ElseIf Selection.FormFields.Count = 0 And Selection.Bookmarks.Count > 0 Then
> pFldName = Selection.Bookmarks(Selection.Bookmarks.Count).Name
> End If
> ActiveDocument.FormFields(pFldName).Result = myString & " " _
> & Format(Date, "mm/dd/yy") & ": "
> Selection.Move Unit:=wdCharacter, Count:=15
> End Sub
>


Re: Forms