habe Probleme mehrere Tabellenblätter von Excel in eine Word-Datei untereinander mit 2 Leerzeilen Abstand zwischen den Tabellen zu kopieren.
Bisher habe ich folgenden Code, der mir aber immer nur ein Tabellenblatt in Word kopiert:
Sub Rubrik_zu_Word()
Unload was
Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Add("D:\Test-Rubrik.doc") '*** verwendet Datei nur als Vorlage ***
'Set doc = appWord.Documents.Open("D:\Test-Rubrik.doc") '*** öffnet die Datei selbst ***
appWord.Visible = True
ThisWorkbook.Sheets("A").UsedRange.Copy '*** oder was auch immer ***
ThisWorkbook.Sheets("B").UsedRange.Copy '*** oder was auch immer ***
ThisWorkbook.Sheets("C").UsedRange.Copy '*** oder was auch immer ***
doc.Range.Paste '*** Zeile bestimmen - Tabelle rein ***
doc.SaveAs "D:\Test-Rubrik-1.doc" '*** das Dokument speichern ***
doc.Close '*** das Dokument schließen ***
appWord.Quit '*** Word beenden ***
'*** Aufräumen ***1
Set appWord = Nothing
Set doc = Nothing
MsgBox "Word-Datei wurde erstellt", vbOKOnly, "Bestätigung"
End Sub
Zusätzlich soll bzw. muss die Zellbreite und auch die Schriftart bzw. Schriftgröße noch geändert werden.
Hat jemand einen Vorschlag für mein Problem?
Ich bin absoluter Neuling in VBA, daher wäre ich sehr dankbar für jede Antwort.
Gruß
Marco