VB如何在WORD.DOT表格插入相关数据

Question

我现在已经可打开并保存word模板了，但是我要在模板的表格中插入数据，怎么定位？
如果已经有表格了，现在可以用书签或者其他方式来实现么？

Answer 1

在表格中定位还好一些。
首先确定表格
然后
对象.cell(rowindex,colindex).text
即可。

好人做到底，发给你一个实例吧：
Private Sub cmdExport_Click()
Dim i As Integer, j As Integer
Dim ifieldcount As Integer, irecordcount As Integer
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Dim atable As Word.Table
cmdFind_Click
If Adodc1.Recordset.RecordCount > 0 Then
irecordcount = Adodc1.Recordset.RecordCount
'创建word应用程序，这一句话打开word2000
Set wdapp = CreateObject("Word.Application")
'在word中添加一个新文档
Set wddoc = wdapp.Documents.Add
With wdapp
.Visible = True

.Activate
'在word中增加一个表格
.Caption = "送检表"
Set atable = .ActiveDocument.Tables.Add(.Selection.Range, irecordcount + 1, 7)
atable.Cell(1, 1).Range.InsertAfter "物资编号"
atable.Cell(1, 2).Range.InsertAfter "物资名称"
atable.Cell(1, 3).Range.InsertAfter "规格型号"
atable.Cell(1, 4).Range.InsertAfter "批号或炉号"
atable.Cell(1, 5).Range.InsertAfter "送检数量"
atable.Cell(1, 6).Range.InsertAfter "进货日期"
atable.Cell(1, 7).Range.InsertAfter "送检时间"
'指定表格内容
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
atable.Cell(DataGrid1.Bookmark + 1, 1).Range.InsertAfter Adodc1.Recordset.Fields("物资编号")
atable.Cell(DataGrid1.Bookmark + 1, 2).Range.InsertAfter Adodc1.Recordset.Fields("物资名称")
atable.Cell(DataGrid1.Bookmark + 1, 3).Range.InsertAfter Adodc1.Recordset.Fields("规格型号")
If Adodc1.Recordset.Fields("批号或炉号") <> "" Then atable.Cell(DataGrid1.Bookmark + 1, 4).Range.InsertAfter Adodc1.Recordset.Fields("批号或炉号")
atable.Cell(DataGrid1.Bookmark + 1, 5).Range.InsertAfter Adodc1.Recordset.Fields("数量")
If Adodc1.Recordset.Fields("进货日期") <> "" Then atable.Cell(DataGrid1.Bookmark + 1, 6).Range.InsertAfter Adodc1.Recordset.Fields("进货日期")
If Adodc1.Recordset.Fields("送检时间") <> "" Then atable.Cell(DataGrid1.Bookmark + 1, 7).Range.InsertAfter Adodc1.Recordset.Fields("送检时间")
Adodc1.Recordset.MoveNext
Loop
End With
'清除word对象
Set wdapp = Nothing
Set wddoc = Nothing
Else
MsgBox "没有送检物资！", , "提示窗口"
End If
End Sub

问题补充：如果已经有表格了，现在可以用书签或者其他方式来实现么？
可能我直接获取新建表格对象误导了你，如果已有表格，也有很多办法，常用的是通过从tables集合中获取表格对象。如此句：Set atable = .ActiveDocument.Tables.Add(.Selection.Range, irecordcount + 1, 7)
可以改成：
Set atable = .ActiveDocument.Tables（1）
即通过表格索引（第几个表格）来获得表格对象，接下来的赋值操作还是一样的。
当然通过书签也可以，如果表中要修改的数据不多且不需要一般循环的话。

Answer 2

我的做法是：在模板内需要插入数据的地方作标识(如：第1行第1列，标识为：#NF #表示年份），当你要更新数据时，只要把标识替换为实际数据就可以了(如#NF #替换为2008年即可。)

我这里有一个把模板数据进行替换，然后显示输出的源码，你不妨下载回去研究研究：
http://www.fileurls.com/download.ashx?id=qfokru

Answer 3

Sub 修改单元格()

Selection.Tables(1).Cell(2, 4).Select

Selection.TypeText Text:="ABCDEFG"

End Sub