LibreOffice Writer宏开发：如何将嵌入式公式替换为其字符串内容

要完成公式对象到对应字符串的替换，核心是定位每个公式在文档中的位置，删除原对象后插入公式文本。你已能获取公式内容，但缺少定位与替换的关键步骤，完整宏代码如下：

Sub ReplaceFormulasWithText()
    Dim oDoc As Object
    Dim oEmbeddedObjs As Object
    Dim i As Integer
    Dim oObj As Object
    Dim oAnchor As Object
    Dim oCursor As Object
    Dim sFormula As String
    
    oDoc = ThisComponent
    oEmbeddedObjs = oDoc.getEmbeddedObjects()
    
    ' 倒序遍历，避免删除对象后索引混乱
    For i = oEmbeddedObjs.Count - 1 To 0 Step -1
        oObj = oEmbeddedObjs(i)
        ' 判断当前对象是否为公式类型
        If oObj.Model.supportsService("com.sun.star.formula.FormulaProperties") Then
            sFormula = oObj.Model.Formula
            ' 获取公式在文档中的锚点（即所在文本位置）
            oAnchor = oObj.Anchor
            ' 基于锚点创建文本光标
            oCursor = oAnchor.getText().createTextCursorByRange(oAnchor)
            ' 删除原公式对象
            oAnchor.getText().removeTextContent(oAnchor)
            ' 在光标位置插入公式字符串
            oCursor.setString(sFormula)
        End If
    Next i
End Sub

关键细节说明： #

• 倒序遍历：删除嵌入对象会改变集合元素数量，正序遍历会跳过部分对象，因此必须从最后一个元素往前遍历。
• 公式类型校验：用supportsService方法过滤出公式对象，避免误处理图片等其他嵌入内容。
• 锚点定位：每个嵌入对象的Anchor属性对应它在文档中的文本位置，通过锚点能精准定位到需要替换的位置。
• 删除与插入：先移除原公式对象，再在同一位置插入公式字符串，保证内容替换的准确性。

运行宏前建议先保存文档，避免意外数据丢失。

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