VBA tiettyjen rivien kopiointi

Kävipä hassusti. Luulin, että olin OpenOffice -sivustolla, kun luin aloitusviestin. Sitten massamuististani löytyi tämmöinen OpenOfficessa jotenkin toimiva koodi:
------------------
Sub Main

RivitEriTiedostoon("Merkkijono1",1)

End Sub

Rem Muunnoslähde: https://wiki.openoffice.org/wiki/Writer/API/Text_cursor
Rem alkuperäinen laatija: JohnV (2003)
Rem Muunnos: RJ/2015
Sub RivitEriTiedostoon (sMerkkijono as String, iRiviLkm as Integer)
dim oDoc,oVC,NewDoc,filename,url,oTC,oNewDocVC,newname,newurl,n


oDoc = ThisComponent
oVC = oDoc.CurrentController.getViewCursor 'Create View Cursor oVC
oVC.gotoStart(false) 'Make oVC position itself to the start of the document
NewDoc = StarDesktop.loadComponentFromURL("private:factory/swriter","_blank",0,Array()) 'Open blank Writer doc
oNewDocVC = NewDoc.CurrentController.getViewCursor 'Create another View Cursor for this new document

Do
oTC = oDoc.Text.createTextCursorByRange(oVC) 'Create Text Cursor by cloning the View Cursor (both have same position in doc)
oVC.gotoStartOfLine(False)
oVC.gotoEndOfLine(True) 'Valitaan uusi rivi
'oVC.jumpToEndOfPage 'Move View Cursor oVC to EndOfPage

oTC.gotoRange(oVC,true) 'Move Text Cursor to same location as oVC while selecting text in between (True)
IF Instr(oTC.String,sMerkkijono) then
Rem riviltä löytyi 1. tunnusmerkkijono
Rem laajennetaan valintaa yhdellä rivillä
oVC.goDown(iRiviLkm, False) 'Rivejä alaspäin, esim. 1
oTC.gotoRange(oVC,true) 'Tekstikursorivalinta
oNewDocVC.String = Chr(10) & oTC.String & Chr(10)
oNewDocVC.gotoEnd(False) 'Varmistetaan, ettu tuloskursori on alimpana. Ehkä turhaa tässä?
EndIf
Loop While oVC.goDown(1, False) 'Katkaissee valinnan siirryttäessä seuraavalle riville?
'NewDoc.dispose 'Close NewDoc
Rem Tulostiedosto jää tallentamattomana auki
End Sub 'RivitEriTiedostoon

------------------
Tiedä sitten, saako tuota muokattua VBA:lla toimivaksi? Osa pitkistä riveistä voi olla poikki tämän s24-systeemin vuoksi?