求助：如何把已生成的WORD内容插入指定模板中

legend127

求助：如何把已生成的WORD内容插入指定模板中
求助.rar (20.88 KB, 下载次数: 6)

2023-7-11 12:09 上传

点击文件名下载附件

taller

请学习一下Word功能“邮件合并”

梧叶沙沙

使用插件【Excel魔方】，可以完美解决。




下面是操作演示，很简单：

梧叶沙沙

Excel魔方，简单易用，更多功能更新中

yuyubiao

参考一下我之前做的这个，你这个可以把模板直接嵌入到excel里面

legend127

梧叶沙沙 发表于 2023-7-11 13:33
使用插件【Excel魔方】，可以完美解决。

谢谢 梧叶沙沙

legend127

yuyubiao 发表于 2023-7-11 14:35
参考一下我之前做的这个，你这个可以把模板直接嵌入到excel里面

谢谢 yuyubiao

legend127

taller 发表于 2023-7-11 12:45
请学习一下Word功能“邮件合并”

收到，谢谢taller版主

legend127

1. Sub 生成公示文件()
   
2. Dim arr, i&, j&, s$
   
3. arr = [a1].CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     For j = 1 To UBound(arr, 2)
   
6.         s = IIf(s = "", arr(i, j), s & arr(i, j))
   
7.     Next
   
8.     s = s & "；" & Chr(10)
   
9. Next
   
10. Dim wordapp As Object
    
11. Set wordapp = CreateObject("word.application")
    
12. With wordapp
    
13.     .Documents.Add
    
14.     .Selection.TypeText s
    
15.     .ActiveDocument.SaveAs ThisWorkbook.Path & "\通知.doc"
    
16. End With
    
17. wordapp.Quit
    
18. Set wordapp = Nothing
    
19. End Sub

复制代码