[Fwd: Automatické zvolení ano v dialo gu pomocí makra]

[Bc. Miloš Bíba]

-------- Původní zpráva --------
Od: "Bc. Miloš Bíba" <[EMAIL PROTECTED]>
Předmět: Automatické zvolení ano v dialogu pomocí makra
Komu: users@cs.openoffice.org

Zdravím,

Mám pomocí makrorekordéru nahraté makro, které z jednoho
listu prejde na druhy a spoji urcite bunky ve dvou sloupcích
 do jedné. Makro funguje, ale dá se nějak odfiltrovat ten
dialog, kterym musim pri behu makra u kazdeho sloupce
potvrzovat, ze chci opravdu obsah vsech bunek dat do prvni.
Chtel bych automaticky odpovidat ano, ale makrorekorder mi
tu odpoved ano nenahral. Dekuji za kazdy napad. Prikladam
pro zjednoduseni to makro. Ono to bude ve finale slucovat
bunky asi ze 30 listu, takze tohle je jen ukazka makra co
dela list jen jeden.

Dekuji moc.



sub test
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 = "Nr"
args1(0).Value = 5

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

rem
----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$K$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0,
args2())

rem
----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$K$2:$K$32"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0,
args3())

rem
----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "MoveContents"
args4(0).Value = true

dispatcher.executeDispatch(document,
".uno:ToggleMergeCells", "", 0, args4())

rem
----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$L$2:$L$32"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0,
args5())

rem
----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "MoveContents"
args6(0).Value = true

dispatcher.executeDispatch(document,
".uno:ToggleMergeCells", "", 0, args6())


end sub







--
        Bc. Miloš Bíba
e-mail: [EMAIL PROTECTED]
jabber: [EMAIL PROTECTED]
msn:    [EMAIL PROTECTED]
skype:  milos.biba
icq:    159709540



--
        Bc. Miloš Bíba
e-mail: [EMAIL PROTECTED]
jabber: [EMAIL PROTECTED]
msn:    [EMAIL PROTECTED]
skype:  milos.biba
icq:    159709540

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]