VB的文本框控件TextBox打开Office的Word文档

最新推荐文章于 2024-06-19 08:40:57 发布

东方之珠

最新推荐文章于 2024-06-19 08:40:57 发布

阅读量3.3k

点赞数

分类专栏： API 文章标签： textbox office vb function string 文档

本文链接：https://blog.csdn.net/chenjl1031/article/details/7979855

版权

通过VB的文本框控件TextBox无法直接正确显示Office Word文档，因为TextBox是Ansi版本，直接打开会导致乱码。但可以使用API调用，实现间接打开并保留Word的版式（除字体外）。该方法适用于需要在VB应用程序中显示Word内容的场景。

摘要由CSDN通过智能技术生成

有网友问我，VB的文本框控件TextBox能否打开Office的Word文档。VB的TextBox是Ansi版本的，通过open语句打开载入到TextBox中，肯定是乱码，没啥说的。但是，我们可以通过间接的方式打开Office的Word文档，通过一系列的API调用，将文档转换到TextBox中，而且保留了Word的版式（除字体变化以外）。请看下面程序：

标准模块：

'标准模块
Option Explicit
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Public Const WM_GETTEXT As Long = &HD&
Public Const WM_SETTEXT As Long = &HC&
Private Const EM_GETLINECOUNT As Long = &HBA&
Private Const EM_GETLINE As Long = &HC4&
Public Const WM_CLOSE As Long = &H10& '关闭窗口消息

Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public