oggi mi annoiavo allora ecco la mia versione della macro. L'ho provata un
paio di volte e pare funzionare... Si deve fare estrema attenzione ad
assegnarla all'evento creazione di un documento anziche' apertura, pena:
risultati disastrosi!! :) :)
CiaoCiao,
Michele
Sub subDeleteUnwantedCalcSheets()
Dim oNewDoc As Object
Dim oSheets As Object 'the sheets enumeration
Dim oSheet As Object 'the sheet to be deleted
Dim sSheetName As String 'the name of the sheet to be removed
'Check if a calc document has been created
oNewDoc = thisComponent
If Not oNewDoc.SupportsService("com.sun.star.sheet.SpreadsheetDocument")
Then
Exit Sub
End If
'get the sheets enumeration
oSheets = oNewDoc.Sheets
' it would be easier to use the enumeration HasMoreElement and so on...
Do While oSheets.getCount() > 1
oSheet = oSheets.getByIndex(oSheets.getCount - 1)
sSheetName = oSheet.getName()
oSheets.removeByName( sSheetName )
Loop
End Sub
On 05/01/06, Michele Zarri <[EMAIL PROTECTED]> wrote:
>
> Ciao,
>
> in effetti un metodo un po' incasinato esiste: basta scrivere una piccola
> macro che cancella i due fogli di troppo e associarla all'evento "Crea un
> nuovo documento".
> Un giorno installero' la versione italiana del programma, per il momento,
> nella versione inglese l'associazione della macro all'evento della creazione
> di un nuovo documento si fa cosi':
> tools-->customise, scegli la scheda (tab) "events", seleziona la riga
> "Create Document", seleziona nella combo box in basso save in
> OpenOffice.org, premi il pulsante "assign macro" e quindi assegna la macro
> che hai scritto.
>
> Per scrivere la macro si deve fare attenzione al fatto che questa viene
> eseguita anche quando si crea un documento writer o impress, percio' la
> prima cosa da fare e' un controllo che si stia creando un documento calc. E'
> tutto spiegato sul superbo documento di Andrew Pitonyak "AndrewMacro".
>
> Se ho tempo magari provo a scrivere la macro anche se sono sicuro che su
> questa lista ci sono persone molto piu' qualificate di me (ed e' davvero una
> cosa da 10-15 righe).
>
> Cheers,
>
> Michele
>
> On 05/01/06, Francesca Chiarelli <[EMAIL PROTECTED]> wrote:
> >
> > > per default non lo so ma sicuramente se si sa
> > > modificare il programma si puo' fare.
> > Sì, appunto questo chiedevo. Io speravo ci fosse qualche comodo comando
> > o
> > almeno qualche facile modifica ad un semplice file. Trovo molto seccante
> >
> > avere per default già 3 fogli e dover ogni volta cancellare i 2 extra.
> > Spero in altri interventi.
> > Grazie lo stesso.
> >
> >
> > Francesca
> > ---------------------------------------
> >
> > ---------------------------------------------------------------------
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
>
