Office: (Office 2013) Feste Tabellenwerte nach Word mit übergeben

Hallo zusammen,

meine Briefverwaltung ist inzwischen fast fertig, auch Dank eurer Hilfe. Jetzt hab ich noch eine Frage:

Ich übergebe aus verschiedenen Formularen heraus die entsprechenden Felder und Werte an Word per VBA nach diesem Muster:

'Textmarke Bankdaten
.ActiveDocument.Bookmarks("BS1").Select
.Selection.Text = (CStr(Nz(Forms!frm_Basis_Anlegen!Name_komplett, "")))
.ActiveDocument.Bookmarks("BS2").Select
.Selection.Text = (CStr(Nz(Forms!frm_Basis_Anlegen!Anlagenummer, "")))
.ActiveDocument.Bookmarks("BS3").Select
.Selection.Text = (CStr(Nz(Forms!frm_Basis_Anlegen!Strasse_Hausnummer, "")))
.ActiveDocument.Bookmarks("BS4").Select
.Selection.Text = (CStr(Nz(Forms!frm_Basis_Anlegen!Anlage_Strasse, "")))

Nun meine Frage:

Kann ich zu diesem Script noch feste Werte aus einer x-beliebigen Tabelle mit an Word per Script und Textmarken übergeben? Ich habe noch eine Tabelle mit den Absenderangaben, die sich je nach Standort ändern können und pro Standort angepasst werden.

Also z.B. Tabelle tbl_kopf die Felder Team usw.

Ohne das diese Felder überhaupt im Bearbeitungsformular irgendwo mit auftauchen, weil die ja eigentlich auch nicht benötigt und bearbeitet werden müssen.

Ich hoffe ich habe mich verständlich ausgedrückt?

Vielen Dank schon für Eure Hilfe

:)

 

Tabellenwerte kann man per Recordset lesen und übergeben. Man müsste aber wohl intern auf den Standort schließen können, um den richtigen Datensatz zu wählen.

 

Hallo!

Woher die Daten kommen ist ja nicht relevant.
Du öffnest also einfach die Datenquelle, z.B. aus einer Datenbanktabelle in ein Recordset und übergibst die Daten.
Falls das ein Problem ist, dann zeig und doch den Code und sag uns wo du nicht mehr weiterkommst.

LG Markus

 

Hallo Markus,

danke für Deine Antwort. Allerdings habe ich keinen Plan wie das gehen soll.

Der gezeigte Code gibt ja die Felddaten aus dem entsprechenden Formular an Word über. Aber wie bzw. welchen Code muss ich schreiben um Beispielsweise aus der Tabelle

tbl_kopf, das Feld Team

mit in Word zu übernehmen? das ist eigentlich die Frage.

Kannst du mir da bitte mal ein Codeschnipsel schicken ?

LG Wolfgang

 

Der Vorgang ist derselbe:

.ActiveDocument.Bookmarks("BS1").Select
.Selection.Text = recordset!Team!Value

falls du nicht wissen solltest wie man ein Recordset öffnet:
Hier gibts Beispiele.

Du solltest den Hinweis von Eberhard aber berücksichtigen.
Es muss klar sein, welche Standortdaten verwendet werden müssen.

Falls eine Benutzerverwaltung vorliegt, könnte man ja einen Benutzer mit Standortdaten verknüpfen oder was auch immer.

LG Markus

 

Daneben: Etwas sauberer Stil kann nicht schaden.
Code:

Da Objekte Namen haben, kann man unmittelbar Zuweisungen vornehmen. Man muss und sollte nicht erst das umständliche (und langsame) Select ausführen.

 

Hallo zusammen,

herzlichen Dank für Eure Hilfe. Habs hingebracht dank Eurer Hilfe.

Merci
Wolfgang

 

Cool das es geklappt hat.
Verrätst du uns auch noch wie du es gelöst hast, vor allem den Punkt mit den richtigen Standortdaten - damit auch Mitlesende profitieren.

LG Markus