如何在VBA中为MSREdit控件实现格式设置快捷键及格式修改

一、用OLE命令直接调用控件内置格式功能 #

MSREDIT作为OLE富文本控件，本身支持标准格式切换命令，不用折腾RTF标签。你可以通过VBA捕获快捷键，然后调用控件的ExecOLECmd方法执行对应操作：

• 加粗（CTRL+B）：命令ID为109（OLECMDID_BOLD）
• 斜体（CTRL+I）：命令ID为111（OLECMDID_ITALIC）
• 下划线（CTRL+U）：命令ID为110（OLECMDID_UNDERLINE）

直接上可用的VBA代码（假设控件名为msrtEdit1，代码放在工作表模块里）：

Private Sub msrtEdit1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' 捕获CTRL+字母的组合键
    If Shift = 2 Then
        Select Case KeyCode
            Case 66 ' B键
                msrtEdit1.ExecOLECmd 109, 0, vbNull, vbNull
                KeyCode = 0 ' 屏蔽原按键避免输入字母
            Case 73 ' I键
                msrtEdit1.ExecOLECmd 111, 0, vbNull, vbNull
                KeyCode = 0
            Case 85 ' U键
                msrtEdit1.ExecOLECmd 110, 0, vbNull, vbNull
                KeyCode = 0
        End Select
    End If
End Sub

这个方法会自动处理光标位置或选中内容的格式切换，比手动改RTF靠谱得多。

二、解决“修改字体属性不影响新输入”的问题 #

直接改控件的Font属性只会影响已输入的文本，要让新输入继承格式，得同步设置默认字体，或者在控件获得焦点时强制同步格式：

Private Sub msrtEdit1_Enter()
    ' 将当前控件字体设为默认字体
    Set msrtEdit1.DefaultFont = msrtEdit1.Font
End Sub

如果需要动态切换默认格式，也可以用ExecOLECmd设置状态，比如默认加粗就调用msrtEdit1.ExecOLECmd 109, 1, vbNull, vbNull（1是OLECMDEXECOPT_DODEFAULT）。

三、RTF光标定位的替代方案（不推荐） #

如果非要操作RTF文本，别去整个TextRTF里找光标位置，用控件的SelStart、SelLength和SelRTF属性直接操作选中区域：

' 给选中内容加加粗格式
Dim selRtfContent As String
selRtfContent = msrtEdit1.SelRTF
' 给选中内容的RTF包裹加粗标签
msrtEdit1.SelRTF = "{\\rtf1\\ansi \b " & Mid(selRtfContent, InStr(selRtfContent, " ") + 1) & "\b0}"

不过这种方法容易踩RTF嵌套标签的坑，优先用第一种方法。

四、关于MSRTEDIT.DLL文档的替代参考 #

这个控件是Office自带的，和Word的富文本控件同源，没有单独的官方文档，但可以参考：

• Word VBA中关于富文本格式的操作逻辑
• 通用OLE控件的OLECMDID枚举值列表（这些ID是通用的，适用于大多数OLE富文本控件）

内容的提问来源于stack exchange，提问作者Valery Letroye