在Open/Libre/Neo Office中查找文本选择中段落的宏

Question

我正在尝试枚举用户在（NeoLibreOpen）Office中选择的段落。

Sub CheckForSelection
    Dim oDoc as Object
    Dim oText

    oDoc = ThisComponent
    oText = oDoc.Text

    if not IsAnythingSelected(oDoc) then
        msgbox("No text selected!")
        Exit Sub
    end if

    oSelections = oDoc.getCurrentSelection() 
    oSel = oSelections.getByIndex(0)    

    ' Info box
    'MsgBox oSel.getString(), 64, "Your Selection"

    oPE = oSel.Text.createEnumeration()
    nPars = 0
    Do While oPE.hasMoreElements()
        oPar = oPE.nextElement()
        REM The returned paragraph will be a paragraph or a text table
        If oPar.supportsService("com.sun.star.text.Paragraph") Then 
            nPars = nPars + 1
        ElseIf oPar.supportsService("com.sun.star.text.TextTable") Then 
            nTables = nTables + 1
        end if
    Loop

    ' Info box
    MsgBox "You selection has " & nPars & " paragraphs.", 64

end Sub

Answer 1

osel.text是osel.gettext()的快捷方式，后者“返回包含文本位置的文本接口”。https://www.openoffice.org/api/docs/common/ref/com/sun/star/text/xtextrange.html#gettext

因此，要仅从选择中获取段落umeration，应该使用ope=osel.createEnumeration()而不是ope=osel.text.createEnumeration()。