Mit Word eine *.rtf öffnen und abspeichern unter *.doc

[binio]

Super Idee auch für die Zukunft danke:
Hab das mal gemacht und sowas rausbekommen:

Delphi-Quellcode:

Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 17.08.2006 von Robert Slowikowski
'
    ChangeFileOpenDirectory "C:\"
    Documents.Open FileName:="test.rtf", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto
    ActiveDocument.SaveAs FileName:="test.doc", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub

ich denke man kann vieles weglassen und daraus ist dann das geworden:

Delphi-Quellcode:

Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 17.08.2006 von Robert Slowikowski
'
    Documents.Open FileName:="c:\test.rtf", ConfirmConversions:=False, Format:=wdOpenFormatAuto
    ActiveDocument.SaveAs FileName:="c:\test.doc", FileFormat:=wdFormatText, AddToRecentFiles:=True
End Sub

Meine Frage nun ... wie geht es weiter ?