Hallo zusammen,
bin neu hier und auch VBA anfänger.
Es geht darum:
Ich habe ein Excel Dokument, mit dem man mittels Drop Down,etc verschiedene Felder füllen kann.
Diese Felder ergeben dann ein Lieferschein. Diesen Lieferschein will ich per knopfdruck direkt in Word geöffnet haben, da wir dies als Word-Dokument speichern müssen.
Es funktioniert auch alles bis auf das Format in das es in Word übertragen wird. Es passt nicht auf eine Seite sondern ist zu groß.
Wenn ich aber den Aussschnitt aus Excel manuell in Word kopiere passt es perfekt.
Könnt Ihr mir evtl helfen ?
Option Explicit
Sub Word_Kopie()
Dim wd As Object, xDok As Object
ThisWorkbook.Worksheets("DruckHS").UsedRange.Copy
Set wd = CreateObject("word.Application")
Set xDok = wd.Documents.Add
xDok.Range.Paste
wd.Visible = True
End Sub
so sieht es bis jetzt aus.
Zeile A1 ist links oben der Anfang und rechts unten E47. Mit der Range hab ich es auch probiert, ändert aber nichts daran das es nicht in Word passt.
Danke für eure Hilfe
bin neu hier und auch VBA anfänger.
Es geht darum:
Ich habe ein Excel Dokument, mit dem man mittels Drop Down,etc verschiedene Felder füllen kann.
Diese Felder ergeben dann ein Lieferschein. Diesen Lieferschein will ich per knopfdruck direkt in Word geöffnet haben, da wir dies als Word-Dokument speichern müssen.
Es funktioniert auch alles bis auf das Format in das es in Word übertragen wird. Es passt nicht auf eine Seite sondern ist zu groß.
Wenn ich aber den Aussschnitt aus Excel manuell in Word kopiere passt es perfekt.
Könnt Ihr mir evtl helfen ?
Option Explicit
Sub Word_Kopie()
Dim wd As Object, xDok As Object
ThisWorkbook.Worksheets("DruckHS").UsedRange.Copy
Set wd = CreateObject("word.Application")
Set xDok = wd.Documents.Add
xDok.Range.Paste
wd.Visible = True
End Sub
so sieht es bis jetzt aus.
Zeile A1 ist links oben der Anfang und rechts unten E47. Mit der Range hab ich es auch probiert, ändert aber nichts daran das es nicht in Word passt.
Danke für eure Hilfe