Apache OpenOffice Community Forum

Code: Select all

rem ************************************************

Sub Check
on error goto ending:
    doc = thiscomponent
    doc.lockControllers()
    undos = doc.UndoManager
    undos.enterUndoContext("Format numbered paragraphs")

    rajibando_find_and_remplace(doc.Text)

  ending:
    if Err then
        msgbox("Error #" & Err & ": " & Error + chr(13) + "At line: " + Erl + chr(13), 16 ,"Error")
    end if
    undos.leaveUndoContext()
    doc.unlockControllers()
    on error goto 0
End Sub
rem *****************************************

Code: Select all

rem **************************************
sub rajibando_find_and_remplace(T)
    do
        for each para in T
            if T.compareRegionEnds(T, para) = 0 then
                exit sub
            end if
            c = T.createTextCursorByRange(para.End)
            c.goRight(2, True)
            firstchar = mid(c.String, 2, 1)
            Print(firstChar)
           if not isnumeric(firstchar) then
                c.String = chr(10) & firstchar
                exit for
            end if
        next para
    loop
end sub
rem *****************************************    

Code: Select all

rem **********Code Courtesy: Librebel*****************
    Function Writer_ReplaceAll_Paragraph_Breaks_With_Linefeeds() As Long
    REM Replaces all Paragraph breaks with a Linefeed character within the current Writer document.
    REM Returns: the number of found/replaced occurrences.
        Dim oReplace as Object
        oReplace = ThisComponent.createReplaceDescriptor()
        oReplace.setSearchString( "[a-z,A-Z,0-9]$" )
        oReplace.setReplaceString( "&" + chr(10) )
        oReplace.SearchRegularExpression = True
        Writer_ReplaceAll_Paragraph_Breaks_With_Linefeeds = ThisComponent.replaceAll( oReplace )
    End Function