EXCEL指定单元格位置写入到Word中

淘朴

        如下Word文档，当Word文档中，蓝色字体部分，是要基于Excel中生成的值，“N0002-出版社”这个中间横杠，分隔的是标题列和标题行中的数据。

        模板表格如下面图。求在Excel中写一个宏， 将Word模板中的数据位置，用Excel表格中对应单元格，生成一个新的文档。

        此命题考虑了通用性的需求。即文档在维护中标题列可能会更新添加。不建议用位置偏移的解法，而是在表格中找到“N0002-出版社”所在的行号、列号，找到位置取值。

EXCEL表格格式如下。求Excel利用模板Word文档，去生成一个结果的数据，以实现Word的数据字段可以动态更新生成。

案例文档.zip (22.22 KB, 下载次数: 15)

2020-10-13 21:44 上传

点击文件名下载附件

_________________________________________________________________________________

谢谢三楼 bajifeng 提供的宏解法  据表格内容对WORD文档内对应内容替换

这个案例，可以作为一个通用的模板，便捷的基于表格标题行、标题列，自动更新Word文件中的数据字段。 三楼解法文件上传如下：

据表格内容对WORD文档内对应内容替换 动态更新Word中的数据(VBA解法).zip (239.08 KB, 下载次数: 48)

2020-10-14 09:39 上传

点击文件名下载附件

bajifeng

>>>>>>>>>>>>>>>>>>>

bajifeng

>>>>>>>>>>>>>>>>>>

淘朴

bajifeng 发表于 2020-10-13 22:15
>>>>>>>>>>>>>>>>>>>

非常感谢贡献精简的代码

淘朴

bajifeng 发表于 2020-10-13 22:12
>>>>>>>>>>>>>>>>>>

请教一下，写的有些表格，这个vb，出现如下图新的错误，有没有方法解决：

字符串参量过长运行时错误5854



Excel 正在等待其他某个应用程序以完成对象链接与嵌入操作

淘朴

bajifeng 发表于 2020-10-13 22:12
>>>>>>>>>>>>>>>>>>

运算失败案例.zip (389.83 KB, 下载次数: 13)

2021-11-5 15:18 上传

点击文件名下载附件

更新运算失败的案例文件

蓝桥玄霜

执行代码前需要关闭模板文件

淘朴

蓝桥玄霜 发表于 2021-11-5 17:21
执行代码前需要关闭模板文件

抄了一遍您的代码，在执行中，还是出现：
运行时错误 :'5584'，字符串参量过长

1. Sub ba()
   
2. Dim ar, i&, d, j%, WordApp, WordDoc, k, t
   
3. ar = Sheet1.[a1].CurrentRegion
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For i = 2 To UBound(ar)
   
6.     For j = 1 To UBound(ar, 2)
   
7.         d(ar(i, 1) & "-" & ar(1, j)) = ar(i, j)
   
8.     Next
   
9. Next
   
10. k = d.keys: t = d.items
    
11. Set WordApp = CreateObject("Word.Application")
    
12. WordApp.Visible = False
    
13. Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\广告文案模板.docx") '工作簿同一目录下的AAA.DOCX
    
14. WordApp.Selection.Find.ClearFormatting
    
15. For i = 0 To d.Count - 1
    
16.     WordDoc.Range.Find.Execute findtext:=k(i), ReplaceWith:=CStr(t(i)), _
    
17.     MatchWildcards:=True, Forward:=True, _
    
18.     Replace:=2, Wrap:=1
    
19. Next
    
20. WordDoc.SaveAs (ThisWorkbook.Path & "\广告文案模板-20211105.docx")
    
21. WordDoc.Close
    
22. WordApp.Quit
    
23. MsgBox "Done!"
    
24. End Sub

复制代码

yonoog

来打酱油!顺道学习!!!!!!!!!!!

aecn

学习EXCEL操作WORD