Sub SaveAsRTF()
'
' SaveAsRTF Macro
'
'
    ChangeFileOpenDirectory _
        ActiveDocument.Path
    ActiveDocument.SaveAs2 FileName:=ActiveDocument.Name & ".RTF", FileFormat:= _
        wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, CompatibilityMode:=0
    ActiveDocument.Close
End Sub