[Solved] Macro to create 1-sentence paragraphs

[Last One]

Hi
I am looking for a macro to find the end of a sentence in the text and move it to the beginning of a new line. Modify all text to form one sentence one line.
I was looking for but did not find ..

[RoryOF]

Why use a macro? This can be done with three or four passes of Find and Replace - one if you use a Regular expression.

[Last One]

Why use a macro? This can be done with three or four passes of Find and Replace - one if you use a Regular expression.

Hi

It needs to be automated. I have, for example, 200 text, one click and change of the entire document.

***************************
I wanted to traverse each paragraph and possible change the paragraph styles. To do this, I needed to select one paragraph at a time. My first attempt, which was wrong, involved a starting point of having a paragraph selected. I then moved right zero spaces to remove the selection from the current paragraph.

macro

I wanted to traverse each paragraph and possible change the paragraph styles.
To do this, I needed to select one paragraph at a time.
My first attempt, which was wrong, involved a starting point of having a paragraph selected.
I then moved right zero spaces to remove the selection from the current paragraph.

[RoryOF]

Please define "end of a sentence".

[Last One]

Please define "end of a sentence".

End of sentence. < dot

[RoryOF]

What about ? ! " '

You have to think this out.

[Villeroy]

menu:Edit>Find&Replace....
[X] Regular expresssion
Find: ([.?!])[:space:]*
Replace: $1\n
[Replace All]
replaces points, ? and ! followed by optional space with point, ? or ! and a paragraph break.

[JeJe]

You use a text cursor

https://wiki.openoffice.org/wiki/Writer/API/Text_cursor

[MrProgrammer]

Hi, and welcome to the forum.

… find the end of a sentence in the text and move it to the beginning of a new line.

It needs to be automated.

End of sentence. < dot

Record a macro. You do this once as described in Help → Index → recording;macros. You don't need to know any programming but you do need to learn about how to record a macro. Then record this one action.

• Edit → Find & Replace → More options, ✓ Regular Expressions, Search for \.\s+, Replace with .\n, Replace All.

Your macro is very simple because it only requires one step. Call it (Tools → Macros → Run macro) whenever you need it. Or use a keyboard shortcut, menu, or toolbar to run it.
How can I record a macro?
[Tutorial] Binding a macro: Shortcut key, menu or toolbar

If this solved your problem please go to your first post use the Edit button and add [Solved] to the start of the subject field. Select the green checkmark icon at the same time.

[JeJe]

Something like this for the textcursor method. (test on a copy of your document with just the text you want converted in it.)

Code: Select all

Sub ConvertToSentences()
txt = thiscomponent.text
tc= txt.createtextcursorbyrange(txt.start)
do 
ret = tc.gotoEndOfSentence(false)
if ret = 0 then exit do
tc.goright(1,true)
if tc.string=" " then 

tc.string  =""
else
if tc.string <> chr(10) then tc.Text.insertControlCharacter(tc,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, True)
end if
tc.collapsetoend
tc.goright(1,false)
loop

End Sub