[讨论]请看看这个问题怎么样解决啊？？？

安心改造

我在word中通过插入域，将excel资料表中的相关信息调用到word中了，但是有个问题，怎么样才可以将
合并后的word文档，以编号（插入后的域值）或者单位名称（插入后的域值）为文件名称，给其一个路径来自动保存？ 保存后的word文件应该有6个。 dqF0qUVQ.rar (4.96 KB, 下载次数: 11)

2006-12-8 19:46 上传

点击文件名下载附件
[讨论]请看看这个问题怎么样解决啊？？？

konggs

在合并后的文档中运行此代码。

'合并后每一节单独为一个文档
Sub 合并后单独一个文档()
   
    On Error GoTo handler:
    Dim Sen As Section      '节号
    Dim oldDoc As Document  '原文档
    Dim newDoc As Document  '新文档
    Dim fileName As String  '文件名
    Const filePath = "C:\"  '存储路径，根据实际情况改一下
   
    Application.ScreenUpdating = False
   
    Set oldDoc = ActiveDocument
    For Each Sen In oldDoc.Sections
        Sen.Range.Copy '复制本节内容
        '具体文件名，根据实际情况改一下
        fileName = Sen.Range.Paragraphs(4).Range '以第4段的内容
        fileName = Mid(fileName, 6, Len(fileName) - 6) '去年前5个字符，从第6个开始计算
        Set newDoc = Documents.Add '添加新文档
        With newDoc
            .Content.Paste '内容复制过来
            .SaveAs filePath & fileName & ".doc" '存盘
            .Close '关闭
        End With
    Next
    Application.ScreenUpdating = True
   
handler:
    Application.ScreenUpdating = True
   
End Sub

安心改造

高啊!谢谢了,我回去试试,再恢回复结果哈!

安心改造

因为有时合并的文件页面有好多页,所以就要以编号或名称为文件名分别保存为WORD文件,刚才的一段代码只能够生成合并后的当前页文件,请看看还有没有更好的办法啊

konggs

请耐心＋细心看看。我的说明“在合并后的文档中运行此宏。”

有兴趣的同志也帮我测试一下。谢谢。

安心改造

首先谢谢konggs版主的帮助，我在konggs版主的基础上添加了一些，倒是可以实现循环6次，结果也有6个我想要得到的文件，还有一个问题，我类似的还有一个合并后有590多条纪录，共用了240多个域，页面有7页，我循环了50次，用了10分钟，请看看还有什么办法可以节省时间啊！

'合并后每一节单独为一个文档
Sub 合并后单独一个文档()
    Dim works, Charsg
For works = 6 To 1 Step -1
    On Error GoTo handler:
    Dim Sen As Section      '节号
    Dim oldDoc As Document  '原文档
    Dim newDoc As Document  '新文档
    Dim fileName As String  '文件名
    Const filePath = "f:\"  '存储路径，根据实际情况改一下
   
    Application.ScreenUpdating = False
   
    Set oldDoc = ActiveDocument
    For Each Sen In oldDoc.Sections
        Sen.Range.Copy '复制本节内容
        '具体文件名，根据实际情况改一下
        fileName = Sen.Range.Paragraphs(1).Range '以第1段的内容
        fileName = Mid(fileName, 4, Len(fileName) - 4) '去年前3个字符，从第6个开始计算
        Set newDoc = Documents.Add '添加新文档
        With newDoc
            .Content.Paste '内容复制过来
            .SaveAs filePath & fileName & ".doc" '存盘
            .Close '关闭
        End With
    Next
    Application.ScreenUpdating = True
   
handler:
    Application.ScreenUpdating = True
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
   
    Next works
End Sub

konggs

第一，我想可能是我没说清楚。是在合并后的文档，不是原来的文档。

第二，注意：合并后的文档是6页。

第三，通常给别人的代码，我们写代码的至少测试了一遍。

如果肯定不行不会放上的，这个你应该相信。所以，。。。

安心改造

谢谢版主了，我再好好看看，我原来没有接触过VBA的，慢慢学习中，谢谢！！！

安心改造

谢谢konggs版主的帮助，问题已经解决了！也谢谢大家的关注！！！