Question

vb中如何在text控件中显示word文档内容

我想通过“打开”菜单在text控件中显示任一个word文档内容,该怎样写代码,要用到commondialog控件.
文本文件也可以呀,麻烦给给详细说一下.

Answer 1

这个不大现实，因为Word不光是字符，还有好多隐性的代码，打开就乱套了，好多乱码，你要是打开文本文件还是可以的。
Private Sub Command1_Click()
Dim oFSO As New FileSystemObject
Dim tTextStream As TextStream
Dim cPath, cFilename As String
CommonDialog1.ShowOpen
cPath = CommonDialog1.FileName
If oFSO.FileExists(cPath) = True Then
Set tTextStream = oFSO.OpenTextFile(cPath, ForReading, False)
Do While Not tTextStream.AtEndOfStream
cFilename = tTextStream.ReadLine
Text1.SelText = cFilename
Loop
End If
End Sub
这个方法打开文本文件没有问题，打开Word显示不出原字，因为WORD并不是纯文本的

我这个代码可以实现打开文本文件的。
引用 script run time
部件common dialog control

Answer 2

commondialog的用法
commondialog1.showopen 显示打开对话框
commondialog1.showsave 显示保存对话框
commondialog1.showfont 显示字体对话框
commondialog1.showcolor 显示颜色对话框
commondialog1.showhelp 显示帮助对话框
commondialog1.showprint 显示打印对话框
首先要打开WORD文档
commondialog1.showopen
open commondialog1.filename for input as #1
do while not eof(1)
print #1,commondialog1.filename
loop
我的没有那个控件 所以没试过 这段代码可能有问题

Answer 3

word文档内容不可能原样显是在文本框中
word文档中除了文本内容外还有格式信息等等

将word文档中内容复制到剪切板粘贴到记事本看一下,只能得到文本内容
格式信息全丢失了