如何在LibreOffice Writer文档中调用自定义宏函数？

你遇到的问题是「执行宏」字段仅显示宏链接而非函数返回值，这是因为该字段的设计目的是触发宏执行，而非展示返回内容。以下是两种贴合你需求的解决方案：

方法1：扫描文档自动替换调用标记（接近你的示例写法） #

这种方法允许你在文档中写类似[call function getCardNr()]的标记，通过宏批量处理，替换为函数返回值或执行子程序。

步骤1：编写处理宏 #

REM  *****  BASIC  *****

Sub ProcessDocumentCalls
    Dim oDoc As Object, oText As Object, oCursor As Object
    Dim sPattern As String, oMatches As Object
    
    oDoc = ThisComponent
    oText = oDoc.Text
    oCursor = oText.createTextCursorByRange(oText.Start)
    
    ' 处理函数调用：[call function 函数名()]
    sPattern = "\[\s*call\s+function\s+(\w+)\s*\(\s*\)\s*\]"
    oMatches = oCursor.createSearchDescriptor()
    oMatches.SearchRegularExpression = True
    oMatches.SearchString = sPattern
    
    oCursor = oText.findFirst(oMatches)
    Do While Not IsNull(oCursor)
        Dim sFuncName As String, sResult As String
        sFuncName = oCursor.String.replace(sPattern, "$1")
        sResult = CallByName(ThisComponent, sFuncName, vbGet)
        oCursor.String = sResult
        oCursor = oText.findNext(oCursor.End, oMatches)
    Loop
    
    ' 处理子程序调用：[call sub 子程序名()]
    sPattern = "\[\s*call\s+sub\s+(\w+)\s*\(\s*\)\s*\]"
    oMatches.SearchString = sPattern
    
    oCursor = oText.findFirst(oMatches)
    Do While Not IsNull(oCursor)
        Dim sSubName As String
        sSubName = oCursor.String.replace(sPattern, "$1")
        CallByName(ThisComponent, sSubName, vbMethod)
        oCursor.String = ""
        oCursor = oText.findNext(oCursor.End, oMatches)
    Loop
End Sub

' 示例函数
Function getName() As String
    getName = "Hello world!"
End Function

' 示例子程序
Sub initNumbering()
    MsgBox "编号初始化完成"
End Sub

步骤2：使用方式 #

1. 在文档中输入标记，比如[call function getName()]或[call sub initNumbering()]
2. 运行ProcessDocumentCalls宏，标记会自动替换为函数返回值，子程序会执行并删除标记

方法2：用用户字段实时显示函数返回值（适合固定位置） #

如果需要字段内容可以随时更新，而非一次性替换，可使用用户字段：

步骤1：插入用户字段 #

• 点击「插入→字段→更多字段→变量→用户字段」
• 输入字段名称（比如UserName），点击「插入」

步骤2：编写更新宏 #

Sub UpdateUserFields
    Dim oDoc As Object, oFields As Object
    oDoc = ThisComponent
    oFields = oDoc.TextFields
    For Each oField In oFields
        If oField.FieldName = "UserName" Then
            oField.Content = getName() ' 调用你的函数
        End If
    Next oField
End Sub

Function getName() As String
    getName = "Hello world!"
End Function

步骤3：使用方式 #

运行UpdateUserFields宏，字段会显示函数返回值；需要更新时再次运行宏即可。

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