word文档如何另存为啊！！！
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

[解决办法]
在你的代码中 End With 之前加句：

.SaveAs "XXXX"


应该就行了。
"XXXX"是你的新文档的文件名，使用时最好包含完整路径及扩展名。
如果只是个文件名，它应该被保存到“我的文档”中吧。