Difference between revisions of "IT/Documentation/OOo3 User Guides/Getting Started/Writing macros without the recorder"
From Apache OpenOffice Wiki
< IT | Documentation | OOo3 User Guides | Getting Started
(Scrittura delle macro senza l'utilizzo del registratore) |
|||
| (One intermediate revision by the same user not shown) | |||
| Line 1: | Line 1: | ||
| − | + | {{DISPLAYTITLE:Scrittura delle macro senza l'utilizzo del registratore}} | |
| + | {{Documentation/GS3MacroITTOC | ||
| + | |ShowPrevNext=block | ||
| + | |PrevPage=IT/Documentation/OOo3 User Guides/Getting Started/Extensions | ||
| + | |NextPage=IT/Documentation/OOo3 User Guides/Getting Started/Finding more information | ||
| + | }} | ||
Gli esempi raccolti in questo capitolo sono stati creati utilizzando il registratore macro e il gestore di eventi. Potete anche scrivere macro che accedono direttamente agli oggetti che sono inclusi in OpenOffice.org. In altre parole, potete manipolare direttamente un documento. | Gli esempi raccolti in questo capitolo sono stati creati utilizzando il registratore macro e il gestore di eventi. Potete anche scrivere macro che accedono direttamente agli oggetti che sono inclusi in OpenOffice.org. In altre parole, potete manipolare direttamente un documento. | ||
Manipolare direttamente gli oggetti interni di OpenOffice.org è un argomento avanzato che va oltre gli scopi di questo capitolo. Tuttavia potete vederne il funzionamento tramite un piccolo esempio. | Manipolare direttamente gli oggetti interni di OpenOffice.org è un argomento avanzato che va oltre gli scopi di questo capitolo. Tuttavia potete vederne il funzionamento tramite un piccolo esempio. | ||
| − | ''Listato | + | ''Listato 4: Aggiungere il testo "Ciao" alla fine del documento corrente.'' |
| + | <code> | ||
| + | Sub AggiungiCiao | ||
| + | Dim oDoc | ||
| + | Dim sTextService$ | ||
| + | Dim oCurs | ||
| + | |||
| + | REM ThisComponent fa riferimento al documento attualmente attivo. | ||
| + | oDoc = ThisComponent | ||
| + | |||
| + | REM Verifica che si tratti di un documento di testo | ||
| + | sTextService = "com.sun.star.text.TextDocument" | ||
| + | If NOT oDoc.supportsService(sTextService) Then | ||
| + | MsgBox "Questa macro funziona solamente con documenti di testo" | ||
| + | Exit Sub | ||
| + | End If | ||
| + | |||
| + | REM Prende il controllo del cursore del controller corrente. | ||
| + | oCurs = oDoc.currentController.getViewCursor() | ||
| + | |||
| + | REM Muove il cursore alla fine del documento | ||
| + | oCurs.gotoEnd(False) | ||
| + | |||
| + | REM Inserisce il testo "Ciao" alla fine del documento | ||
| + | oCurs.Text.insertString(oCurs, "Ciao", False) | ||
| + | End Sub | ||
| + | </code> | ||
| − | + | {{Manual}} | |
| − | + | [[Category:Getting Started (Documentation)]] | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 16:46, 20 October 2010
| < {{#switch:Previous Page | Previous Section = Previous Section | Next Section = Next Section | Previous Page = Previous Page | Next Page = Next Page | }} | {{#switch:Next Page | Previous Section = Previous Section | Next Section = Next Section | Previous Page = Previous Page | Next Page = Next Page | }} > |
Gli esempi raccolti in questo capitolo sono stati creati utilizzando il registratore macro e il gestore di eventi. Potete anche scrivere macro che accedono direttamente agli oggetti che sono inclusi in OpenOffice.org. In altre parole, potete manipolare direttamente un documento.
Manipolare direttamente gli oggetti interni di OpenOffice.org è un argomento avanzato che va oltre gli scopi di questo capitolo. Tuttavia potete vederne il funzionamento tramite un piccolo esempio.
Listato 4: Aggiungere il testo "Ciao" alla fine del documento corrente.
Sub AggiungiCiao
Dim oDoc
Dim sTextService$
Dim oCurs
REM ThisComponent fa riferimento al documento attualmente attivo.
oDoc = ThisComponent
REM Verifica che si tratti di un documento di testo
sTextService = "com.sun.star.text.TextDocument"
If NOT oDoc.supportsService(sTextService) Then
MsgBox "Questa macro funziona solamente con documenti di testo"
Exit Sub
End If
REM Prende il controllo del cursore del controller corrente.
oCurs = oDoc.currentController.getViewCursor()
REM Muove il cursore alla fine del documento
oCurs.gotoEnd(False)
REM Inserisce il testo "Ciao" alla fine del documento
oCurs.Text.insertString(oCurs, "Ciao", False)
End Sub
| Content on this page is licensed under the Creative Common Attribution 3.0 license (CC-BY). |
