如何复制word内容控件,控件,复制,内容

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

优化了一下楼上的代码 不知道能不能用！

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.在VB中如何快速地复制出OLE控件中WORD文档的内容在VB中,

优化了一下楼上的代码 不知道能不能用！dim str as String dim strTemp as StringOpen "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) '将所有读取内容 复制到剪切板。