指定保存合并的word文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

合并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()

End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:合并word文档.zip

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

老师好！

出现下面的提示，另外，如果在每个Word文档后面加上分页符，需要怎样处理。

谢谢！

此主题相关图片如下：aa.jpg

Dim dlg As New SaveFileDialog

改成

Dim dlg As New openFileDialog

主题：指定保存 合并的word文件

主题：指定保存合并的word文件