Dim wdapp As New Word.Application
        wdapp.Documents.Open(pfad)
 
        Dim dialog As Word.Dialog = wdapp.Dialogs( _
          Word.WdWordDialog.wdDialogFileSaveAs)
        dialog.name = "C:\Testsave.doc"
        dialog.Show()

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov