AW: Word Dokument erstellen aus Excel Datei
06.02.2019 23:03:28
fcs
Hallo Bongobob,
dieses Forum hat auch einen Bereich "RECHERCHE" hier kann man dann z.B. die Themen des Forums im Archiv nach dem Begriff Word durchsuchen.
Dann hast du zumendest die Möglichkeit dir die notwendige Inspiration zum Lösungsweg zu holen.
Fürs grobe sollte folgendes funktionieren, dass du an deine ANforderungen anpassen muss.
LG
Franz
Sub datenausexcel_Wordvorlage()
Dim appWord As Object 'Word.Application
Dim wrdDocument As Object 'Word.Document
Dim wks As Worksheet
Dim strVorlage As String
On Error GoTo Fehler
Set wks = ActiveWorkbook.Worksheets("Tabelle1") 'Tabellenblatt mit den _
zu übertragenden Daten
strVorlage = "C:\Users\Public\Test\TestVorlage.dotx"
If Dir(strVorlage, vbNormal) = "" Then
MsgBox "Vorlage-Dokument """ & strVorlage & """ ist nicht vorhanden"
Exit Sub
End If
Set appWord = GetObject(, "word.application")
appWord.Visible = True
'Word-Vorlage als neues Dokument öffnen
Set wrdDocument = appWord.Documents.Add(Template:=strVorlage)
'Zellinhalt an Textmarke einfügen
wrdDocument.Bookmarks("Text_aus_Excel").Range.Text = wks.Cells(1, 1)
appWord.Activate
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 429 'Word ist noch nicht geöffnet
Set appWord = CreateObject("word.application")
Resume Next
Case 91 'objekt-Fehler - z.B. Textmarke in Word fehlt
Resume Next
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub
Sub datenausexcel_Worddokument()
Dim appWord As Object 'Word.Application
Dim wrdDocument As Object 'Word.Document
Dim wks As Worksheet
Dim strVorlage As String
On Error GoTo Fehler
Set wks = ActiveWorkbook.Worksheets("Tabelle1") 'Tabellenblatt mit den _
zu übertragenden Daten
strVorlage = "C:\Users\Public\Test\TestVorlage.docx"
If Dir(strVorlage, vbNormal) = "" Then
MsgBox "Vorlage-Dokument """ & strVorlage & """ ist nicht vorhanden"
Exit Sub
End If
Set appWord = GetObject(, "word.application")
appWord.Visible = True
'Word-Dokument schreibgeschützt öffnen
Set wrdDocument = appWord.Documents.Open(Filename:=strVorlage, ReadOnly:=True)
'Zellinhalt an Textmarke einfügen
wrdDocument.Bookmarks("Text_aus_Excel").Range.Text = wks.Cells(1, 1)
appWord.Activate
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 429 'Word ist noch nicht geöffnet
Set appWord = CreateObject("word.application")
Resume Next
Case 91 'objekt-Fehler - z.B. Textmarke in Word fehlt
Resume Next
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub