Hallo Jörg,
hallo alle anderen,
ich schaffe es nicht, in Writer einen Rahmen mittels eines Makros einzufügen.
OS: MS Windows 7 (64 Bit)
OOo-Version: 3.2.1
Problem:
Wenn ich per Makrorecorder das Einfügen eines Rahmen aufzeichne, scheint alles
zu funktionieren. Beim Abspielen des Makros wird aber nur ein Teil der
Einstellungen des Rahmens ausgeführt.
Mein gewünschten Einstellungen sind:
Reiter „Typ“:
Größe:
Breite: 17,50 cm
Höhe: 1,50 cm
Autom. Größe: Haken ist gesetzt
Verankerung: „An der Seite“
Position:
Horizontal:
„Links“
zu: „Seitentextbereich“
Vertikal
„Unten“
zu: „Seitentextbereich“
Reiter „Umlauf“
Vorgabe: „Kein“
Abstände
Oben: 1,00 cm
Der Makrorecoder speichert aber nur folgendes ab:
sub Probe
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(4) as new com.sun.star.beans.PropertyValue
args1(0).Name = "AnchorType"
args1(0).Value = 2
args1(1).Name = "Pos.X"
args1(1).Value = 0
args1(2).Name = "Pos.Y"
args1(2).Value = 0
args1(3).Name = "Size.Width"
args1(3).Value = 17500
args1(4).Name = "Size.Height"
args1(4).Value = 1499
dispatcher.executeDispatch(document, ".uno:InsertFrame", "", 0, args1())
end sub
Kann mir bitte jemand sagen, wie der vollständige Code lautet?
Gruß
Jochen
--- Ursprüngliche Nachricht ---
Von: Jörg Kleinfeld <joerg.kleinf...@arcor.de>
Gesendet am: 30.10.2010 16:40:09
Gesendet an: <Jochen <users@de.openoffice.org>>
Betreff: Re: [de-users] Writer -> Tabelle am Ende einer jeden Seite einfügen
Guten Tag Jochen,
am Samstag, 30. Oktober 2010 um 15:23 schrieben Sie:
======================== Zitatanfang ========================
> Mit der Rahmenlösung geht es auch
> nicht wirklich, da für jede Seite
> extra ein Rahmen generiert werden
> müsste (Hinweis: das QM umfasst ca. 2.000 Seiten).
========================= Zitatende =========================
Den Rahmen könnte man aber dann inklusive Tabelle mittels
Makro einfügen.
--
Mit freundlichen Grüßen
Jörg Kleinfeld
mailto:joerg.kleinf...@arcor.de
http://www.bsv.de
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org
