[Solved] [Writer] Duplicate paragraphs via Basic macro

[patel]

Hello, I would like to copy the first 3 paragraphs of a writer document at the end of the document

[JeJe]

If you read up on text cursors.

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

Code: Select all

REM  *****  BASIC  *****

Sub Main
doc = thiscomponent
vc = doc.currentcontroller.viewcursor
tc = doc.text.createtextcursorbyrange(doc.text.getstart)
for i =1 to 3
tc.gotoNextParagraph(true)
next
doc.currentcontroller.select(tc)
trans = doc.currentcontroller.gettransferable
tc.gotorange(doc.text.getend,false)
doc.currentcontroller.select(tc)
doc.currentcontroller.inserttransferable(trans)
End Sub

[patel]

Perfect, thank you very much.

[patel]

how can I change the code to copy paragraphs 3 to 5? or the selected paragraphs)

[Zizi64]

or the selected paragraphs)

You must study the API descriptions of the AOO/LO - and read Andrew Pitonyak"s free macro books.
API: Application Programming Interface.

[JeJe]

The line

Code: Select all

trans = doc.currentcontroller.gettransferable

copies the selected text.

Play around with the following bit and what you learn by reading the above link I posted: work through that page till you understand it then you'll be able to answer the change of paragraphs bit yourself. I'm not giving you the whole answer cause we'll be here forever with someone writing all your code for you and you never learning how to do it for yourself.

Code: Select all

for i =1 to 3
tc.gotoNextParagraph(true)
next

[patel]

my solution

Code: Select all

Sub CopySelection
Doc = thiscomponent
trans = doc.currentcontroller.gettransferable
tc = doc.text.createtextcursorbyrange(doc.text.getend)
doc.currentcontroller.select(tc)
doc.currentcontroller.inserttransferable(trans)

end sub