Makro zum Adressen einfügen

Computer: Software & Programmierung Office Software
1

Hallo liebe Experten,
habe in Word 2002 eine Briefvorlage erstellt, die von mehreren Usern benutzt wird. Nun möchte ich per Makro eine einzelne Adresse aus einer bestehenden Word-Tabelle auswählen und einfügen können.
Habe bisher nur kleine Makros „aufgezeichnet“, kenne mich aber leider mit der Programmiersprache gar nicht aus. Kann mir vielleicht jemand sagen, wie so ein Makro aussehen würde.
Danke Euch für Eure Antworten
Anke

2

Hallo Anke,

dazu bräuchte ich noch einige weitere Informationen.

  • Wo befindet sich die bestehende Word-Tabelle (andere
    Datei, selbe Datei)

  • Wie sieht die Datei mit der bestehenden Tabelle aus?
    Befinden sich darin mehrere Tabellen oder nur diese
    eine?

  • Wie ist die Tabelle aufgebaut? Anzahl der Spalten,
    Überschriften vorhanden? Leerzeilen vorhanden?

Viele Grüße,
VBMichi - Michi

Hallo liebe Experten,
habe in Word 2002 eine Briefvorlage erstellt, die von

mehreren

Usern benutzt wird. Nun möchte ich per Makro eine

einzelne

Adresse aus einer bestehenden Word-Tabelle auswählen

und

einfügen können.
Habe bisher nur kleine Makros „aufgezeichnet“, kenne

mich aber

leider mit der Programmiersprache gar nicht aus. Kann

mir

vielleicht jemand sagen, wie so ein Makro aussehen

würde.

Danke Euch für Eure Antworten
Anke

3

oh ja, sorry,

also die Word-Tabelle ist in einem eigenem Dokument das „Adressen“ heißt und im Ordner „Eigene Dokumente“ liegt (C:\Benutzer\ANKE\Eigene Dokumente). Die Datei hat eine Tabelle darin mit 9 Spalten:

Anrede
Titel
Vorname
Nachname
Funktion
Straße
PLZ
Ort
Notizen

Schon ein großes Dankeschön für die schnelle Antwort.

Hallo Anke,

dazu bräuchte ich noch einige weitere Informationen.

  • Wo befindet sich die bestehende Word-Tabelle (andere
    Datei, selbe Datei)

  • Wie sieht die Datei mit der bestehenden Tabelle aus?
    Befinden sich darin mehrere Tabellen oder nur diese
    eine?

  • Wie ist die Tabelle aufgebaut? Anzahl der Spalten,
    Überschriften vorhanden? Leerzeilen vorhanden?

Viele Grüße,
VBMichi - Michi

Hallo liebe Experten,
habe in Word 2002 eine Briefvorlage erstellt, die von

mehreren

Usern benutzt wird. Nun möchte ich per Makro eine

einzelne

Adresse aus einer bestehenden Word-Tabelle auswählen

und

einfügen können.
Habe bisher nur kleine Makros „aufgezeichnet“, kenne

mich aber

leider mit der Programmiersprache gar nicht aus. Kann

mir

vielleicht jemand sagen, wie so ein Makro aussehen

würde.

Danke Euch für Eure Antworten
Anke

4

Hallo Anke,

leider kann ich Dir keine Komplettlösung präsentieren,
da es zum Anzeigen der Werte der Tabelle in einem
Dokument eine Form mit einer ListBox benötigt.
Diese kann man nicht per Code erstellen sonst muss
selbstständig eine neue Form erstellen, und eine
ListBox darauf ziehen und korrekt benennen.

Die Liste im Word-Dokument kann so auslesen werden:

----------------//

Dim cL As Object, a As Long
Dim appWord As Object

Set appWord = CreateObject(„Word.Application“)
appWord.Documents.Open „C:\Benutzer\ANKE\Eigene
Dokumente\test.doc“

For a = 1 To 3
For Each cL In
appWord.activeDocument.Tables(1).Rows(a).Cells
MsgBox Left(cL.Range.Text, Len(cL.Range.Text) -
2)
Next
Next a

appWord.activeDocument.Close savechanges:=False

//------------------

  • An der Stelle: „For a = 1 To 3“ muss die Zahl 3 durch
    die Anzahl der Zeilen der Tabelle ersetzt werden.

  • An der Stelle: „C:\Benutzer\ANKE\Eigene
    Dokumente\test.doc“ muss „test.doc“ durch den Name der
    Word-Datei ersetzt werden.

In meinem Beispiel gebe ich das Ganze nur in
MessageBoxen aus. Du müsstest die Daten nun in die von
mir oben beschrieben ListBox einlesen um sie dem Nutzer
grafisch anbieten zu können.

Ich hoffe ich konnte damit erst einmal weitehelfen.

Viele Grüße,
VBMichi - Michi

oh ja, sorry,

also die Word-Tabelle ist in einem eigenem Dokument

das

„Adressen“ heißt und im Ordner „Eigene Dokumente“

liegt

(C:\Benutzer\ANKE\Eigene Dokumente). Die Datei hat

eine

Tabelle darin mit 9 Spalten:

Anrede
Titel
Vorname
Nachname
Funktion
Straße
PLZ
Ort
Notizen

Schon ein großes Dankeschön für die schnelle Antwort.

Hallo Anke,

dazu bräuchte ich noch einige weitere Informationen.

  • Wo befindet sich die bestehende Word-Tabelle

(andere

Datei, selbe Datei)

  • Wie sieht die Datei mit der bestehenden Tabelle

aus?

Befinden sich darin mehrere Tabellen oder nur diese
eine?

  • Wie ist die Tabelle aufgebaut? Anzahl der Spalten,
    Überschriften vorhanden? Leerzeilen vorhanden?

Viele Grüße,
VBMichi - Michi

Hallo liebe Experten,
habe in Word 2002 eine Briefvorlage erstellt, die

von

mehreren

Usern benutzt wird. Nun möchte ich per Makro eine

einzelne

Adresse aus einer bestehenden Word-Tabelle auswählen

und

einfügen können.
Habe bisher nur kleine Makros „aufgezeichnet“, kenne

mich aber

leider mit der Programmiersprache gar nicht aus.

Kann

mir

vielleicht jemand sagen, wie so ein Makro aussehen

würde.

Danke Euch für Eure Antworten
Anke

5

Hallo VB Michi,

vielen Dank für Deine Mühe. Bin noch gar nicht dazu gekommen, Deinen Tip auszuprobieren. War ein paar Tage ausser Gefecht gesetzt (Grippe). Werde Montag mal sehen wie weit meine Kollegen gekommen sind.
Nochmals vielen Dank
Gruß
Anke

6

Hallo Anke,

entschuldige das ich erst jetzt auf Deine Frage antworte. Ich vermute inzwischen hast Du bestimmt eine Lösung gefunden.
Mit Word 2002 kenne ich mich leider auch nicht aus, so dass ich Dir bei Deiner Frage zum Thema Makro einfügen nicht helfen kann.
Weiterhin viel Erfolg!
Herzliche Grüße aus Chiang Mai
Jens

7

Trotzdem DANKE