Paolo Mantovani schrieb:
Ciao Mirko,
Alle 13:02, giovedì 1 marzo 2007, Mirko Santarelli ha scritto:
[...]
In effetti mi ero rivolto qui perche' la mia intenzione era di creare
una macro, ieri ci ho lavorato un po' (su carta) sulle possibili
soluzioni, poi mi metto al PC (anzi al MAC) con Openoffice 2.0 a provare
intanto il cerca e sostituisci e con questo semplice codice
Sub prova
Dim Doc As Object
Dim Shett As Object
Dim ReplaceDescriptor As Object
Dim I As Integer
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
[...]
End sub
mi viene restituito errore sulla riga
Sheet= Doc. Sheets(0) ...errore di runtime basic proprieta' o metodo
non trovati
Mi sembra una cosa impossibile, li ho sempre usati (sotto Windows).
Il problema forse è nella riga precedente:
Doc = StarDesktop.CurrentComponent
Se lanci questo comando direttamente dall'IDE, il componente restituito è
l'IDE stesso, e non un documento Calc.
Usa:
ThisComponent.Sheets(0)
O al limite:
ThisComponent.Sheets.getByIndex(0)
ciao
Paolo
Così va di sicuro!
oDesktop = createUnoService("com.sun.star.frame.Desktop")
oDocument= oDesktop.CurrentComponent
oSheets = oDocument.sheets
oSheet = oSheets.getByIndex(0)
oppure
oSheet = oSheets.getByName("MiaTab")
ciao
Antonello
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
