如何在Microsoft Word 365的VBA窗体中使用富文本控件加载选中内容

使用MSREdit控件导入RTF内容 #

步骤1：添加MSREdit控件到VBA工具箱 #

• 打开VBA编辑器，点击菜单栏的工具 -> 附加控件
• 在列表中找到Microsoft Rich Edit Control 6.0 (SP4)，勾选后确定，控件会出现在工具箱中
• 在用户窗体上拖放该控件，命名为msrEdit1（可自定义）

步骤2：获取Word选中内容的RTF格式 #

Word没有直接导出选中内容为RTF字符串的API，可通过临时文档中转实现：

Private Function GetSelectedTextAsRTF() As String
    Dim tempDoc As Document
    Dim tempPath As String
    Dim fso As Object
    Dim fileStream As Object
    
    ' 创建临时文档并复制选中内容
    Set tempDoc = Documents.Add
    Selection.Copy
    tempDoc.Range.Paste
    
    ' 保存为临时RTF文件
    tempPath = Environ("TEMP") & "\temp_selected.rtf"
    tempDoc.SaveAs2 FileName:=tempPath, FileFormat:=wdFormatRTF
    tempDoc.Close SaveChanges:=wdDoNotSaveChanges
    
    ' 读取RTF文件内容
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileStream = fso.OpenTextFile(tempPath, 1) ' 1=只读模式
    GetSelectedTextAsRTF = fileStream.ReadAll
    fileStream.Close
    
    ' 删除临时文件
    Kill tempPath
End Function

步骤3：在窗体加载时导入RTF内容 #

在用户窗体的UserForm_Initialize事件中添加代码：

Private Sub UserForm_Initialize()
    Dim rtfContent As String
    
    ' 校验是否有选中内容
    If Selection.Type <> wdSelectionNormal Then
        MsgBox "请先选中文档中的内容", vbExclamation
        Me.Hide
        Exit Sub
    End If
    
    ' 获取RTF内容并赋值给MSREdit控件
    rtfContent = GetSelectedTextAsRTF()
    msrEdit1.TextRTF = rtfContent
End Sub

替代方案：使用WebBrowser控件显示富文本 #

如果MSREdit使用受限，可利用WebBrowser控件通过HTML格式显示富文本，兼容性更好：

步骤1：添加WebBrowser控件到工具箱 #

• 打开VBA编辑器，工具 -> 附加控件，找到Microsoft Internet Controls，勾选后确定
• 在用户窗体上拖放该控件，命名为wbRichText

步骤2：将选中内容转为HTML并加载 #

Private Sub UserForm_Initialize()
    Dim htmlContent As String
    Dim tempDoc As Document
    Dim tempPath As String
    Dim fso As Object
    Dim fileStream As Object
    
    If Selection.Type <> wdSelectionNormal Then
        MsgBox "请先选中文档中的内容", vbExclamation
        Me.Hide
        Exit Sub
    End If
    
    ' 创建临时文档并保存为HTML
    Set tempDoc = Documents.Add
    Selection.Copy
    tempDoc.Range.Paste
    
    tempPath = Environ("TEMP") & "\temp_selected.html"
    tempDoc.SaveAs2 FileName:=tempPath, FileFormat:=wdFormatFilteredHTML
    tempDoc.Close SaveChanges:=wdDoNotSaveChanges
    
    ' 读取HTML内容
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileStream = fso.OpenTextFile(tempPath, 1)
    htmlContent = fileStream.ReadAll
    fileStream.Close
    Kill tempPath
    
    ' 加载HTML到WebBrowser控件
    wbRichText.Navigate2 "about:blank"
    While wbRichText.Busy Or wbRichText.ReadyState <> 4
        DoEvents
    Wend
    wbRichText.Document.body.innerHTML = htmlContent
End Sub

注意事项 #

• 使用临时文件时，确保Environ("TEMP")路径具备读写权限
• 若仅需显示富文本，WebBrowser是更轻量化的选择；若需要编辑功能，MSREdit支持基础的富文本编辑操作

内容的提问来源于stack exchange，提问作者Srikanth Vittal