Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4472|回复: 9

[已解决]VBA批量打印客户信息到WORD模板

[复制链接]
发表于 2017-5-11 20:24 | 显示全部楼层 |阅读模式
本帖最后由 诺然偶然 于 2017-5-13 22:25 编辑

需要把excel里面的客户信息批量打印
1 每个客户一个word文件,模板如图,需要把XX替换成客户信息
2 每个客户通知单各自新建一个word
3 批量打印
前两步必须要得,第三步不要也行,附图,求大神指点,感激不尽
最佳答案
2017-5-11 21:23
本帖最后由 france723 于 2017-5-11 21:27 编辑

我设定的页名是"01", 自己改. 文字内容也自己改动
  1. Sub test()
  2. Dim y, ar, n
  3. With Sheets("01")
  4. y = .Range("a65536").End(xlUp).Row
  5. ar = .Range("a1:c" & y)
  6. End With
  7. For n = 2 To y
  8. Dim wordapp As Object, i
  9. Set wordapp = CreateObject("word.application")
  10. With wordapp
  11. .documents.Add
  12.     With .Selection
  13.     .TypeText Text:="                                            Notice"
  14.     .TypeParagraph
  15.     .TypeText Text:=ar(n, 1) & " hello, your house " & ar(n, 3) & " need to pay " & ar(n, 2) & " thank you"
  16.     End With
  17. .activedocument.SaveAs Filename:=ThisWorkbook.Path & "" & ar(n, 1) & ".docx"
  18. End With
  19. wordapp.Quit
  20. Set wordapp = Nothing
  21. Next n
  22. End Sub
复制代码
WORD样板.png
客户信息.png

批量打印.zip

14.9 KB, 下载次数: 23

发表于 2017-5-11 20:35 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2017-5-11 20:45 | 显示全部楼层
回复

使用道具 举报

发表于 2017-5-11 20:57 | 显示全部楼层
去百度一下学习
回复

使用道具 举报

 楼主| 发表于 2017-5-11 21:20 | 显示全部楼层
qqyyh 发表于 2017-5-11 20:57
去百度一下学习

非常感谢,学习了,授人以渔
回复

使用道具 举报

发表于 2017-5-11 21:23 | 显示全部楼层    本楼为最佳答案   
本帖最后由 france723 于 2017-5-11 21:27 编辑

我设定的页名是"01", 自己改. 文字内容也自己改动
  1. Sub test()
  2. Dim y, ar, n
  3. With Sheets("01")
  4. y = .Range("a65536").End(xlUp).Row
  5. ar = .Range("a1:c" & y)
  6. End With
  7. For n = 2 To y
  8. Dim wordapp As Object, i
  9. Set wordapp = CreateObject("word.application")
  10. With wordapp
  11. .documents.Add
  12.     With .Selection
  13.     .TypeText Text:="                                            Notice"
  14.     .TypeParagraph
  15.     .TypeText Text:=ar(n, 1) & " hello, your house " & ar(n, 3) & " need to pay " & ar(n, 2) & " thank you"
  16.     End With
  17. .activedocument.SaveAs Filename:=ThisWorkbook.Path & "" & ar(n, 1) & ".docx"
  18. End With
  19. wordapp.Quit
  20. Set wordapp = Nothing
  21. Next n
  22. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2017-5-13 22:22 | 显示全部楼层
france723 发表于 2017-5-11 21:23
我设定的页名是"01", 自己改. 文字内容也自己改动

这两天有点忙,非常感谢大神帮忙,等我明天去试下
回复

使用道具 举报

 楼主| 发表于 2017-5-14 10:11 | 显示全部楼层
france723 发表于 2017-5-11 21:23
我设定的页名是"01", 自己改. 文字内容也自己改动

您好,刚刚试了下,说是下标越界??
回复

使用道具 举报

发表于 2017-5-15 13:00 | 显示全部楼层
邮件合并可以搞定!
回复

使用道具 举报

 楼主| 发表于 2017-5-15 13:20 | 显示全部楼层
hhzjxss 发表于 2017-5-15 13:00
邮件合并可以搞定!

嗯嗯,可以的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 21:12 , Processed in 0.956353 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表