Imports Word = Microsoft.Office.Interop.Word

Dim WordApp As Word.Application 
 
' prüfen, ob Word schon aktiv --> 
Try 
WordApp = GetObject(, "Word.Application") 
Catch 
WordApp = New Word.Application 
End Try 
 
With WordApp 
 
    ' Word anzeigen 
    .Application.Visible = True 
    .Application.Activate() 
 
    ' Word-Dokument laden und anzeigen 
    .Documents.Add("M:\.....\xxx.dot", NewTemplate:=False) 
 
    .ActiveDocument.Activate() 
 
    ' Speicher-unter-Dialog mit voreingestelltem Pfad und Dateinamen -->
    With .Dialogs(Word.WdWordDialog.wdDialogFileSaveAs)
        .Name = "M:\.....\xxx..doc"
        .Show()
    End With
 
 End With
 
 WordApp = Nothing