OpenOffice.info

Hallo Gert!

Also, das alle Tabellen markieren und dann den Seitenumbruch verändern klappt schon mal nicht, habe ich versucht.
Ich benutze z.Zt. OO 3.1.1
Zu der Geschichte mit dem Flackern sagte man mir hier im Basic Forum, dass es evtl. an einem Makro liegen könnte. Ich habe die Tabellen in Teilbereichen mit Passwort geschützt. Wenn jetzt eine Tabelle ausgefüllt ist, wird auf einen Schalter gedrückt und eben dieses Makro ausgeführt. Dieses Makro habe ich mit der automatischen Makroaufzeichnung erstellt und nicht selbst geschrieben. Jetzt sagte Karolus zu mir, ich solle mal die überflüssigen Blöcke löschen, nur wie? Ich habe sehr wenig Ahnung von Makros.
Ich füge es hier mal ein, vielleicht weißt du ja, was er damit meint:

Sorry, es ist sehr lang

Gruß Andreas




REM ***** BASIC *****

Sub Main

End Sub


sub sperren
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 = "Protect"
args1(0).Value = false

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

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

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

rem ----------------------------------------------------------------------
dim args3(3) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Protection.Locked"
args3(0).Value = true
args3(1).Name = "Protection.FormulasHidden"
args3(1).Value = true
args3(2).Name = "Protection.Hidden"
args3(2).Value = false
args3(3).Name = "Protection.HiddenInPrintout"
args3(3).Value = false

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

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

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

rem ----------------------------------------------------------------------
dim args5(3) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Protection.Locked"
args5(0).Value = true
args5(1).Name = "Protection.FormulasHidden"
args5(1).Value = true
args5(2).Name = "Protection.Hidden"
args5(2).Value = false
args5(3).Name = "Protection.HiddenInPrintout"
args5(3).Value = false

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

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$G$17"

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

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "ToPoint"
args7(0).Value = "$C$9:$AI$38"

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

rem ----------------------------------------------------------------------
dim args8(3) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Protection.Locked"
args8(0).Value = true
args8(1).Name = "Protection.FormulasHidden"
args8(1).Value = true
args8(2).Name = "Protection.Hidden"
args8(2).Value = false
args8(3).Name = "Protection.HiddenInPrintout"
args8(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args8())

rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$D$5:$AH$5"

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

rem ----------------------------------------------------------------------
dim args10(3) as new com.sun.star.beans.PropertyValue
args10(0).Name = "Protection.Locked"
args10(0).Value = true
args10(1).Name = "Protection.FormulasHidden"
args10(1).Value = true
args10(2).Name = "Protection.Hidden"
args10(2).Value = false
args10(3).Name = "Protection.HiddenInPrintout"
args10(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args10())

rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "ToPoint"
args11(0).Value = "$B$42"

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

rem ----------------------------------------------------------------------
dim args12(3) as new com.sun.star.beans.PropertyValue
args12(0).Name = "Protection.Locked"
args12(0).Value = true
args12(1).Name = "Protection.FormulasHidden"
args12(1).Value = false
args12(2).Name = "Protection.Hidden"
args12(2).Value = false
args12(3).Name = "Protection.HiddenInPrintout"
args12(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args12())

rem ----------------------------------------------------------------------
dim args13(0) as new com.sun.star.beans.PropertyValue
args13(0).Name = "ToPoint"
args13(0).Value = "$B$44"

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

rem ----------------------------------------------------------------------
dim args14(3) as new com.sun.star.beans.PropertyValue
args14(0).Name = "Protection.Locked"
args14(0).Value = true
args14(1).Name = "Protection.FormulasHidden"
args14(1).Value = false
args14(2).Name = "Protection.Hidden"
args14(2).Value = false
args14(3).Name = "Protection.HiddenInPrintout"
args14(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args14())

rem ----------------------------------------------------------------------
dim args15(0) as new com.sun.star.beans.PropertyValue
args15(0).Name = "ToPoint"
args15(0).Value = "$E$41:$AD$49"

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

rem ----------------------------------------------------------------------
dim args16(3) as new com.sun.star.beans.PropertyValue
args16(0).Name = "Protection.Locked"
args16(0).Value = true
args16(1).Name = "Protection.FormulasHidden"
args16(1).Value = false
args16(2).Name = "Protection.Hidden"
args16(2).Value = false
args16(3).Name = "Protection.HiddenInPrintout"
args16(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args16())

rem ----------------------------------------------------------------------
dim args17(0) as new com.sun.star.beans.PropertyValue
args17(0).Name = "ToPoint"
args17(0).Value = "$AI$42"

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

rem ----------------------------------------------------------------------
dim args18(3) as new com.sun.star.beans.PropertyValue
args18(0).Name = "Protection.Locked"
args18(0).Value = true
args18(1).Name = "Protection.FormulasHidden"
args18(1).Value = false
args18(2).Name = "Protection.Hidden"
args18(2).Value = false
args18(3).Name = "Protection.HiddenInPrintout"
args18(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args18())

rem ----------------------------------------------------------------------
dim args19(0) as new com.sun.star.beans.PropertyValue
args19(0).Name = "ToPoint"
args19(0).Value = "$AI$46"

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

rem ----------------------------------------------------------------------
dim args20(3) as new com.sun.star.beans.PropertyValue
args20(0).Name = "Protection.Locked"
args20(0).Value = true
args20(1).Name = "Protection.FormulasHidden"
args20(1).Value = false
args20(2).Name = "Protection.Hidden"
args20(2).Value = false
args20(3).Name = "Protection.HiddenInPrintout"
args20(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args20())

rem ----------------------------------------------------------------------
dim args21(0) as new com.sun.star.beans.PropertyValue
args21(0).Name = "ToPoint"
args21(0).Value = "$AK$15:$AT$22"

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

rem ----------------------------------------------------------------------
dim args22(3) as new com.sun.star.beans.PropertyValue
args22(0).Name = "Protection.Locked"
args22(0).Value = true
args22(1).Name = "Protection.FormulasHidden"
args22(1).Value = false
args22(2).Name = "Protection.Hidden"
args22(2).Value = false
args22(3).Name = "Protection.HiddenInPrintout"
args22(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args22())

rem ----------------------------------------------------------------------
dim args23(0) as new com.sun.star.beans.PropertyValue
args23(0).Name = "ToPoint"
args23(0).Value = "$AU$15:$BD$18"

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

rem ----------------------------------------------------------------------
dim args24(3) as new com.sun.star.beans.PropertyValue
args24(0).Name = "Protection.Locked"
args24(0).Value = true
args24(1).Name = "Protection.FormulasHidden"
args24(1).Value = false
args24(2).Name = "Protection.Hidden"
args24(2).Value = false
args24(3).Name = "Protection.HiddenInPrintout"
args24(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args24())

rem ----------------------------------------------------------------------
dim args25(0) as new com.sun.star.beans.PropertyValue
args25(0).Name = "ToPoint"
args25(0).Value = "$AW$19:$AX$22"

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

rem ----------------------------------------------------------------------
dim args26(3) as new com.sun.star.beans.PropertyValue
args26(0).Name = "Protection.Locked"
args26(0).Value = true
args26(1).Name = "Protection.FormulasHidden"
args26(1).Value = false
args26(2).Name = "Protection.Hidden"
args26(2).Value = false
args26(3).Name = "Protection.HiddenInPrintout"
args26(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args26())

rem ----------------------------------------------------------------------
dim args27(0) as new com.sun.star.beans.PropertyValue
args27(0).Name = "ToPoint"
args27(0).Value = "$AY$22:$BD$22"

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

rem ----------------------------------------------------------------------
dim args28(3) as new com.sun.star.beans.PropertyValue
args28(0).Name = "Protection.Locked"
args28(0).Value = true
args28(1).Name = "Protection.FormulasHidden"
args28(1).Value = false
args28(2).Name = "Protection.Hidden"
args28(2).Value = false
args28(3).Name = "Protection.HiddenInPrintout"
args28(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args28())

rem ----------------------------------------------------------------------
dim args29(0) as new com.sun.star.beans.PropertyValue
args29(0).Name = "ToPoint"
args29(0).Value = "$AU$23:$BD$26"

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

rem ----------------------------------------------------------------------
dim args30(3) as new com.sun.star.beans.PropertyValue
args30(0).Name = "Protection.Locked"
args30(0).Value = true
args30(1).Name = "Protection.FormulasHidden"
args30(1).Value = false
args30(2).Name = "Protection.Hidden"
args30(2).Value = false
args30(3).Name = "Protection.HiddenInPrintout"
args30(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args30())

rem ----------------------------------------------------------------------
dim args31(0) as new com.sun.star.beans.PropertyValue
args31(0).Name = "ToPoint"
args31(0).Value = "$AK$32:$BD$39"

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

rem ----------------------------------------------------------------------
dim args32(3) as new com.sun.star.beans.PropertyValue
args32(0).Name = "Protection.Locked"
args32(0).Value = true
args32(1).Name = "Protection.FormulasHidden"
args32(1).Value = false
args32(2).Name = "Protection.Hidden"
args32(2).Value = false
args32(3).Name = "Protection.HiddenInPrintout"
args32(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args32())

rem ----------------------------------------------------------------------
dim args33(0) as new com.sun.star.beans.PropertyValue
args33(0).Name = "ToPoint"
args33(0).Value = "$AK$41"

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

rem ----------------------------------------------------------------------
dim args34(3) as new com.sun.star.beans.PropertyValue
args34(0).Name = "Protection.Locked"
args34(0).Value = true
args34(1).Name = "Protection.FormulasHidden"
args34(1).Value = false
args34(2).Name = "Protection.Hidden"
args34(2).Value = false
args34(3).Name = "Protection.HiddenInPrintout"
args34(3).Value = false

dispatcher.executeDispatch(document, ".uno:Protection", "", 0, args34())

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

dispatcher.executeDispatch(document, ".uno:Protect", "ah01", 0, args35())


end sub

Hallo shane,
nachfolgendes bitte mit einer "Dateikopie" testen !

Tabelle1 anklicken, "Shift-Taste" drücken und letzte "Tabelle" anklicken, nun sind alle Tabellen markiert. Alle folgenden Änderungen in
Tabelle1 werden in die markierten "Tabellen" übertragen. Klickst Du eine markierte Tabelle an, ist die Markierung für alle aufgehoben.

Zu zweitens solltest Du schreiben, welches Betriebsystem und Ooo_Version verwendet wird.

mfg
Gert

Hallo zusammen!

Ich weiß nicht, ob es überhaupt funktioniert, aber ich habe etliche Tabellen, die alle gleich aussehen. Ein Tabellenblatt besteht aus zwei Seiten. Nun ist mir leider der Seitenumbruch verrutscht und ich möchte mir die Arbeit ersparen, für jede Tabellen einzeln den Seitenumbruch festzulegen.
Desweiteren habe ich ein Problem damit, dass die Tabellen in der Seitenansicht plötzlich fürchterlich flackern und ich kann nichts mehr machen.

Weiß jemand Lösungen?

Danke

Andreas