- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 点击按钮新建Word (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74037)
-- 发布时间：2015/9/1 0:29:00
-- 点击按钮新建Word
此主题相关图片如下：添加项目.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学习计划.rar |
问问大家 可以点击添加项目后 在弧表本身文件夹里面建立一个学习类型文本框里面
的文字命名的文件夹，然后在新建的这个文件夹类型文件夹里面建一个以学习名称命
名的word吗？然后把新建的word路径显示到路径列中 感谢 感谢
-- 发布时间：2015/9/1 9:56:00
--
新建一个文档，参考
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成功")
-- 发布时间：2015/9/1 10:45:00
--
感谢，感谢。还在外面的。回去就搞。感谢，感谢
-- 发布时间：2015/9/1 18:16:00
--
感谢 感谢 如果新建的word用TextBox4里面的内容命名，同时新建一个文件夹， 文件夹就在这个“学习计划”项目的同一个文件夹里面，用ComboBox4里面文字命名，而这个新建的word就在这个文件夹里面。感谢 感谢
[此贴子已经被作者于2015/9/1 18:51:16编辑过]
-- 发布时间：2015/9/1 18:48:00
--
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成功")
Dim nr As Row = Tables("表A").AddNew
nr("文件路径") = "d:\\test.doc"
-- 发布时间：2015/9/1 18:56:00
--
nDoc.SaveAs("d:\\test.doc")
如果改为路径文件不确定的 怎么改啊 比如 D盘 改为项目在的路径，中间还有一个路径 ，就是在这个项目新建一个文件夹，用ComboBox4里面的内容命名，test.doc用TextBox4里面的文字命名 感谢 感谢
-- 发布时间：2015/9/1 18:58:00
--
nDoc.SaveAs(ProjectPath & e.Form.Controls("ComboBox4").Text & "/" & e.Form.Controls("TextBox4").Text)
-- 发布时间：2015/9/1 19:05:00
--
吃饭了吗？要报警 不知道是那里的问题 感谢 感谢
此主题相关图片如下：a.png
Dim dr As DataRow = DataTables("表B").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")
nDoc.SaveAs(ProjectPath & e.Form.Controls("ComboBox4").Text & "/" & e.Form.Controls("TextBox4").Text)
app.quit
msgbox("新建word成功")
-- 发布时间：2015/9/1 19:34:00
--
Dim dr As DataRow = DataTables("表B").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
nDoc.SaveAs(path & "/" & e.Form.Controls("TextBox4").Text & ".doc")
app.quit
msgbox("新建word成功")
-- 发布时间：2015/9/1 19:51:00
--
太感谢了！！就是这个功能 ，在问问 如果我想把新建的这个word 的路径显示到表B的 “路径”列
比如 输入选择 专业 经济学 点击按钮 在专业的文件夹里面新建了经济学 ，然后可以把经济学这个文件夹的路径显示到 表B的路径列里面吗 ？
路径就是 ProjectPath & "专业\\经济学.doc" 当在设计其他按钮的时候方便打开路径或者word文件。
感谢 感谢