Ho scritto in velocità una piccola macro che legge il valore da un file
di testo, scrive il valore dove si trova il cursore nel documento
corrente, e quindi lo sostituisce con il valore incrementato di uno:
Sub Main
Dim oViewCursor As Object
oViewCursor = ThisComponent.CurrentController.getViewCursor()
' 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)
' 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]
