LibreOffice宏实现：为特定开头的段落应用对应样式

直接用LibreOffice Basic编写宏是最直接的解决方式，以下是针对你需求的实现思路和代码：

核心逻辑 #

遍历文档中所有段落，根据三个规则分别匹配并应用对应样式：

1. 非列表段落+以数字开头（如01.）：用正则匹配段落起始的数字+.格式
2. 列表段落+以in开头：先判断是否为列表项，再检查文本起始是否为in （带空格避免误匹配）
3. 其他列表段落：排除上述两类的列表项

完整宏代码 #

Sub ApplyParagraphStylesByRules
    Dim oDoc As Object
    Dim oParagraphs As Object
    Dim oPara As Object
    Dim sText As String
    Dim oRegExp As Object
    Dim bIsList As Boolean
    
    ' 获取当前文档
    oDoc = ThisComponent
    oParagraphs = oDoc.Text.createEnumeration()
    
    ' 初始化正则表达式对象，用于匹配数字开头的段落
    oRegExp = CreateUnoService("com.sun.star.util.TextSearch")
    Dim oSearchOptions As New com.sun.star.util.SearchOptions
    oSearchOptions.SearchString = "^(\d+\.)"
    oSearchOptions.SearchFlags = com.sun.star.util.SearchFlags.REG_EXPRESSION + com.sun.star.util.SearchFlags.REG_EXTENDED
    
    ' 这里替换成你自己的三个样式名称
    Dim sStyleNumberStart As String : sStyleNumberStart = "数字开头样式"
    Dim sStyleListInStart As String : sStyleListInStart = "列表In开头样式"
    Dim sStyleListOther As String : sStyleListOther = "列表其他样式"
    
    ' 遍历所有段落
    While oParagraphs.hasMoreElements()
        oPara = oParagraphs.nextElement()
        sText = Trim(oPara.String)
        bIsList = (oPara.ParagraphNumberingLevel > 0) ' 段落编号层级>0即为列表项
        
        If Not bIsList Then
            ' 非列表段落，检查是否以数字开头
            Dim oResult As com.sun.star.util.SearchResult
            oResult = oRegExp.searchForward(oPara.Text, 0, Len(oPara.String), oSearchOptions)
            If oResult.SubRegExpressions > 0 Then
                oPara.ParaStyleName = sStyleNumberStart
            End If
        Else
            ' 列表段落，判断开头文本
            If Left(sText, 3) = "in " Then ' 匹配"in "开头（带空格避免如"input"这类单词误判）
                oPara.ParaStyleName = sStyleListInStart
            Else
                oPara.ParaStyleName = sStyleListOther
            End If
        End If
    Wend
End Sub

使用步骤 #

1. 打开你的LibreOffice Writer文档
2. 按Alt+F11打开宏编辑器
3. 在左侧导航栏右键点击你的文档，选择「插入」→「模块」
4. 将上述代码粘贴到模块窗口中
5. 修改代码中三个样式名称为你文档中已有的样式名（比如把"数字开头样式"改成你实际的样式名称）
6. 点击宏编辑器的运行按钮（绿色三角）执行宏

关键细节说明 #

• 判断列表项：通过ParagraphNumberingLevel属性，层级大于0说明是列表中的段落
• 数字开头匹配：用正则^(\d+\.)确保匹配段落起始的数字加句号，避免段落中间的数字干扰
• in开头判断：用Left(sText, 3) = "in "带空格匹配，防止把input、inside这类单词开头的段落误判

内容的提问来源于stack exchange，提问作者Jiří Emmer