--------- Original Message --------
Da: [email protected]
To: [email protected] <[email protected]>
Oggetto: Re: [dev-it] Writer - Posizione Cursor (Paragrafo)
Data: 04/12/09 12:06
>
> Paolo Mantovani ha scritto:
> > 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
> Ciao Paolo,
> elegante questo codifica, ora lo provo.
>
>
Arghh !
non tutti i documenti sono uguali, potrei fare lo stesso però
il processo giusto sarebbe stato il seguente
- Cerca "Descrizione sintetica"
- Cerca il seguente "styleName" "Header 1" OR "Header 2"
- Copio quella selezione
Il problema è la OR perchè perchè non mi pare si riesca a fare una find
degli stili in OR (non ne ho viste neppure con altri argomenti)
Ho provato con l'enumerazione dei paragrafi, ma come farla partire da dopo
la ricerca di "Descrizione sintetica"? Devo Scorrermi tuto il documento,
tantovale non usare la serch!
Misteri VBA !!!
Grazie
Guido
--
Caselle da 1GB, trasmetti allegati fino a 3GB e in piu' IMAP, POP3 e SMTP
autenticato? GRATIS solo con Email.it: http://www.email.it/f
Sponsor:
Conto Arancio ti regala 100 Euro da spendere su Media World on line. Cosa
aspetti, aprilo subito!
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=9983&d=20091207
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
