vb窗体显示word文档

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

这个不大现实，因为Word不光是字符，还有好多隐性的代码，打开就乱套了，好多乱码，你要是打开文本文件还是可以的。

Private Sub Command1_Click() Dim oFSO As New FileSystemObject Dim tTextStream As TextStream Dim cPath, cFilename As StringCommonDialog1.ShowOpencPath = CommonDialog1.FileNameIf oFSO.FileExists(cPath) = True Then Set tTextStream = oFSO.OpenTextFile(cPath, ForReading, False) Do While Not tTextStream.AtEndOfStream cFilename = tTextStream.ReadLine Text1.SelText = cFilename LoopEnd IfEnd Sub这个方法打开文本文件没有问题，打开Word显示不出原字，因为WORD并不是纯文本的 我这个代码可以实现打开文本文件的。引用 script run time部件common dialog control。

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

这个不大现实，因为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

3.求一个完整的用vb窗体界面打开一个word文件的实例我在网上找了 爱

我试试吧，请您联系我，我的邮箱是：diligent2011@ ，请您先不要给我分，如果做不好就不用给了，如果您满意的话再给分。

回答完毕，祝您好运。 我最近比较忙，但是昨晚抽空帮您做好了一个可以用打开对话框打开一个Word显示到窗体的一个OLE控件上，可是还有一个问题就是由于昨晚我的电脑没电了那个控件的滚动条没加，您可以自己加上，方法是将OLE控件放到 picturebox上，然后给picturebox加滚动条，这样就可以显示Word的全篇内容了，我现在在外边等我下午回去之后把作品发给您，由于时间有限没有做美化，可能界面很难看望多包涵。

转载请注明出处51数据库 » vb窗体显示word文档