Question

在VB中如何快速地复制出OLE控件中WORD文档的内容

在VB中,当你用一个OLE控件读取一个WORD文档(不是链接),之后,你想把这个文档中的内容复制到系统的剪贴版中,应该如何做?
我现在有一种方法就是把OLE中的WORD对象赋值给一个WORD对象(要先引用WORD对象),然后再对WORD对象进行操作,但是执行效率低,很费时间,我想知道有没有更多效率更高的方法
请高手指教,这个问题困扰我一年多了.
OLE1.object.Select
OLE1.object.Application.Selection.Copy
OLE1.Close
这是我昨天改进后的代码，执行效率好象有所提高，但我还是想知道有没有更好的实现方法，请各位高手不吝赐教

Answer 1

优化了一下楼上的代码 不知道能不能用！
dim str as String
dim strTemp as String
Open "xxx" For Input As #1 ’位置自己添打开文件
Open "e:\a.doc" For Output As #2
Do While Not EOF(1) '循环读取，直到文件结束
Line Input #1, strTemp '读取一行内容到变量strTemp
str = str + strTemp '将读入的变量值追加到字符串后
Loop
Close #1 '关闭文件
Close #2 '关闭文件

Clipboard.Clear
Clipboard.SetText (str) '将所有读取内容 复制到剪切板

Answer 2

不要引用WORD对象，可直接对OLE对象进行操作，速度很快。

Private Sub Command1_Click()
Dim wrdDoc
Set wrdDoc = OLE1.object
wrdDoc.Select
wrdDoc.Application.Selection.Copy
wrdDoc.Close
End Sub

Answer 3

Open "xxx" For Input As #1 ’位置自己添打开文件
Open "e:\a.doc" For Output As #2
Do While Not EOF(1) '循环读取，直到文件结束
Line Input #1, strTemp '读取一行内容到变量strTemp
Print #2, strTemp '将读入的变量值写入另一文件
Loop
Close #1 '关闭文件
Close #2 '关闭文件

提示：可能复制的时候有乱码！
\
\
我明天问问教授！