VBA Excel, in Word richtig formatieren
29.12.2016 10:34:56
Navdeep
ich bin neu und brauche Hilfe:
ich habe diese Excel Datei:
und diese riesige Tabelle die folgende Range hat: A1:AP78
habe ich in eine Word Datei übertragen (mit folgendem Code)
Codebeginn:
Private Sub CommandButton1_Click()
Dim oWrd As Object
Dim oDoc As Object
With ActiveSheet
Range("A1:AP78").Copy
End With
Set oWrd = CreateObject("Word.Application")
Set oDoc = oWrd.Documents.Add
oWrd.Visible = True
oDoc.Range.Paste
' With oDoc.Tables(1)
' .Columns.AutoFit
' End With
End Sub
Codeende
Schaut dann folgendermaßen aus:
Die komplette Tabelle ist nach rechts gezogen, ich habe jetzt auch schon alles mögliche zamgegoogelt, aber nichts bringt mich auf eine Idee, falls ihr mir helfen könntet, wäre ich überglücklich :)
LG Navi
Anzeige