Buon giorno a tutti. Mi chiamo Piero... sono un neofita per quanto
riguarda Open Office. Mi ritrovo a dover creare un documento. Ho
tentato di registrare una macro.. per insierire una text section a due
colonne... solo che quando avvio la macro... mi crea solo la sezione
senza parametri...
REM ***** BASIC *****
sub Main
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(6) as new com.sun.star.beans.PropertyValue
args1(0).Name = "RegionName"
args1(0).Value = "FullWidth"
args1(1).Name = "RegionCondition"
args1(1).Value = ""
args1(2).Name = "RegionHidden"
args1(2).Value = false
args1(3).Name = "RegionProtect"
args1(3).Value = false
args1(4).Name = "LinkName"
args1(4).Value = ""
args1(5).Name = "FilterName"
args1(5).Value = ""
args1(6).Name = "SubRegion"
args1(6).Value = ""
dispatcher.executeDispatch(document, ".uno:InsertSection", "", 0, args1())
end sub
sub Main2
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(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Columns"
args1(0).Value = 2
args1(1).Name = "RegionName"
args1(1).Value = "ColumnFormat"
args1(2).Name = "RegionCondition"
args1(2).Value = ""
args1(3).Name = "RegionHidden"
args1(3).Value = false
args1(4).Name = "RegionProtect"
args1(4).Value = false
args1(5).Name = "LinkName"
args1(5).Value = ""
args1(6).Name = "FilterName"
args1(6).Value = ""
args1(7).Name = "SubRegion"
args1(7).Value = ""
dispatcher.executeDispatch(document, ".uno:InsertSection", "", 0, args1())
end sub
sub Main3
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(6) as new com.sun.star.beans.PropertyValue
args1(0).Name = "RegionName"
args1(0).Value = "FullWidth1"
args1(1).Name = "RegionCondition"
args1(1).Value = ""
args1(2).Name = "RegionHidden"
args1(2).Value = false
args1(3).Name = "RegionProtect"
args1(3).Value = false
args1(4).Name = "LinkName"
args1(4).Value = ""
args1(5).Name = "FilterName"
args1(5).Value = ""
args1(6).Name = "SubRegion"
args1(6).Value = ""
dispatcher.executeDispatch(document, ".uno:InsertSection", "", 0, args1())
end sub
la macro dovrebbe creare appunto una text section con 2 colonne con uno
spazio tra di esse di 5 mm.
Vi chiedo cortesemente aiuto.
Piero
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
