Roland,
Kopiere das Makro aus den Gimmicks (diese sind schreibgeschütz und somit
gegen die folgenden Änderungen immun).
Ändere die folgenden 3 Stellen ab, indem Du die zusätzlichen Zeilen
einfügst. Jede Anweisung unterhalb des " füge folgende Zeile..."
Kommentars ist *eine* Zeile; eventl. Umbrüche entstehen durch das
Posting / die verwendeten Programme.
1. Stelle
'suche die Zeile
oTable = oDocument.CreateInstance("com.sun.star.text.TextTable")
' füge folgende Zeile als nächste Zeile ein
oTable.initialize(2,3)
2. Stelle
'suche die Zeile
InsertStringToCell("AutoText Shortcut",oTable.GetCellbyPosition(1,0),
"AutoTextHeading")
' füge folgende Zeile als nächste Zeile ein
InsertStringToCell("AutoText
Inhalt",oTable.GetCellbyPosition(2,0),"AutoTextHeading")
3. Stelle
'suche die Zeile
InsertStringToCell(oAutoGroup.ElementNames(m),
oTable.GetCellbyPosition(1, m + 1), "TableContent")
' füge folgende Zeile als nächste Zeile ein
InsertStringToCell(oAutoGroup.getByIndex(m).getString(),
oTable.GetCellbyPosition(2, m + 1), "TableContent")
Diese Anpassungen sorgen für eine dritte Spalte mit den Texten selbst.
Makros werden ausgeführt, deshalb kann die Erstellung etwas dauern.
Das Makro verwendet eine Variable, die nur 64 kB Text aufnehmen kann. Es
kann (wird) daher abbrechen, wenn die Autotexte diese Grösse
überschreiten.
Ich werde wohl die Änderungen und notwendige Umformatierungen
(Seitenformat quer, Spalte der Kürzel schmaler, etc.) am Wochenende zu
einem brauchbaren Makro packen und hochladen. Ich poste die URL dann
Anfang nächster Woche....
Cheers
Winfried
--
re-Solutions.de Software Test Engineering Mainz Germany Europe
OOo stuff (macros, templates, icons): http://www.winnirohr.de/ooo/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
