word文档如何另存为啊！！！

Question

 Dim word1Obj    '定义一个变量
    Set word1Obj = CreateObject("Word.Application")            '创建一个word对象
    With word1Obj.Documents.Open("c:\文档\PO单\PO单.docx")     '打开word文档
         word1Obj.Visible = True
         
        .Content.Find.Execute "合作类型1", , , , , , , , , Combo1.Text      '将文档中的a替换为Text文本框的内容
        .Content.Find.Execute "订单类型1", , , , , , , , , Combo2.Text
        .Content.Find.Execute "订单号1", , , , , , , , , Text1.Text
        .Content.Find.Execute "性质1", , , , , , , , , Combo7.Text
                  
    End With

Answer 1

现在可以打开，正常编辑好，但是我想另存为docx文件这么做呢？谢谢啊

Answer 2

在你的代码中 End With 之前加句：.SaveAs "XXXX"
应该就行了。
"XXXX"是你的新文档的文件名，使用时最好包含完整路径及扩展名。
如果只是个文件名，它应该被保存到“我的文档”中吧。

Answer 3

晕  我怎么居然忘记 在end with之前 应该 saveas的。
谢谢谢谢