1988mario2014
12.01.2015, 15:24
Excel Vba, Makro: markierten Inhalt nach Word Dokument MIT Formatierung übertragen

Hallo, ich habe mir ein Makro zurecht gebastelt, welches einen zu markierenden Bereich in ein neues Word Dokument kopiert- klappt soweit super so. Nun hab ich das Problem, das sich das Format verschiebt, bzw die Tabellen nicht mehr so aussehen, wie sie sollen. Der Code ist unten angehängt.

Meine Frage ist nun, wie ich das in den Code kriege, das es in Word genauso aussieht wie in excel.

Sub DatenTransferWord() Dim WordObj As Object Dim WorDoc As Object Dim Bereich As Range On Error Resume Next Set WordObj = GetObject(, "word.application.12") If Err.Number = 429 Then Set WordObj = CreateObject("word.application") Err.Number = 0 End If WordObj.Visible = True Set WordDoc = WordObj.Documents.Add

Set Bereich = Application.InputBox _ ("Wählen Sie den zu exportierenden Bereich aus", Type:=8) Range(Bereich.Address).Copy WordObj.Selection.Paste Application.CutCopyMode = False Set WordObj = Nothing Set WordDoc = Nothing End Sub

 ...zum Beitrag
Antwort
von 1988mario2014
12.01.2015, 23:30

Sub DatenTransferWord() Dim WordObj As Object Dim WorDoc As Object Dim Bereich As Range On Error Resume Next Set WordObj = GetObject(, "word.application.12") If Err.Number = 429 Then Set WordObj = CreateObject("word.application") Err.Number = 0 End If WordObj.Visible = True Set WordDoc = WordObj.Documents.Add

Set Bereich = Application.InputBox _ ("Wählen Sie den zu exportierenden Bereich aus", Type:=8) Range(Bereich.Address).Copy WordObj.Selection.Paste Application.CutCopyMode = False Set WordObj = Nothing Set WordDoc = Nothing End Sub

 ...zur Antwort