ole字段存储word文档及还原问题，请高手帮忙，谢谢

huang1314

小弟正做个题库系统，把试题内容都存储在一个ole 字段中，一条试题占一条记录，然后随机选择试题，再导出到word文件组成试卷。
现在碰到的问题是不会导出试题内容到一个word文件中，请高手们帮忙，谢谢
附件

huang1314

来个人帮忙一下啊，谢谢

sgrshh29

回复 huang1314 的帖子

是不是要这样?

huang1314

sgrshh29 发表于 2011-5-9 16:58
回复 huang1314 的帖子

是不是要这样?

谢谢
基本是这样，但有2小问题
1.导出的时候打开了好多word，现在有4个记录就打开了4个word,
如果有50个记录会不会打开50个word?
2.没有自动生成题号在前面

huang1314

不好意思，刚试了一下，只打开3个word，第一个问题不存在了，而且导出速度还蛮快的。
现在就是第2个问题了，能不能在导出的时候 ,自动在试题前面生成题号。

sgrshh29

回复 huang1314 的帖子

huang1314

谢谢了，这正是我想要的，以后多向你学习。
导出的word文件基本是没什么大问题，只是一个试题是以一个插入的word文档，不太方便编缉，如果能做到所有试题都是在一个word文档里就完美了。
我的代码是
Private Sub Command23_Click()
Dim myword As Word.Application
Set myword = New Word.Application
myword.Visible = True
'生成文档1
Dim mydoc As Word.Document
Set mydoc = New Word.Document
mydoc.ActiveWindow.Selection.TypeText ""
mynum = 1
mynum1 = "me.text24"
Do Until mynum = mynum1
   试题.Action = acOLEActivate
   试题.Verb = -1
   Selection.WholeStory
    Selection.Copy
    Windows("文档1").Activate
   
    Selection.Paste
    DoCmd.GoToRecord , , acNext
    mynum = mynum + 1
Loop
End Sub

是一题一题复制，效率比较低，但是生成是一个word文件里的文本，编缉比较容易，生成时慢了点，也不会自动生成题号。