高手请帮忙：我想使用VB6自动填写word中相应位置的内容，如何操作啊？

Question

例如我要做一个大的客户发货单。同时包括很多信息，包括客户单位，地址，联系人，货品名称，价格。这些都是从数据库里面调取的，然后用word做一个模板，把相应的信息填写如word里面相应的位置。考虑过使用excel，但是excel的文本排版能力太差，无法完成我的工作。求高手指点一下。在此先谢过

Answer 1

呵呵，我前兩天剛做過。。
在Word建書簽 aaa/ bbb 
然後即可寫入。
Private Sub Command1_Click()
'  Save Word BookMarks
On Error Resume Next
Dim app As Word.application
Dim doc As Word.Document
Set app = CreateObject("Word.application")
app.Visible = False
app.Documents.open "d:\doc\x.doc"
app.activedocument.books.Item("aaa").Selectapp.selection = "測試系統"
app.activedocument.books.Item("bbb").Select
app.selection = "中華人民共和國"
app.Documents(1).saveas "d:\doc\temp.doc"
app.Documents.Close
End Sub