Completing Paragraph with character using macro in ODT - macros

Question

Supposse that you have the next paragraph in openoffice
ESCRITURA PÚBLICA NÚMERO ESCRITURA PÚBLICA NÚMERO DDSDSSDDS/2015 ESCRITURA PÚBLICA DE DSDSSDDSPODER ESPECIAL, QUE OTORGA HEZ GONZALES A FAVOR DE CARLOS ESANCHEZ YADOS SANCHEZ.
How Can I to use macros to complete automatically the paragraph until before the break line using the character ====?. In other words the output of that macro will be:
ESCRITURA PÚBLICA NÚMERO ESCRITURA PÚBLICA NÚMERO DDSDSSDDS/2015 ESCRITURA PÚBLICA DE DSDSSDDSPODER ESPECIAL, QUE OTORGA HEZ GONZALES A FAVOR DE CARLOS ESANCHEZ YADOS SANCHEZ. ==============================

Answer 1

For a solution without macros, you could modify the paragraph style, using a right-aligned tabstop and a filling caracter. To do so, you should first create a new paragraph style:
Put the cursor into one of the lines to modify;
Open Menu Format -> Styles and Formatting, or hit F11;
Click on the rightmost button (with the little arrow pointing downwards), and select New Style from Selection:
Enter a name for the style, making managing styles easier.
Now, in the paragraph styles list, right-click on the new style, and select Modify... from the context menu;
On the Tabs tab, create a new tabstop with the following settings:
Take care to set the fill character (by default: empty). The position depends on the margin settings and paper size; with A4 paper (21 cm width) and 2cm borders, the right text margin is at 17 cm.
Now, put the cursor at the end of the line that should be filled with =, make sure that the right paragraphs style is active, and hit the Tab key to insert a tabulator. LO Writer will fill the line with the fill character set unto the end of the line:
If you need to add tabstops to multiple paragraphs, you could execute a search/replace, replacing the paragraph mark with a combination of tabstop/paragraph mark. You could also use search/replace to apply the new paragraph style.
Tested with LibreOffice Writer, but should work with OpenOffice, too.

Answer 2

Here is OpenOffice Basic code that does what you want:
Sub addEquals
oDoc = ThisComponent
oVC = oDoc.getCurrentController.getViewCursor
linenum_original = getLinenum(oVC)
For insertEqual = 1 to 255
oVC.collapseToEnd
oVC.gotoEndofLine(False)
oVC.getText().insertString(oVC, "=", False)
If getLinenum(oVC) <> linenum_original Then
' Remove the last =
oVC.gotoEndofLine(False)
oVC.goLeft(1, True)
oVC.setString("")
oVC.goRight(0, False)
oVC.collapseToEnd
Exit For
End If
Next insertEqual
End Sub
Function getLinenum(oVC)
nY = 0 'How many lines from top of page
nPage = oVC.getPage
while oVC.goUp(1, False) and oVC.getPage = nPage
nY = nY + 1
wend
oVC.goDown(nY, False)
getLinenum = nY
End Function
Position the cursor at the end of the paragraph ("SANCHEZ" in your example) and then run this macro.
The way it works is to add one "=" at a time and check if it is still on the same line. If it is on another line, then it stops.
It flashes a lot, so you may want to add code to lock the controllers while this is running. See https://wiki.openoffice.org/wiki/Writer/API/View_cursor.