Libreoffice宏来获取有关文档统计信息的信息

Sub GetDocumentStats()
    Dim oDoc As Object
    Dim oText As Object
    Dim oCursor As Object
    Dim nWords As Long
    Dim nParagraphs As Long
    
    oDoc = ThisComponent
    oText = oDoc.Text
    oCursor = oText.createTextCursor()
    
    ' 获取字数
    oCursor.gotoStart(False)
    nWords = oText.createEnumeration().count
    
    ' 获取段落数
    oCursor.gotoStart(False)
    nParagraphs = oText.createEnumeration().count
    
    MsgBox "字数: " & nWords & vbCrLf & "段落数: " & nParagraphs
End Sub