Merge med Word

Jeg har en ældre applikation der er lavet i Access 2003.
Den skal jeg nu have til at køre i 2007
Jeg har nedenstående kode der danner en RTF fil som jeg bruger som input til min Word template når jeg fletter.
Det fungerer sådan set meget fint bortset fra at Word åbnes uden nogen som helst form for menuer. Og det kan jeg ikke lige gennemskue hvorfor.


  Const conTemplateName As String = "~12abcf.dot"
  Const conSourceName As String = "datainput.rtf"
  Dim strDataSource As String
  Dim strDocument As String
  Dim appWord As Object
  Dim docWord
  Dim NewDoc
     
  strDocument = Folders.Name(dirOutput) & conTemplateName
  fhpFile_Copy strTemplate, strDocument, False
  strDataSource = Folders.Name(dirExport) & conSourceName
  DoCmd.OutputTo acOutputQuery, conQuery_Job_App, acFormatRTF, strDataSource
   
  Set appWord = CreateObject("Word.Application")
  appWord.Documents.Add strDocument
  Set docWord = appWord.ActiveDocument
  docWord.MailMerge.OpenDataSource Name:= _
        strDataSource, ConfirmConversions:=False, _
        ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:="", SQLStatement:="", SQLStatement1:=""
   
  docWord.MailMerge.Destination = wdSendToNewDocument
  docWord.MailMerge.Execute
   
  Set NewDoc = appWord.ActiveDocument
  docWord.Close wdDoNotSaveChanges
  appWord.WindowState = wdWindowStateMaximize
  appWord.visible = True
  appWord.Activate