Excel Tabelle als Word speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Franz
es gibt hier ein Code, dieser übernimmt mir nicht die Seiteneinstellungen von Excel und speichern nicht automatisch auch noch ein pdf:

Sub Blatt_In_Word_Speichern()
Dim WinWord As Object
Dim WinDoc As Object
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Dim MyWS As Worksheet
Application.ScreenUpdating = False
Set MyWS = ActiveSheet
Set WinWord = CreateObject("Word.Application")
With WinWord
.Visible = True
Set WinDoc = .Documents.Add
With WinDoc
Range(MyWS.PageSetup.PrintArea).Copy
WinWord.Selection.Paste
Application.CutCopyMode = False
End With
End With
Verzeichnis = "C:\Temp\"
Datei = MyWS.Cells(13, 1) & " " & MyWS.Cells(23, 1) & ".doc"
SaveDummy = als_word_speichern_unter(Verzeichnis & Datei, WinWord)
If SaveDummy  False Then
WinDoc.SaveAs Filename:=SaveDummy
Else
WinDoc.Saved = True
End If
WinDoc.Close
Set WinWord = Nothing
Set WinDoc = Nothing
End Sub

Function als_word_speichern_unter(VorgabeName As String, WinWord As Object) As Variant
With WinWord.FileDialog(msoFileDialogSaveAs)
.InitialFileName = VorgabeName
.FilterIndex = 3
If .Show Then
DocSpeichernUnter = .SelectedItems(1)
Else
DocSpeichernUnter = False
End If
End With
End Function

Hallo Norbert,
ich hab die Makros angepasst.
Hier eine ZIP-Datei. Sie enthält eine kleine Excel-Datei mit dem angepassten Makro und die generierten Word- und PDF-Dateien.
https://www.herber.de/bbs/user/142193.zip
- Seitenränder werden ins Worddokument übernommen.
- PDF-Datei wird aus dem Worddokument erstellt
- beim Speichern der Worddatei wird das Format Version 97-2003 verwendet. Hier das Makro anpassen, wenn neueres Format verwendet werden soll.
- Einstellen des Desktops als Speicherort.
Hier musst du ggf. anpassen und eine der als Kommentar eingefügten Zeilen verwenden.
- Anpassen des Styles für das Standard-Format für Absatz und Format.
Bei mir passte insbesondere der Zeilenabstand in Word nicht mit Excel überein.
Ich hab ein Untermakro eingebaut, das du ggf. anpassen musst
Die Zeile zum Starten dieses Makros im Hauptmakro hab ich als Kommentar vorbereitet.
LG
Franz

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Tabelle als Word speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread