如何利用delphi编程实现word文档中指定位置填写数据(100分)

我要在word的表格的指定单元格内写不同的数据如何编程实现

你的问问题不高明，连最起码的条件都没有？添加再解答吧

asp的，需要稍做修改
Dim objWordApp
Dim objWordDoc

Set objWordApp = Server.CreateObject("Word.Application.9")
Set objWordDoc = objWordApp.Documents.Open("c:/test.doc")

Dim workTable
Set workTable = objWordDoc.Tables(i+1)

'加入容纳数据的空行
Dim j
For j = 1 To (ctrctRecCount -1 )
workTable.Rows.Add()
Next
'加入容纳数据的空行
If i = UBound(arShipNames) Then
workTable.Rows.Add()
workTable.Cell(ctrctRecCount+3, 1).Range.Text = "合计"
End If
objWordDoc.SaveAs(sTempPath & "/" & sTempDoc)
objWordDoc.Close
objWordApp.Quit

Set objWordApp = Nothing
Set objWordDoc = Nothing

先声名一个wordapplication的对象wrdapp
wrdapp.Selection.Tables.Item(1).Cell(1, 2).Range.Text := 你想要的数据（字符串）;

Tables.item(x) ：是第x个表格
cell(a,b) ：是第a行，第b列的那个格。
你试试吧，一定好用。

老兄，给咱加上一点分怎么样啊？