真的没有高手了吗？

Question

to up:
如果在当前文档中能将当前文档以文件的方式导入数据库，那就再好不过了，但我能力有限，无法完成此功能。我想应该是用一条语句选定所有的内容[包括文字、图片、表格等]并赋值给变体，但我不知道是哪条语句。

Answer 1

试试把WORD文件整个存入的数据库中。应用数据库中的OLE字段（ACCESS）或二进制字段（SQL）

Answer 2

用二进制格式读写word文件到一个变量（strWord）里，
然后把这个strWord存到某个表的某个字段里，该字段为备注型字段
假设你的表是tabword,里面有两个字段FileName(文件名，字符型）,FileContent（文件内容，备注型）
Dim ls, f
Dim strWord() As BytePrivate Sub Form_Load()
Set ls = CreateObject("Scripting.FileSystemObject")
Set f = ls.GetFile("c:\word.doc")ReDim strWord(f.Size)
Open "c:\word.doc" For Binary Access Read As #1
Get #1, , strWord
Close #1conn.execute "Insert into tabword set(FileName,FileContent) values('c:\word.doc','" & strWord & "')"'以后就可以用同样的方法读取数据库，再用同样的方法写到文件中了End Sub

Answer 3

to cqq_chen:
以文件形式存取我能完成，但在WORD文档里面保存自身无法完成。

Answer 4

保存word：
rs.open "select * from tabname where filename='c:\word.doc'"
Open "c:\word.doc" For Binary Access Read As #2
put #2, , strWord
Close #2