Hallo
ich habe eine Frage zur Übertragung von Excel-Daten in ein Word-Dokument (Office 2007).
Ich habe ein Excel-Tabellenblatt in dem ich verschiedene Dinge berechnen lasse. Dieses Tabellenblatt habe ich optisch so aufbereitet, dass man es eigentlich so wie es ist ausdrucken oder ein pdf generieren kann. Ich möchte aber aus dieser Excel-Tabelle ein Word-Dokument erzeugen, dass optisch genau so aussieht wie ich es in Excel dargestellt habe.
Der Code zur Erstellung des Word-Dokuments sieht folgendermaßen aus:
-------------------------------------------------------------------------------------
Sub ExcelTabelleNachWordZwischenablage()
Dim WordObj As Object
Dim WordDoc As Object
Dim i As Integer
Sheets("BudgetAngebot").Activate
i = ActiveSheet.UsedRange.Rows.Count
Range("A6:P" & i).Copy
On Error Resume Next
Set WordObj = GetObject(, "Word.Application.12")
If Err.Number = 429 Then
Set WordObj = CreateObject("Word.Application.12")
Err.Number = 0
End If
On Error GoTo 0
WordObj.Visible = True
Set WordDoc = WordObj.Documents.Add
WordObj.Selection.Paste
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordDoc = Nothing
End Sub
-------------------------------------------------------------------------------------
Der funktioniert soweit ganz gut. Es werden alle Daten in Word übertragen. Das Problem ist aber, dass es die Formatierung ziemlich durcheinander hat. D.h. es sind immer große Zwischenräume zwischen den einzelnen Zeilen, obwohl ich die Zeilenhöhen im Excel alle meinen Vorstellungen definiert habe.
Meine Frage ist nun, ist es möglich bei der Übergabe von Excel-Daten via VBA in ein Word-Dokument das Format des Excel-Blattes 1 zu 1 zu übertragen?
Ich hoffe es kann mir jemand weiterhelfen. Danke schonmal!
Grüße
Steffen
