AW: Daten von Excel zu Word
29.05.2009 17:47:18
Excel
Hallo Gordon,
das "On Error..." von FetterTiger wird für den Fall benötigt, dass die angesprochene Textmarke nicht existiert. Eleganter geht es aber (meiner Meinung nach) eigentlich so:
Sub paste_excel_cells_to_word()
Dim app As New Word.Application
Dim doc As Word.Document
Dim docname as String
docname = "c:\test\test.doc"
If Dir(docname) "" then
Set doc = app.Documents.Add("c:\test\test.doc")
If doc.Bookmarks.exists("Test_BM") Then
doc.bookmarks("Test_BM").range.text = ThisWorkbook.ActiveSheet.Range("a1").value
End If
End If
End Sub
Der Code (auch der von FetterTiger) funktioniert aber nur, wenn über "Extras - Verweise" im VBA-Editor ein Verweis auf die Microsoft Word Library gesetzt ist. Und ganz sauber ist mein Beispiel auch noch nicht (was ist z.B., wenn das Word-Dokument existiert, aber nicht geöffnet werden konnte? Oder es schreibgeschützt ist?)
Bevor Du Dich zu weit in VBA-(Neu-)Land begibst, um Daten von Excel nach Word zu übertragen, sicherheitshalber noch der Hinweis, dass Du alternativ auch die Daten in Word aus der Excel-Datei ziehen kannst, indem Du in das Word-Dokument Verknüpfungen auf Excel-Zellen einfügst (In Excel die Zelle markieren und in Zwischenablage kopieren, in Word Cursor an gewünschte Stelle setzen und "Bearbeiten - Inhalte einfügen" aufrufen, dort "Verknüpfung einfügen" und z.B. "als: Unformatierten Text" auswählen)
Herzlichen Gruß
Jürgen