怎么把邮件合并好的文档在一页打印多条单？急！！！！！

unison · 发表于 2005-1-13 11:52

先多谢各位！

8GxIv9kl.rar (39.44 KB, 下载次数: 35)

守柔 · 发表于 2005-1-13 12:13

欢迎unison的到来，请参：

http://club.excelhome.net/viewthread.php?tid=16729&replyID=342127&skin=1

unison · 发表于 2005-1-13 13:51

不明白。不如你帮我整哈吗？

unison · 发表于 2005-1-13 15:07

还有我在文档中查找分节符替换为人工换行符。不行呢？

求哪位大虾帮我解决一下。

rzhukI0V.rar (31.21 KB, 下载次数: 13)

[此贴子已经被作者于2005-1-13 15:15:45编辑过]

守柔 · 发表于 2005-1-14 06:16

的确用查找替换的方法,有问题,原因我将作进一步分析.

还是用代码解决来得快.请看:

'* +++++++++++++++++++++++++++++++++++++++

'* Created By 守柔(ShouRou)@ExcelHome 2005-1-14 6:13:25

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub Example() Dim i As Section On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 Options.Pagination = False '禁止后台分页 For Each i In Me.Sections '在所有节中循环 Me.Range(i.Range.End - 1, i.Range.End - 1).Delete '删除分节符 Next Options.Pagination = True '恢复后台分页 Application.ScreenUpdating = True '恢复屏幕更新 End Sub '---------------------- 这是修改后的文档,你再处理一下:

cfbpjCU9.rar (55.68 KB, 下载次数: 25)

注意:以后这种情况应该在邮件合并的主控文档中解决,用NEXT域,可以每页生成指定数量的记录.

类似情况请参:http://club.excelhome.net/viewthread.php?tid=54513&replyID=248691&skin=1

也是一个分节符的问题,但链接中可以查找与替换.

[此贴子已经被作者于2005-1-14 6:18:44编辑过]

unison · 发表于 2005-1-14 09:21

多谢守柔版主。

办公之星 · 发表于 2005-1-14 10:05

请参：

邮件合并两模式——多信函与列表：http://club.excelhome.net/viewthread.php?tid=43112

		自动登录	找回密码
密码			免费注册