Adresse aus Excel in Word (Textmarke) einfügen

[uschadiddi]

Hallo,

Ich möchte per VB eine in Excel ausgewählte Adresse automatisch durch Öffnen eines Worddokumentes dort an einer Textmarke einfügen.

Kann mir da jemand eine Hilfe vorschlagen ?

Bin für jede Hilfe dankbar.

Gruß

Dieter

[Dr.Bakterius]

hallo dieter,

darf ich fragen weshalb?

word bringt doch schon einen datenbank konnekt mit,

hier kannst du auch von excel dateien einlesen...

[uschadiddi]

Hallo Dr. Bakterius,

Ich habe ein Excel-Büro-Center geschrieben, aus dem verschiedene Programme, diverse, spezifische Tabellen, Masken etc. aufgerufen werden. U.a. Rechnungserstellung und Dokumentenerstellung. Die Adressbasis wird aus einem externen Pogramm automatisch importiert. Da ich aus diesem Excel-Center eine Adresse auswähle. möchte ich im nächsten Schritt ein Worddokument öffnen und die selektierte Adresse dort an einer Textmarke einfügen.

Gruß Dieter

[russkij]

huhu,

hoffe das hilft dir:

Sub WordZugriffVonExcell()

Dim AppWD As New Word.Application

With AppWD

.Visible = True

.Activate

.Documents.Open ("C:\1.doc")

.Selection.GoTo What:=wdGoToBookmark, Name:="test"

.Selection.Paste

.ActiveDocument.Close SaveChanges:=True

.Quit SaveChanges:=False

End With

Set AppWD = Nothing

End Sub

[uschadiddi]

Hallo

Vielen Dank !!

Jetzt sehe ich wieder Licht am Horizont.

Gruß

Dieter