VBA程序问题？？

likedanni

Sub Macro8() ChangeFileOpenDirectory "C:\Documents and Settings\Administrator\桌面\" ActiveDocument.SaveAs FileName:="tttt.doc", FileFormat:=wdFormatDocument, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False Application.OrganizerDelete Source:="C:\Documents and Settings\Administrator\桌面\tttt.doc", Name:="NewMacros", Object:=wdOrganizerObjectProjectItems ActiveDocument.Save End Sub 我是把当前的文档另存，然后删掉另存文件中的”NewMacros“模块，但在我关闭文件时还是会弹出是否保存的对话框，我已经使用了 ActiveDocument.Save怎么还会有对话框弹出了？谢谢！

守柔

你可以逐语句运行这段代码，模块的移除是在代码全部执行完后被移除的，而保存却是先于移除。

可以将此代码放在另外的模块中，比如：THISDOCUMENT代码窗口中执行。

Sub kk()

Dim FilePath As String

FilePath = "C:\Documents and Settings\桌面\"

ActiveDocument.SaveAs FileName:=FilePath & "tttt.doc"

Application.OrganizerDelete Source:=ActiveDocument.FullName, Name:="NewMacros", Object:=wdOrganizerObjectProjectItems

ActiveDocument.Save

End Sub

这样的写法更简洁一些。