[Solved Elsewhere] A Specific Macro with Find-Replace?

[robleyd]

So there is no duplication of effort, this same question is asked on the Ask LibO site under a different username.

[rajibando]

Roblyed took all the troubles to post the above info post to ask.libreoffice also.
As an aside, the contribution of Librebel was acknowledged in the very first post here: A Specific Macro with Find-Replace? None has yet solved the case. So duplication doesn't yet occur. Everyone has been duly informed, as far as possible, that Zizi was also working on it.

[rajibando]

I found that I can catch the "↲¶" combination with the normal Find-Replace (Ctrl+H) using the string "\n$". But when I use the same string in the macro, like "\n" + "$", or "\n$" and try to replace it with `ch(10)` I can't.
Why?

[hubert lambert]

Hello,

Perhaps something like this would do the trick:

Code: Select all

sub main
    doc = thiscomponent
    rajibando_find_and_remplace(doc.Text)
end sub

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, 3, 1)
            if not isnumeric(firstchar) then
                c.String = chr(10) & firstchar
                exit for
            end if
        next para
    loop
end sub

On linux amend this way:

Code: Select all

            firstchar = mid(c.String, 2, 1)

Edit: More simple, to stay plateform independant: Code: Select all firstchar = mid(c.String, len(c.String), 1)

[rajibando]

This problem was totally solved here: A Specific Macro with Find-Replace? by Hubert Lambert.