- 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=132706)
-- 发布时间：2019/3/27 22:40:00
-- 指定保存 合并的word文件
合并word文件后，设定保存文件名称可以，下面的指定路径和文件名称保存不行，请老师看一下应该怎样调整？
谢谢！
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
If tr.Nodes.Count = 0 Then
MessageBox.Show("没有添加文档!", "提示")
Else
Dim app As New MSWord.Application
Dim nn As WinForm.TreeNode
Dim ere As Integer = tr.Nodes.Count - 1
Dim bb As Integer
For bb = 0 To ere
nn = tr.Nodes(bb)
app.Documents.open(nn.Text)
app.Documents(nn.Text).Activate
app.ActiveDocument.Content.Select
app.Selection.Copy
app.Documents(nn.Text).close
app.Documents.Open(ProjectPath & "合并.docx") ’设定保存文件名称可以，下面的指定路径和文件名称保存不行
\'Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
\'dlg.Filter= "word|*.doc" \'设置筛选器
\'dlg.FileName = "合并.doc"
\'If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
\'MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
\'End If
\'app.Documents.Open(dlg.FileName)
app.Visible = True
app.Selection.Paste()
Next
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:合并word文档.zip |
-- 发布时间：2019/3/27 22:58:00
--
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
If tr.Nodes.Count = 0 Then
MessageBox.Show("没有添加文档!", "提示")
Else
Dim app As New MSWord.Application
Dim nn As WinForm.TreeNode
Dim ere As Integer = tr.Nodes.Count - 1
Dim bb As Integer
For bb = 0 To ere
nn = tr.Nodes(bb)
app.Documents.open(nn.Text)
app.Documents(nn.Text).Activate
app.ActiveDocument.Content.Select
app.Selection.Copy
app.Documents(nn.Text).close
\'app.Documents.Open(ProjectPath & "合并.docx") \'设定保存文件名称可以,下面的指定路径和文件名称保存不行
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "word|*.doc" \'设置筛选器
dlg.FileName = "合并.doc"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
app.Documents.Open(dlg.FileName)
app.Visible = True
app.Selection.Paste()
Else
app.Visible = True
End If
Next
End If
-- 发布时间：2019/3/28 7:43:00
--
老师好！
出现下面的提示，另外，如果在每个Word文档后面加上分页符，需要怎样处理。
谢谢！
此主题相关图片如下：aa.jpg
-- 发布时间：2019/3/28 11:06:00
--
Dim dlg As New SaveFileDialog
改成
Dim dlg As New openFileDialog
-- 发布时间：2019/3/28 11:13:00
--
插入分页符，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=79113&skin=0