Inhaltsverzeichnis
Speichern als
Dieses Word-Makro speichert das ActiveDocument unter einem neuen Dateinamen, der die aktuelle Uhrzeit enthält:
Sub SaveMewithDateName() 'speichert das aktive Dokument im aktuellen Ordner als gefiltertes HTML und benannt nach der aktuellen Zeit Dim strTime As String strTime = Format(Jetzt, "hh-mm") ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML End Sub
Erstellen und Speichern unter
Dieses VBA-Makro erstellt ein neues Dokument und speichert es mit dem aktuellen Datum und der aktuellen Uhrzeit:
Sub CreateAndSaveAs() 'erstellt ein neues Dokument und speichert es als gefiltertes HTML [Im Standardordner und nach der aktuellen Uhrzeit benannt] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Jetzt "yyyy-mm-dd hh-mm") Set oDoc = Documents.Add 'Erstelle ein neues Dokument und weise es der oDoc-Variablen zu "Besuchen Sie https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName:=strPath & strTime, FileFormat:=wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'Dokument schließen End Sub
Als PDF speichern
Dieses Makro speichert das Word-Dokument als PDF:
Sub MacroSaveAsPDF() 'Makro speichert PDF entweder im gleichen Ordner, in dem sich das aktive Dokument befindet, oder im Dokumentenordner, wenn die Datei noch nicht gespeichert wurde ' Dim strPath As String Dim strPDFname As String strPDFname = InputBox("Name für PDF eingeben", "Dateiname ", "example") If strPDFname = "" Then 'Benutzer hat Text aus dem Eingabefeld gelöscht, Standardnamen hinzufügen strPDFname = "example" End If strPath = ActiveDocument.Path If strPath = "" Then 'doc ist noch nicht gespeichert strPath = Options. DefaultFilePath(wdDocumentsPath) & Application.PathSeparator Else 'einfach \ am Ende hinzufügen strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName:= _ strPath & strPDFname & ".pdf", _ ExportFormat:=ExportwdExportAftPDF,_ Open =False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, _ IncludeDocProps:=True, _ CreateBookmarks:=wdExportCreateWordBookmarks, _ BitmapMissingFonts:=True End Sub
Diese Funktion speichert auch jedes Word-Dokument als PDF:
Sub MacroSaveAsPDFwParameters(Optional strPath As String, Optional strFilename As String) 'strPath, falls übergeben, muss Pfadtrennzeichen enthalten ["\"] If strFilename = "" Then strFilename = ActiveDocument.Name End If 'nur Dateinamen ohne Erweiterung extrahieren If InStr (1, strFilename, ".") > 0 Then strFilename = Left$(strFilename, InStrRev(strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not gespeichert, verwenden wir den Standardpfad strPath = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator Else ' Pfad des aktiven Dokuments verwenden strPath = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator End If End If On Error GoTo EXITERE ActiveDocument .ExportAsFi OutputFileName:= _ strPath & strFilename & ".pdf", _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, _ IncludeDocProps:=True, _ CreateBookExportmarks:_WorddC BitmapMissingFon ts:=True Exit Sub EXITERE: MsgBox "Error: " & Err.Number & " " & Err.Description End Sub
Sie können den Dateipfad und den Dateinamen eingeben, um anzugeben, welche Datei als PDF gespeichert werden soll:
Sub CallSaveAsPDF() Call MacroSaveAsPDFwParameters("c:/Documents", "example.docx") End Sub
