Seite 1 von 1

Ränder und Schriftgröße mit Makro ändern? (klappt nicht)

Verfasst: Fr 21. Jun 2013, 10:23
von Nuke
Hallo,

ich bin ziemlich neu beim Thema Libreoffice.
Ich hoffe ich bin hier im richtigen Unterforum.

Mein Problem ist, dass ich in Writer eine längere Arbeit mit vielen Formeln schreibe.
Die erste wichtige Annahme ist, dass wenn ich in Writer eine Formel einfüge, dass ich dann Math nutze?!

So jetzt mein echt großes Problem: Ich hab viele viele Formeln und im nachhinein ist mir aufgefallen, dass die Schriftgröße 12 ist und der Rand 1mm. Das hing damit zusammen, dass es mein erstes größeres Dokument außerhalb von MS Word ist. Jetzt muss ich alles auf 11 umstellen und 0mm Rand. Makros, welche ich aufzeichne brechen immer ab, wenn ich in den Formeleditor wechsel. Gibt es dazu eine Lösung? Wenn nicht, wäre das ein ziemliches Desaster für mich, daher wäre ich für jeden Tipp dankbar.

Re: Ränder und Schriftgröße mit Makro ändern? (klappt nicht)

Verfasst: Fr 21. Jun 2013, 11:07
von swolf
Hallo,

vielleicht hilft dir das
http://de.openoffice.info/viewtopic.php ... ce391e6c77

Mit dem Makrorekorder ist nicht möglich alles aufzunehmen:
F1 – Makros; aufnehmen

Re: Ränder und Schriftgröße mit Makro ändern? (klappt nicht)

Verfasst: Mi 3. Jul 2013, 10:04
von Hazel
Hallo Nuke
Die erste wichtige Annahme ist, dass wenn ich in Writer eine Formel einfüge, dass ich dann Math nutze?!
Diese Annahme ist sicher korrekt.
Jetzt muss ich alles auf 11 umstellen...
Ich kenne keine Möglichkeit, dies rückwirkend auf bereits bestehende Formeln anzuwenden. Falls ich mich täusche, wäre auch ich für einen entsprechenden Tipp dankbar. Mit Makros bin ich allerdings überhaupt nicht vertraut und weiß nicht, ob sich hier eine Chance bietet.

Frohes Schaffen
Hazel

Re: Ränder und Schriftgröße mit Makro ändern? (klappt nicht)

Verfasst: Mi 3. Jul 2013, 20:37
von F3K Total
Hi,
führe dieses Makro einmal in einer Kopie deines Dokumentes aus:

Code: Alles auswählen

sub S_change_Font_Height
    oembeddedObjectsenumeration = thiscomponent.embeddedObjects.createenumeration
    while oembeddedObjectsenumeration.hasmoreelements
    oformula = oembeddedObjectsenumeration.nextelement
    if oformula.CLSID = "078B7ABA-54FC-457F-8551-6147e776a997" then
    oformula.model.BaseFontHeight = 11 '<----Hier Schriftgröße eintragen
    endif   
    wend
end sub
Dann sollten alle Formeln die gewünschte Schriftgröße haben.
Gruß R