如何通过书签将数据库中相应内容写入word中的指定位置

Question

数据库中每个字段对应一个书签，现在已经在word中定义了相应的书签
我读取数据库中的相关内容，通过书签的位置来定位数据
该如何才能把内容替换到word中的相应位置啊？
请各位给点建议~多谢！

Answer 1

书签的应用实例
另：书签只是个插入文本的位置，和数据库中的字段没有所谓的对应关系
你只是在书签的位置插入文本而已，如果想格式好看，那就要先画表格，然后
在表格的第一行第一列定义书签，插入一个文本后，VBA控制光标移动到下一列，
再VBA控制插入新行，继续赋值动作下面是简单的在书签位置插入文本的例子    Dim WordTemps As New Word.Application '定义WORD类
    WordTemps.Documents.Add App.Path + "\测试模版.dot", False 
    
    WordTemps.Selection.Goto wdGoToBook, , , "编号"
    WordTemps.Selection.TypeText "12345"
    
    WordTemps.Selection.Goto wdGoToBook, , , "单位"
    WordTemps.Selection.TypeText Trim(txt单位.Text)
    WordTemps.Selection.Goto wdGoToBook, , , "名称"
    WordTemps.Selection.TypeText "XXX公司"    WordTemps.Selection.Goto wdGoToBook, , , "日期"
    WordTemps.Selection.TypeText China_Date(Left$(DTPGH.Value, 10))