word邮件合并后,如何将所有信函分别保存成word?
现在我做好了邮件合并。可是只能保存成一个扩展名为xps的文件,其中列出了所有信函。如何把它们分开保存成为word文档?...
现在我做好了邮件合并。
可是只能保存成一个
扩展名为xps的文件,
其中列出了所有信函。
如何把它们分开保存
成为word文档? 展开
可是只能保存成一个
扩展名为xps的文件,
其中列出了所有信函。
如何把它们分开保存
成为word文档? 展开
4个回答
展开全部
在合并的文件中,新建个宏,把这些代码复制到里面
Sub SaveByPage()
Dim Doc As Document, Rng As Range, Pag As Integer
For Pag = 1 To Selection.Information(wdNumberOfPagesInDocument)
Selection.GoTo what:=wdGoToPage, Name:=Pag
Set Rng = ActiveDocument.Bookmarks("\Page").Range
Set iRng = Selection.Range
Set Doc = Documents.Add(Visible:=False)
Doc.Content = Rng
Doc.SaveAs ActiveDocument.Path & "\" & "第" & Pag & "页.doc"
Doc.ActiveWindow.View.Type = wdPrintView
MsgBox Doc.Range(Doc.Range.End - 1, Doc.Range.End)
Doc.Range(Doc.Range.End - 1, Doc.Range.End).Font.Color = wdColorAutomatic
Doc.Close True
Next
MsgBox "分隔完毕!", vbInformation
End Sub
执行宏
Sub SaveByPage()
Dim Doc As Document, Rng As Range, Pag As Integer
For Pag = 1 To Selection.Information(wdNumberOfPagesInDocument)
Selection.GoTo what:=wdGoToPage, Name:=Pag
Set Rng = ActiveDocument.Bookmarks("\Page").Range
Set iRng = Selection.Range
Set Doc = Documents.Add(Visible:=False)
Doc.Content = Rng
Doc.SaveAs ActiveDocument.Path & "\" & "第" & Pag & "页.doc"
Doc.ActiveWindow.View.Type = wdPrintView
MsgBox Doc.Range(Doc.Range.End - 1, Doc.Range.End)
Doc.Range(Doc.Range.End - 1, Doc.Range.End).Font.Color = wdColorAutomatic
Doc.Close True
Next
MsgBox "分隔完毕!", vbInformation
End Sub
执行宏
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你邮件合并的主文档不要设为信函格式,而是普通的word文档格式;保存到新文档的时候,一个一个记录来,而不是全部记录一起合并到新文档。
追问
谢谢你的回答.我按你的办法,把文档改为普通word文档格式,但这样,邮件合并窗口就自动关闭了。
如果我在邮件合并窗口里选择文件格式,是没有‘普通word文档’这个选项的。只有
信函;信封;标签;目录。 四个选项。
我的版本是2003。。是不是版本太旧的关系?
追答
你是直接在“工具”点“邮件合并”,是吧?
我给你的建议是,你在主文档中,点“视图”——“工具栏”——“邮件合并”,然后会弹出一个邮件合并的工具栏;
你点“打开数据源”,再把光标定位到相应位置点“插入域”;
全部位置都插入完之后,再合并到新文档,一条一条记录来合并。
我个人也是偏好用03版的。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询