自己录制的宏，但想改变一下功能，帮忙解决

dig1493

代码如下：想把文件另存，我想问问如果要另存的文件保存路径和主文件是一样的，要用什么代码？最近一直在学习excel，对word了解有限，请大家帮忙了
Sub Macro1()
    ChangeFileOpenDirectory "C:\Documents and Settings\Administrator\桌面\"
    ActiveDocument.SaveAs FileName:="2222.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub

[ 本帖最后由 dig1493 于 2009-7-5 12:01 编辑 ]

yuyvtul

第一行引号中内容用一个空格代替（保留引号）。