Dim oWord As Word.Application
 
Private Sub Command2_Click()
    Set oWord = New Word.Application
 
    Call oWord.Documents.Open(App.Path + "\Test.rtf")
    Call oWord.ActiveDocument.SaveAs(App.Path + "\Test.doc", wdFormatDocument)
    oWord.Quit
 
    Set oWord = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1