将当前窗体记录通过书签的方式导入到word文档中的问题？

艹右小土　发表于：2013-12-17 11:35:03 　

Private Sub Command166_Click()
Dim wordapp As New word.Application
Dim worddoc As word.Document
Dim str As String
str = CurrentProject.Path & "\模板.dotx"
Set worddoc = wordapp.Documents.Add(str, False)
wordapp.Visible = True
With wordapp.Selection
.GoTo what:=wdGoToBookmark, Name:="学生姓名"
.TypeText Forms!学生信息!学生姓名
.GoTo what:=wdGoToBookmark, Name:="学生简历"
.TypeText Forms!学生信息!学生简历
End With
wordoc.saveas2 CurrentProject.Path & "\信息表.doc" & Forms!学生信息!学生编号
Set wordapp = Nothing
Set worddoc = Nothing
End Sub

我照着学习书上面写了一段代码，可以将当前窗口中的记录导入到word中，但是不能将当前窗体中子窗体中的记录同时导入word，请大师们帮助修改一下！还有就是能不能将查询中的记录导入到word中，应该怎么改！求指点

Top

殷小宝发表于：2013-12-18 00:13:43

Set worddoc = wordapp.Documents.Add(str, False)
wordapp.Visible = True
With wordapp

.Bookmarks("学生姓名").Range.Text = Forms!学生信息!学生姓名
.Bookmarks("学生简历").Range.Text = Forms!学生信息!学生简历

.Bookmarks("学生评语").Range.Text = Forms!学生信息!学生评语.form.评语 '此为引用子窗体中的字段"评语

End With

Top

艹右小土发表于：2013-12-19 09:00:17

试了，还是不行，能进一步说明一下吗？

Top

殷小宝发表于：2013-12-26 14:30:43

不行，就用打开记录集的方法，将某学生的评语赋给 .Bookmarks("学生评语").Range.Text

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

将当前窗体记录通过书签的方式导入到word文档中的问题？