Scrittura delle macro senza l'utilizzo del registratore

Primi passi con Apache OpenOffice 3.x

Capitolo 13: Primi passi con le macro

< Previous Section

Next Section >

• 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

< Previous 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