主题：[求助]代码

 新增一个word

Dim app As New MSWord.Application
'新建文档
Dim missing = System.Reflection.Missing.Value
Dim nDoc = App.Documents.Add(missing, missing, missing, missing)
nDoc.SaveAs("d:\test.doc")
app.quit
msgbox("新建word成功")

 删除一个文件

http://www.foxtable.com/help/topics/0338.htm