access通过窗体域往Word文件中写入数据的问题

在学习竹笛老师的《往Word文件中写入指定位置的数据》发现存在两个缺陷：

1）是针对窗体域按位置进行替换，若窗体域的位置发生变化，则相应的代码就会发生变化

2）若同一个窗体域使用多次，则只有第一个窗体域会写入相应的内容，后续的不能发生变化

——针对上述问题，存在如下考虑

1）采用“文字型窗体域”中的“默认文字”作为标记，这样就可以实现同一标记，多次写入的目的

2）能否采用批量查找、替换的方式，实现相应窗体域的全部替换？

3）若access中某些字段，在word中不存在，能否自动忽略？——这样做的目的在于，通过修改模板，就可以生成相应的word文本，而无需对窗体的内容进行调整

弄了很长一段时间，试了很多方法，都没有解决，麻烦高手指点一下。谢谢了！

附上之前的源码

Private Sub cmdWord_Click()
'创建Word对象
Set Doc = CreateObject("word.application")
Doc.Visible = True
'打开Word文件
Doc.Documents.Open FileName:=CurrentProject.Path & "\report.doc"
'在Word文件中写入记录
Doc.Documents("report.doc").FormFields(1).Result = Me.日期'1是指第1个窗体域
Doc.Documents("report.doc").FormFields(2).Result = Me.会员姓名'2是指第2个窗体域
Doc.Documents("report.doc").FormFields(3).Result = Me.会员地址
Doc.Documents("report.doc").FormFields(4).Result = Me.会员电话
'释放对象变量
Set Doc = Nothing
End Sub

参考链接：http://www.accessoft.com/article-show.asp?id=142