Could you tell us what you want to know? Is the code not working somewhere?
>ChangeFileOpenDirectory "C:\"
> ActiveDocument.SaveAs FileName:="test1.rtf", FileFormat:=wdFormatRTF, _
> LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
> :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
> SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
> False