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

Question

问题在于，脚本会立即分析文档中的所有计算数据（如果文档很大），而没有时间为其加载和计数。该怎么办？

Sub GetStatistics(cFile)
    cUrl = ConvertToURL(cFile)
    oDoc = StarDesktop.loadComponentFromURL(cUrl, "_blank", 0, Array())
    Data = oDoc.GetDocumentProperties().DocumentStatistics
    s = ""
    For i = LBound(oData) To UBound(oData)
        s = s & oData(i).Name & " : " & oData(i).Value & CHR$(10)
    Next
    MsgBox(s)
End Sub

Large document

Simple document

Answer 1

根据您的要求，您可以仅添加例如

Wait 2000

之后

oDoc = StarDesktop.loadComponentFromURL(cUrl, "_blank", 0, Array())

以确保完全加载。

据我所知，无法完全触发loadComponentFromURL已完成。