Forums Neueste Beiträge
 

Makroaufzeichnung Tabelle-Einfügen-Zeile-davor : Klappt nicht?

01/04/2009 - 21:09 von Pit Zyclade | Report spam
Hallo,
Ich möchte bei 38 Tabellen in einem Dokument per Makro eine erste Zeile
einfügen. Deshalb die oben genannte Befehlsfolge, nachdem ich den
Mauszeiger an den Tabellenanfang stelle. Per Hand und Tastaturfolge geht
es problemlos, nur nicht nach Makroaufzeichnung.

Die Makroaufzeichnung aber versteht dies richtig und fügt immer erst
nach der ersten Tabellenzeile ein also das Alt+v wird nicht registriert.

Das (sehr einfache) Makro lautet:

sub Zeileinf
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 -
dispatcher.executeDispatch(document, ".uno:InsertRows", "", 0, Array())

rem -
rem dispatcher.executeDispatch(document, ".uno:InsertRowDialog", "", 0,
Array())


end sub

Was mache ich falsch?

Danke

Pit Zyclade
 

Lesen sie die antworten

#1 Pit Zyclade
02/04/2009 - 08:30 | Warnen spam
Pit Zyclade schrieb:
Hallo,
Ich möchte bei 38 Tabellen in einem Dokument per Makro eine erste Zeile
einfügen. Deshalb die oben genannte Befehlsfolge, nachdem ich den
Mauszeiger an den Tabellenanfang stelle. Per Hand und Tastaturfolge geht
es problemlos, nur nicht nach Makroaufzeichnung.

Die Makroaufzeichnung aber versteht dies richtig und fügt immer erst
nach der ersten Tabellenzeile ein also das Alt+v wird nicht registriert.




Ich bin schon insofern weiter, als ich das folgende Makro editierte,
leider ohne Kenntnisse bezüglich der syntax der swriter-spezifischen
Befehle...

...
rem -
dispatcher.executeDispatch(document, ".uno:InsertRows", "", 0, Array())



Die beiden vorgehenden Zeilen sind entbehrlich, denn hierbei wird eine
Zeile ohne den notwendigen Dialog eingeführt!


rem -
rem dispatcher.executeDispatch(document, ".uno:InsertRowDialog", "", 0,
Array())




Hier muß das rem raus:
dispatcher.executeDispatch(document, ".uno:InsertRowDialog", "", 0,
Array())

Zwar gehts noch nicht automatisch, aber mit Strg+v kann man den Dialog
schnell beantworten.


Kann vielleicht mir jemand die notwendige syntax mitteilen, um das
Strg+v und das Enter im Befehl unterzubringen?

Danke

Pit Zyclade

Ähnliche fragen