- 再也不做稀饭了
-
将邮件合并模板首行设置为内置格式标题1级别,保存模板到一个文件夹中,合并为新文档后,进入插入大纲视图,拆分子文档,则每个在文件夹中生成多个以一级标题为名的子文档。
具体操作如下:
1、首先单击【邮件】选项卡,按下图设置选择收件人。
2、找到存放基础表的位置,按提示选取数据源。
3、单击【视图】选项卡,选择【大纲视图】。
4、选中文档标题,点击【大纲】选项卡,设置大纲级别为【1级】。
5、切换到【邮件】选项卡,依次单击各个空白单元格,插入合并域。另外在标题之前插入“姓名”域代码(此处不是必选项,可根据需要选择)。
6、再单击【完成并合并】和【编辑单个文档】,此时即可生成一个名为“信函1”的word文档。。
7、在【大纲】视图下,按ctrl+a全选内容,按下图设置,创建子文档。
点击保存按钮,将“信函1”文档保存为“总表.docx”。目录下即生成了由员工姓名命名的多个子文档。
- 左迁
-
你会用邮件合并吗,先打开模板,然后选择需要链接的数据库,然后自动填充,然后合并输出,生成的就是你需要的多个文档(一个文件多页),如果需要把每个页分成一个文档一个文档,需要宏命令解决。
如何把一个word多页文档拆分为单页或多页(宏命令)
Option
Explicit
Sub
SplitPagesAsDocuments()
Dim
oSrcDoc
As
Document,
oNewDoc
As
Document
Dim
strSrcName
As
String,
strNewName
As
String
Dim
oRange
As
Range
Dim
nIndex
As
Integer
Dim
fso
As
Object
Set
fso
=
CreateObject("Scripting.FileSystemObject")
Set
oSrcDoc
=
ActiveDocument
Set
oRange
=
oSrcDoc.Content
oRange.Collapse
wdCollapseStart
oRange.Select
For
nIndex
=
1
To
ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target
=
wdBrowsePage
Application.Browser.Next
strSrcName
=
oSrcDoc.FullName
strNewName
=
fso.BuildPath(fso.GetParentFolderName(strSrcName),
_
fso.GetBaseName(strSrcName)
&
"_"
&
nIndex
&
"."
&
fso.GetExtensionName(strSrcName))
Set
oNewDoc
=
Documents.Add
Selection.Paste
oNewDoc.SaveAs
strNewName
oNewDoc.Close
False
Next
Set
oNewDoc
=
Nothing
Set
oRange
=
Nothing
Set
oSrcDoc
=
Nothing
Set
fso
=
Nothing
MsgBox
"结束!"
End
Sub
- CarieVinne
-
首先你是已经做好了套打的邮件合并,点击完成并合并中第一项编辑单个文档。自动生成所有WORD文件。但是是在一个WORD中,如果还需要再拆分。又是另外的公式