用VBA定位word模板中的表格并填充数据

显示全部楼层 · 2010-12-4 00:24:27

我想用VBA向一个word模板中的表格里添加数据。
我的问题是：
1. word模板中有多张表格，我应该怎样用VBA定位。
2. 表格很复杂，有很多的合并单元格，而且项数也很多，我应该怎样定位特定的单元格
PS: 我用书签定位单元格，但项数太多了，上百项呀，不方便

千问 · 2010-12-4 00:24:27

给你段示例，你再接着完善你的：
Dim wdApp As Word.Application '定义WORD对象
Dim wdDoc As Word.Document '定义WORD文档对象
Dim wkSheet As Worksheet '定工作表对象
Dim I As Long
'实例化WORD对象
Set wdApp = New Word.Application
'创建WORD文档
Set wdDoc = wdApp.Documents.Add
'给工作表变量赋值
Set wkSheet = ThisWorkbook.Sheets(

千问 · 2010-12-4 00:24:27

如果可以的话，建议将表格截图上传看看。如果表格有相应的“标题项”名称，可以考虑用“查找和替换”来进行定位，再将相应的“数据”录入到其后的单元格即可。