关于ACCESS导入WORD的求助

williamwangc

在自己学习了《ACCESS2007VBA宝典》之后，对ACCESS的导入导出初步有了一些心得，模仿其中使用域（dropproperty）的方法导出至WORD，书本上用的是窗体的上的数据。我希望做到类似于邮件合并的批量导出的功能，做了一段实验性质的代码。代码当中对原书中的一些代码和功能进行了简化，由于技术不精，可能有不少错误。我在调试过程中发现一个“doc.CustomDocumentProperties”代码上“方法和数据成员未找到”，还无法解决。希望各位大虾对这段代码的思路提出建议，并对我还未发现的错误予以指正。

Private Sub test3_Click()
Dim my_db As Database
Dim my_tb As Recordset
Dim str_path As String
Dim str_dotname As String
Dim str_DotPathAndName As String
Dim appWord As Word.Application
Dim doc As Document
Dim prps As Object

Set my_db = CurrentDb
Set my_tb = CurrentDb.OpenRecordset("班级姓名")
str_path = "C:\Users\wangcheng\Desktop\TEST2\"
str_dotname = "t模板.dot"
str_DotPathAndName = str_currentpath & str_dotname


Do While Not my_tb.EOF
'On Error GoTo ErrorHandler
Set appWord = CreateObject("Word.Application")
Set appWord = GetObject(, "Word.Application")
Set doc = appWord.Documents.Add(str_DotPathAandName)
Set prps = doc.CustomDocumentProperties
prps.Item("班级").value = my_tb.Fields("班级").Value
prps.Item("姓名").value = my_tb.Fields("姓名").Value

With appWord
    .Selection.WholeStory
    .Selection.Field.Update
    .Selection.HomeKey unit:=wdStory
appWord.Visible = True
appWord.Activate
Loop


End Sub

ps.纯粹实验性质，链接表是【班级姓名】，就“班级”，“姓名”两个字段。WORD中的域名也是"班级"和“姓名”

紫风

todaynew版主做了个例子，可参考下：
【Access小品】齐人之福---Access与Word、Excel间数据传递
http://www.office-cn.net/forum-v ... -fromuid-51076.html