Macros Word VBA - Enregistrer sous (PDF ou nouveau nom de fichier)

Enregistrer sous

Cette macro Word enregistrera l'ActiveDocument avec un nouveau nom de fichier qui inclut l'heure actuelle :

Sub SaveMewithDateName() 'enregistre le document actif dans le dossier actuel en tant que fichier HTML filtré et nommé à l'heure actuelle Dim strTime As String strTime = Format(Now, "hh-mm") ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & strTime, FileFormat:=wdFormatFilteredHTML End Sub

Créer et enregistrer sous

Cette macro VBA créera un nouveau document et l'enregistrera en utilisant la date et l'heure actuelles :

Sub CreateAndSaveAs() 'crée un nouveau document et l'enregistre en tant que fichier html filtré [Dans le dossier par défaut et nommé à l'heure actuelle] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Maintenant, "aaaa-mm-jj hh-mm") Définissez oDoc = Documents.Ajoutez "créez un nouveau document et attribuez-le à la variable oDoc" écrivez du texte dans le nouveau document en y faisant référence à l'aide de la variable oDoc oDoc.Range.InsertBefore "Visitez https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName:=strPath & strTime, FileFormat:=wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub

Enregistrer au format PDF

Cette macro enregistrera le document Word au format PDF :

Sub MacroSaveAsPDF() 'la macro enregistre le pdf soit dans le même dossier où se trouve le document actif, soit dans le dossier des documents si le fichier n'est pas encore enregistré' Dim strPath As String Dim strPDFname As String strPDFname = InputBox("Entrez le nom du PDF", "Nom du fichier ", "example") If strPDFname = "" Then 'l'utilisateur a supprimé le texte de la zone de saisie, ajoutez le nom par défaut strPDFname = "example" End If strPath = ActiveDocument.Path If strPath = "" Then 'doc n'est pas encore enregistré strPath = Options. DefaultFilePath(wdDocumentsPath) & Application.PathSeparator Else 'il suffit d'ajouter \ à la fin strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName:= _ strPath & strPDFname & ".pdf", _ ExportFormat:=wdExport OpenFormatEx, =False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, _ IncludeDocProps:=True, _ CreateBookmarks:=wdExportCreateWordBookmarks, _ BitmapMissingFonts:=True End Sub

Cette fonction enregistrera également n'importe quel document Word au format PDF :

Sub MacroSaveAsPDFwParameters(Optional strPath As String, Optionnel strFilename As String) 'strPath, s'il est passé, doit inclure le séparateur de chemin ["\"] If strFilename = "" Then strFilename = ActiveDocument.Name End If 'extraire juste le nom du fichier sans extension If InStr (1, strFilename, ".") > 0 Then strFilename = Left$(strFilename, InStrRev(strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not enregistré encore, nous utiliserons le chemin par défaut strPath = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator Else ' utiliser le chemin du document actif strPath = Options.DefaultFilePath(wdDocumentsPath) & Application.PathSeparator End If End If On Error GoTo EXITHERE ActiveDocument.ExportatAsFi OutputFileName:= _ strPath & strFilename & ".pdf", _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False, _ OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, _ IncludeDocProps:=True, _ CreateExportWordBookmarks:=wd BitmapMissingFon ts:=True Exit Sub EXITHERE: MsgBox "Error: " & Err.Number & " " & Err.Description End Sub

Vous pouvez saisir le chemin d'accès et le nom du fichier pour indiquer quel fichier enregistrer au format PDF :

Sub CallSaveAsPDF() Appeler MacroSaveAsPDFwParameters("c:/Documents", "example.docx") End Sub