如何在Outlook中通过VBA操作选区并添加完整边框？

要在Outlook中给选中的文本或表格添加边框，必须借助Word的对象模型——因为Outlook的邮件编辑功能基于Word引擎实现，直接用ActiveExplorer.Selection无法访问编辑区的文本选区，这也是你遇到RTE 438错误的核心原因。

正确实现代码 #

Sub AddBordersToSelection()
    Dim objInspector As Inspector
    Dim objWordDoc As Word.Document
    Dim objSelection As Word.Selection
    
    ' 检查是否有激活的邮件编辑窗口
    Set objInspector = Application.ActiveInspector
    If objInspector Is Nothing Then
        MsgBox "请先打开邮件编辑窗口并选中需要添加边框的内容", vbExclamation
        Exit Sub
    End If
    
    ' 获取Word编辑文档对象及选区
    Set objWordDoc = objInspector.WordEditor
    Set objSelection = objWordDoc.Application.Selection
    
    ' 设置选区外部边框为连续线条
    With objSelection.Borders
        .OutsideLineStyle = wdLineStyleSingle ' 对应连续线条，替代Excel的xlContinuous
        .OutsideLineWidth = wdLineWidth150pt
        .ColorIndex = wdAuto ' 使用默认颜色
    End With
    
    ' 如果选区在表格内，同时添加内部边框
    If objSelection.Information(wdWithInTable) Then
        With objSelection.Borders
            .InsideLineStyle = wdLineStyleSingle
        End With
    End If
    
    ' 释放对象
    Set objSelection = Nothing
    Set objWordDoc = Nothing
    Set objInspector = Nothing
End Sub

关键注意事项 #

1. 引用Word对象库：打开VBA编辑器后，点击「工具」→「引用」，勾选「Microsoft Word xx.x Object Library」（xx.x为你的Office版本号），否则代码会提示对象未定义。
2. 选区对象的区别：Application.ActiveExplorer.Selection是用来选择邮件文件夹中的邮件项的，而非编辑区的文本选区；编辑区的选区必须通过Inspector.WordEditor获取Word的Selection对象。
3. 线条样式常量：Word对象模型中使用wdLineStyleSingle表示连续线条，Outlook没有olContinuous这类常量，这也是你之前代码报错的原因之一。

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