如何在Office 365 64位环境中使用类Richtx32.ocx的RichTextBox控件

一、适配32位RichTextBox OCX的方案 #

• 强制Office 365以32位模式运行：
  打开任意Office应用（如Word），点击「文件」→「账户」→「关于Word」确认当前版本位数。若为64位，前往控制面板的「程序和功能」，找到Microsoft 365，右键选择「更改」→「修改」，在安装选项中切换到32位版本完成安装。安装完成后即可正常加载32位RichTextBox OCX控件。

二、64位原生替代方案 #

1. Office内置富文本内容控件 #

Office自带的富文本内容控件可覆盖RichTextBox的核心功能（格式化文本、插入媒体等），且原生支持64位环境。操作步骤：
启用「开发工具」选项卡后，在「控件」组中选择「富文本内容控件」插入到文档/工作表中，通过VBA代码可灵活控制其内容：

' 读取富文本内容控件的文本
Dim richCtrl As ContentControl
Set richCtrl = ActiveDocument.ContentControls(1)
Debug.Print richCtrl.Range.Text

' 设置带格式的内容
richCtrl.Range.Text = "示例：*加粗文本* 及 红色文本"
richCtrl.Range.Font.Color = RGB(255, 0, 0)

2. 直接使用Office对象模型的Range/Selection #

若仅需在VBA中处理富文本格式，无需额外控件，直接借助Word/Excel的Range或Selection对象即可实现精细控制：

Dim targetRange As Range
Set targetRange = ActiveDocument.Range(Start:=0, End:=0)

' 插入并格式化文本
targetRange.Text = "自定义富文本演示"
targetRange.Font.Bold = True
targetRange.Font.Size = 14
targetRange.ParagraphFormat.Alignment = wdAlignParagraphCenter

3. VSTO开发中使用现代.NET控件 #

若基于VSTO开发Office插件，可直接集成WPF或WinForms的.NET版RichTextBox控件，这类控件原生支持64位，功能比旧OCX更丰富，且能与Office 365 64位环境完美兼容。

注意事项 #

RichTextBox OCX属于ActiveX旧技术，微软已逐步停止对其更新支持，长期来看建议优先采用上述原生或现代替代方案，避免后续版本的兼容性风险。

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