Supportnet / Forum / Tabellenkalkulation
Exel2002: Daten von Excel nach Word exportieren
Frage
Hallo,
gerade beschäftigt mich ein Problem:
Wie können Daten aus Excel nach Word transportiert werden?
In der zu öffnenden Word-Vorlage sind nur Absätze (Paragaphs) vorhanden.
Der von Excel stammende Zellinhalt (Anwendername in Zelle A2) soll an das
Ende des 2. Absatzes (ohne Space dazwischen) angefügt werden.
Wie kann ich dann 2 Absätze weitergehen um dann den Namen nochmal an einen
anderen (z. B. den 6. Absatz) an´s Ende anzufügen.
Alle bisherigen Versuche scheiterten, da Excel auf meine Befehle reagiert.
Es soll die Neue Instanz Word auf die Befehle von Excel-VBA reagieren.
Wer weiß wo´s steht oder kennt einen der´s weiß wo´s steht?
Das ist bisher mein Code;
Sub Export_nach_Word()
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim Name$
Dim Datei$
Datei = "C:\Dok1.doc" ´Vorlage
´--- Variable zuordnen
Windows("Mappe1.xls").Activate
Sheets("Tabelle1").Select
´Zeile, Spalte = A1
Name$ = Cells(2, 1).Value
´ --- Programm Word laden
Set WordObj = CreateObject("Word.Application")
Set WordDoc = WordObj.Documents.Open(Datei)
WordObj.Visible = True
WordObj.Activate
WordDoc.Paragraphs(2).Range.Select
´ ... ????
WordDoc.SaveAs FileName:="c:\" & Name & ".doc"
WordObj.Quit
Set WordObj = Nothing
Set WordDoc = Nothing
End Sub
Antwort 1 von Eleve
Hallo WordKit,
kann sein, dass ich an Deiner Frage vorbeirede, aber könntest Du Dein Problem nicht andersrum angehen?
Wenn Du in der Worddatei einen Serienbrief generierst und Deine Excel-Datei als Datenquelle verwendest, dann kannst Du Felder aus Excel beliebig oft in Word einbinden.
Könnte Dir das helfen?
viele Grüße
Eelve
kann sein, dass ich an Deiner Frage vorbeirede, aber könntest Du Dein Problem nicht andersrum angehen?
Wenn Du in der Worddatei einen Serienbrief generierst und Deine Excel-Datei als Datenquelle verwendest, dann kannst Du Felder aus Excel beliebig oft in Word einbinden.
Könnte Dir das helfen?
viele Grüße
Eelve