Зберегти як
Цей макрос Word збереже ActiveDocument з новою назвою файлу, що містить поточний час:
Sub SaveMewithDateName () 'зберігає активний документ у поточній папці як відфільтрований HTML-файл та називається за поточним часом Dim strTime As String strTime = Format (Now, "hh-mm") 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 =" "Тоді" користувач видалив текст із поля введення, додайте назву за замовчуванням strPDFname = "приклад" Завершення Якщо strPath = ActiveDocument.Path Якщо strPath = "" Тоді 'doc ще не збережено strPath = Параметри. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator В іншому випадку просто додайте \ в кінці strPath = strPath & Application.PathSeparator End Якщо ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdfExport: _ Export: _ Export: _ Export = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Діапазон: = wdExportAllDocument, _ IncludeDocProps: = True, _ Create Bookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Ця функція також зберігатиме будь -який документ Word у форматі PDF:
Sub MacroSaveAsPDFwParameters (Необов’язковий strPath як рядок, необов’язковий strFilename як рядок) 'strPath, якщо він переданий, повинен включати роздільник шляху ["\"] Якщо strFilename = "" Тоді strFilename = ActiveDocument.Name End If' витягти лише ім'я файлу без розширення If InStr (1, strFilename, ".")> 0 Тоді strFilename = Вліво $ (strFilename, InStrRev (strFilename, ".") - 1) Закінчити If If strPath = "" Тоді, якщо ActiveDocument.Path = "" Тоді "doc не ще збережених, ми будемо використовувати шлях за замовчуванням strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Інший 'шлях використання активного документа strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If End Якщо помилка GoTo EXITEx ActiveXo OutputFileName: = _ strPath & strFname & &. BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Помилка:" & Err.Number & "" & Err.
Ви можете ввести шлях до файлу та його назву, щоб вказати, який файл зберегти у форматі PDF:
Додатковий CallSaveAsPDF () Виклик MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") Кінець Sub
