In un foglio elettronico ho dati su 4 colonne: A, B, C, D
La funzione menù >DATI > ORDINA prevede solo tre campi, per cui la col D non viene ordinata.
Ho predisposto la macro che segue, ma rimane non trattata sempre la col D.
Lo script mi pare corretto... dov'è l'errore?
Potrei anche utilizzare Word, ma credo che anche questo si comporti alla stessa maniera (mi è capitato con formattazione condizionale... 3 sole opzioni, ma con macro con 4 non ho risolto)
sub ordinaABCD
'ordina le colonne ABCD in ascendente

dim document as object
dim dispatcher as object
'
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelpe r")

dim args1(12) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ByRows"
args1(0).Value = true
args1(1).Name = "HasHeader"
args1(1).Value = false
args1(2).Name = "CaseSensitive"
args1(2).Value = false
args1(3).Name = "IncludeAttribs"
args1(3).Value = true
args1(4).Name = "UserDefIndex"
args1(4).Value = 0

args1(5).Name = "Col1"
args1(5).Value = 1
args1(6).Name = "Ascending1"
args1(6).Value = true
args1(7).Name = "Col2"
args1(7).Value = 2
args1(8).Name = "Ascending2"
args1(8).Value = true
args1(9).Name = "Col3"
args1(9).Value = 3
args1(10).Name = "Ascending3"
args1(10).Value = true
args1(11).Name = "Col4"
args1(11).Value = 4
args1(12).Name = "Ascending4"
args1(12).Value = true

dispatcher.executeDispatch(document, ".uno:dataSort", "", 0, args1())


end sub
Grazie


ps: nello script [uno:dataSort] la D di data è maiuscola, l'ho messa minuscola altrimenti il VB di questa pagina mi scrive lo smilie