[RESOLVED] Create document from a template

[Hack]

Here is an example from one of my programs. Modify as necessary.

 With WordObject
     .Documents.Open ("c:\program files\qcap\transmove.doc")     
     .ActiveDocument.Bookmarks("fromlocation").Select
     .Selection.Text = (lblMoveFrom.Caption)
     .ActiveDocument.Bookmarks("tolocation").Select
     .Selection.Text = (lblMoveTo.Caption)
     .ActiveDocument.Bookmarks("numbers").Select
     .Selection.Text = (txtStatus.Text)
     .ActiveDocument.Bookmarks("preparedby").Select
     .Selection.Text = (UCase(UserAccount))
     .ActiveDocument.Bookmarks("comments").Select
     .Selection.Text = (txtComments.Text)
     .ActiveDocument.Bookmarks("movedate").Select
     .Selection.Text = (Today)
    End With

objWord should be outside the With.