Макросы Word VBA - Сохранить как (PDF или новое имя файла)

Сохранить как

Этот макрос Word сохранит ActiveDocument с новым именем файла, включающим текущее время:

Sub SaveMewithDateName () 'сохраняет активный документ в текущей папке как отфильтрованный html и называет его по текущему времени Dim strTime As String strTime = Format (Теперь "чч-мм") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub

Создать и сохранить как

Этот макрос VBA создаст новый документ и сохранит его с текущими датой и временем:

Sub CreateAndSaveAs () 'создает новый документ и сохраняет его как отфильтрованный html [В папке по умолчанию с именем по текущему времени] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Теперь "гггг-мм-дд чч-мм"). Установите oDoc = Documents.Add 'создать новый документ и назначить его переменной oDoc' напишите текст в новом документе, ссылаясь на него, используя переменную oDoc oDoc.Range.InsertBefore «Посетите https://easyexcel.net/vba-code-library» oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub

Сохранить как PDF

Этот макрос сохранит документ Word как PDF:

Макрос Sub MacroSaveAsPDF () 'сохраняет PDF-файл либо в той же папке, где находится активный документ, либо в папке документов, если файл еще не сохранен' Dim strPath As String Dim strPDFname As String strPDFname = InputBox («Введите имя для PDF», «Имя файла "," example ") Если strPDFname =" "Then 'пользователь удалил текст из поля ввода, добавьте имя по умолчанию strPDFname =" example "End If strPath = ActiveDocument.Path If strPath =" "Тогда' doc еще не сохранен strPath = Options. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'просто добавьте \ в конце strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ". = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub

Эта функция также сохранит любой текстовый документ в формате PDF:

Sub MacroSaveAsPDFwParameters (необязательный strPath как строка, необязательный strFilename как строка) 'strPath, если он передан, должен включать разделитель пути ["\"] Если strFilename = "" Тогда strFilename = ActiveDocument.Name End If' извлекает только имя файла без расширения If InStr (1, strFilename, ".")> 0 Тогда strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc is not пока сохранены, мы будем использовать путь по умолчанию strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'использовать путь активного документа strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End If On Error GoTo EXormEAsDocument OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _IncludeDocProps: = wdExportAllDocument, _ IncludeDocProps: Растровое изображение ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub

Вы можете ввести путь к файлу и имя файла, чтобы указать, какой файл сохранить в формате PDF:

Sub CallSaveAsPDF () Вызов MacroSaveAsPDFwParameters ("c: / Documents", "example.docx") End Sub