Bitte um Hilfe Tabelespalte in Writer einfügen

[vampir666]

Liebe Community
ich ahbe eine Frage vlt kann sie mir jemnd beantworten.
Ich müsste folgendes umsetzen. Ich habe eine Tabelle in ihr befinden sich 2 Spalten Ziffer und Beschreibung.
Kann ich so machen, dass wenn ich im writer eine Ziffer eintippe und ein Macro ausführe oder ähnliches, dass hinter die Ziffer automatisch die Beschreibung geschrieben wird.
Müsste vlt i-wie mit Serienbrief funktion gehen oder so.Bitte um Hilfe .
MFG

[vampir666]

Kannst du das bsichen genauerer erklären.Denn das Problem ist ,dass die Tabelle ständig erweitert wird.Und man hat einen Brief wo man nur die Ziffer eingeben möchte und einen "Button drücken".Ich habe absolut keine Ideen wie man das verwirkochen könnte .Bitte um Hilfe.

ein kleines Beispiel wie das funktionieren sollte.

Wir haben ein Writer dokument dort geben wir eine der Herr Muster man hat am xx.yy.zzzz diesen Artikel gekauft.<Artikelkürzel > und hier müsste dann die BEschreibeung aus der Tabelle kommen.

[vampir666]

vielen Dank.
Ich habe die angegeben Seite besucht dun auch einiges ausprobiert.
Das Problem bei mir ist das manuelle anlegen von Autotexten ist aufwendig deswegen ahbe ich ebim anlegen ein Macro ausgezeichnet aber es gibt einen kleinen Bug.

Macro:

sub Main

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 = "Group"
args1(0).Value = "mytexts*1"

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

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Group"
args2(0).Value = "mytexts*1"

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

rem ----------------------------------------------------------------------
dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Group"
args3(0).Value = "mytexts*1"
args3(1).Name = "Name"
args3(1).Value = "Mon"
args3(2).Name = "ShortName"
args3(2).Value = "Monitor"

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


end sub


Man kann keine neuen Autotexte anlegen da das ersten von Name und Shortname zwar Autotexte erstelen aber er ersetzte s trotzdem durch alte Namen.
Bitte um hilfe

[hylli]

Ich denke, dass dies vllt. mit einem Calc-Dokument einfacher umzusetzen wäre.

Tabelle 1: Deine erfassten Werte (Spalte 1) + Beschreibung (Spalte 2)
Tabelle 2: Vorgegebene Werte + Beschreibung

Gibst Du nun in Tabelle 1 eine Zahl ein, wird automatisch in Spalte 2 die Beschreibung aus Tabelle 2 zum jeweiligen Wert per Formel gezogen.

Formel/Funktion die Du dafür in Tabelle 1 für die Beschreibung benötigst:

Code: Alles auswählen

=SVERWEIS(A1;Tabelle2.$A$1:$B$1000;2;FALSCH())

Anbei ein Beispieldokument.

Hylli

[clag]

Hallo Vampier666,

wie lang werden denn diese Texte ?
und wie viel werden es vermutlich ?

[vampir666]

Also eine CALC Tabelle möchte ich nicht verwenden denn man schreibt keine Rechnungen in CALC Es werden vermutlich 100-200 Enträge sein.Länge der Beschreibung hmm vlt. 50-70 Zeichen.

[vampir666]

Also ich bedanke an die vielen Antworten.
Bin mit Autotext zufrieden.

Trhead kann geschlossen werden .