>with goWord.Selection
> .Style = "Normal"
> .Font.Underline = wdunderlinesingle
> .InsertAfter(" Paul Montgomery")
>endwith
>
>I am getting the error message "Variable 'WDUNDERLINESINGLE' is not found.

Are you #DEFINEing that constant anywhere? If not, you need to take care of that. You can either go spelunking through Word's Object Browser, or use the list of Word constants that I posted to the files section here (or df's list on his website.).

>Paul Montgomery
>
>I can't complain, but sometimes I still do - Joe Walsh

Note: it's better to put this in your account configuration, so it isn't included in replies.....