Dim dr As DataRow = DataTables("日计划").addnew
dr("学习类型")=e.form.controls("ComboBox4").text
dr("学习名称")=e.form.controls("TextBox4").text
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")
Dim path As String = ProjectPath & e.Form.Controls("ComboBox4").Text
If FileSys.DirectoryExists(path) = False
filesys.CreateDirectory(path)
End If
dr("文件路径") = path & "/" & e.Form.Controls("TextBox4").Text & ".doc"
nDoc.SaveAs(path & "/" & e.Form.Controls("TextBox4").Text & ".doc")
app.quit
msgbox("新建word成功")
老师好，上面按钮代码反应太慢要好长时间。
加好友 
发短信
Post By：2016/9/19 13:29:00 [显示全部帖子]
