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
Line 5: | Line 5: | ||
|NextPage=IT/Documentation/OOo3 User Guides/Getting Started/Finding more information | |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> | <code> | ||
− | Sub | + | Sub AggiungiCiao |
Dim oDoc | Dim oDoc | ||
Dim sTextService$ | Dim sTextService$ | ||
Dim oCurs | Dim oCurs | ||
− | REM ThisComponent | + | REM ThisComponent fa riferimento al documento attualmente attivo. |
oDoc = ThisComponent | oDoc = ThisComponent | ||
− | REM | + | REM Verifica che si tratti di un documento di testo |
sTextService = "com.sun.star.text.TextDocument" | sTextService = "com.sun.star.text.TextDocument" | ||
If NOT oDoc.supportsService(sTextService) Then | If NOT oDoc.supportsService(sTextService) Then | ||
− | MsgBox " | + | MsgBox "Questa macro funziona solamente con documenti di testo" |
Exit Sub | Exit Sub | ||
End If | End If | ||
− | REM | + | REM Prende il controllo del cursore del controller corrente. |
oCurs = oDoc.currentController.getViewCursor() | oCurs = oDoc.currentController.getViewCursor() | ||
− | REM | + | REM Muove il cursore alla fine del documento |
oCurs.gotoEnd(False) | oCurs.gotoEnd(False) | ||
− | REM | + | REM Inserisce il testo "Ciao" alla fine del documento |
− | oCurs.Text.insertString(oCurs, " | + | oCurs.Text.insertString(oCurs, "Ciao", False) |
End Sub | End Sub | ||
</code> | </code> |
Latest revision as of 16:46, 20 October 2010
- Creazione di una semplice macro
- Creazione di una macro
- Qualche volta la registrazione di una macro fallisce
- Organizzazione delle macro
- Come eseguire una macro
- Estensioni
- Scrittura delle macro senza l'utilizzo del registratore
- Ulteriori informazioni
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). |