先查看WORD的对象类库
调用APPLICATION.DOCUMENT的函数,其中有一个文档保存的函数,好象是SAVEAS()

解决方案 »

  1.   

    Selection.Copy
    Documents.Open FileName:="2.doc", ConfirmConversions:=False, ReadOnly:= _
            False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
            "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
            Format:=wdOpenFormatAuto
    Selection.Paste
    ActiveDocument.Save
      

  2.   

    我想这样可以解决  你先用 word宏生产选择的代码。
      然后一般是这样  现 create 一个新对象为 word.document
      然后粘贴上去(如何粘贴你可以看生产得宏)
      调用save
      调用 close