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

2025-02-25 05:03:17
推荐回答(3个)
回答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) '将所有读取内容 复制到剪切板

回答2:

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

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

回答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 '关闭文件

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