dovrei aggiungere dei numeri all'inizio delle celle con dentro testo.
esempio
riga1 deve diventare 01-riga1
riga2 " 02-riga2
e cosi via...
volevo scrivere una macro che lo facesse con le celle selezionate, che
contengono testo.
quelle vuote vanno lasciate vuote e non numerate.
Quello che non so fare รจ assegnare ad una variabile il numero di celle
scelte della stessa colonna,
leggere il valore della cella corrente e sostituire nella stessa il nuovo.
Ho letto una parte del manuale starbasic, ma non ho trovato...
Se qualcuno ha un'idea o un esempio...
Grazie
Beppe
sto usando la versione:
OOo_2.0.1rc5_051215_Win32Intel_install_it_wJRE
680m3 build 8968
sub NumeraRighe
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
rem ----------------------------------------------------------------------
dim riga as string
dim num_riga as integer
dim i as integer
dim righe_scelte as integer
rem righe_scelte sono le righe selezionate, ma non so come
rem leggere il numero delle righe selezionate col mouse
rem nella variabile riga vorrei leggere il testo che c'e'
rem in args1(0) (il contenuto della cella)
righe_scelte = 15
i = 1
num_riga = 0
for i=1 to righe_scelte
args1(0).Value = "$C$" + cstr(i)
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
riga = args1(0).Value
if trim(riga)<>"" then
num_riga = num_riga +1
if num_riga < 10 then
riga = "0" + cstr(num_riga)+ "-" + riga
else
riga = cstr(num_riga) + "-" + riga
endif
endif
next i
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
