IT/Documentation/OOo3 User Guides/Getting Started/Writing macros without the recorder

Scrittura delle macro senza l'utilizzo del registratore

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 1: 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