通过Word VBA修改公式内矩阵的列间距

问题说明 #

需要实现垂直堆叠类数学运算题（求和、乘积等）的自动化排版：

• 插入矩阵可实现数字右对齐，保证数位对齐，但矩阵默认列间距过宽
  
• 手动操作时右键矩阵，选择「矩阵间距」，将列之间最小距离设为1即可达到预期效果
  
• 官方文档对OMathMat相关接口的说明无示例，宏录制无法捕获公式内矩阵的右键菜单操作，且OMathMat不是OMath的直接属性，直接遍历Functions访问Mat属性会报"成员不存在"错误。

原有报错代码如下：

For Each equation In ActiveDocument.OMaths
    For Each Func In equation.Functions
        Func.Mat.ColSpacing = 1
    Next
Next

报错原因：OMath.Functions集合包含所有数学结构类型（分数、根号、上下标、括号、矩阵等），仅矩阵类型的函数对象才存在Mat属性，不加类型判断直接访问所有Func的Mat属性必然触发错误。

可用实现代码 #

代码支持递归处理嵌套矩阵，运行后可遍历文档所有公式，将其中所有矩阵的列间距统一设置为1：

Sub BatchSetMathMatrixColSpacing()
    Dim eq As OMath
    ' 遍历文档所有顶层公式
    For Each eq In ActiveDocument.OMaths
        ProcessMatrixInOMath eq
    Next
End Sub

Sub ProcessMatrixInOMath(targetOMath As OMath)
    Dim func As OMathFunction
    Dim mat As OMathMat
    Dim matCell As OMathMatCell
    Dim nestedEq As OMath
    
    For Each func In targetOMath.Functions
        ' 仅处理类型为矩阵的函数对象
        If func.Type = wdOMathFunctionMat Then
            Set mat = func.Mat
            ' 设置列间距为1，和手动设置效果完全一致
            mat.ColSpacing = 1
            
            ' 递归处理矩阵单元格内嵌套的公式/矩阵
            For Each matCell In mat.Cells
                For Each nestedEq In matCell.Range.OMaths
                    ProcessMatrixInOMath nestedEq
                Next
            Next
        End If
    Next
End Sub

使用说明 #

• 打开Word后按Alt+F11调出VBA编辑器，将代码粘贴到标准模块中
• 运行宏BatchSetMathMatrixColSpacing即可完成全文档公式矩阵列间距的批量调整
• 若不需要处理嵌套矩阵，可删除递归遍历单元格内OMaths的相关代码段

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