Olà Guido,
Guido (email.it) ha scritto:
Buongiorno,
Devo copiare i paragrafi compresi tra i titoli "Descrizione sintetica"
e la parola "Bibliografia"
Mi piacerebbe definire la posizione del primo testo, la posizione del
secondo testo,
aprirmi un cursore tra le due posizioni e copiare
Non è chiaro cosa intendi per "copiare" cmq con il codice seguente
ottieni un cursore "virtuale" che seleziona il testo cercato.
ciao
Paolo M
REM ***** BASIC *****
Sub Main
oDoc = ThisComponent
aSrc = oDoc.createSearchDescriptor()
aSrc.SearchAll = true
'trova la prima stringa
aSrc.SearchString = "Descrizione sintetica"
oTxtStart = oDoc.findFirst(aSrc)
'posiziona il cursore all'inizio del paragrafo successivo
oTxtStart.gotoNextParagraph(False)
'trova la seconda stringa
aSrc.SearchString = "Bibliografia"
oTxtEnd = oDoc.findFirst(aSrc)
'posiziona il cursore alla fine del paragrafo precedente
oTxtEnd.gotoPreviousParagraph(False)
'seleziona (in modo invisibile) i paragrafi compresi tra start e end
oCur = oDoc.Text.createTextCursor()
oCur.gotoRange(oTxtStart, False)
oCur.gotoRange(oTxtEnd, True)
msgbox oCur.string
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
