Studio CICUTO - PC C wrote:
...
' scrivo il testo in cima al documento
Testo="Il numero del protocollo è" + Str(a)
oViewCursor.getText.insertString(oViewCursor.getStart(), Testo, False)
...
Non c'è un modo per dirgli di scrivere il valore in una cella di Calc
indipendentemente dalla posizione del cursore o la macro funziona solo
un Writer?
Saluti e grazie
Stefano
Così com'è funziona in Writer.
Per Calc si possono apportare le seguenti modifiche:
dim oSheet as Object
dim oCell
' seleziono il foglio attivo
oSheet = ThisComponent.CurrentController.ActiveSheet
' specifico la cella in cui voglio scrivere (ad es: A1)
oCell = oSheet.getCellRangebyName("A1").getCellByPosition(0,0)
' scrivo il testo
oCell.string = Testo
quindi la macro diventa:
Sub Main
' Dim oViewCursor As Object
' oViewCursor = ThisComponent.CurrentController.getViewCursor()
dim oSheet as Object
dim oCell
' seleziono il foglio attivo
oSheet = ThisComponent.CurrentController.ActiveSheet
' specifico la cella in cui voglio scrivere (ad es: A1)
oCell = oSheet.getCellRangebyName("A1").getCellByPosition(0,0)
' inserire l'URL del file, che deve esistere e contenere un valore numerico
FileName="file:///c:/prova.txt"
' apro il file che deve esistere e leggo il valore
n = FreeFile()
Open FileName For Input As #n
Input #n, a
Close #n
' scrivo il testo in cima al documento
Testo="Il numero del protocollo è" + Str(a)
' oViewCursor.getText.insertString(oViewCursor.getStart(), Testo, False)
' scrivo il testo
oCell.string = Testo
' incremento il valore
a=a+1
' cancello e creo un nuovo file con lo stesso nome e inserisco il nuovo
valore
n = FreeFile()
Open FileName For Output As #n
Write #n, a
Close #n
End Sub
Ciao,
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
