Salvar como
Esta macro do Word salvará o ActiveDocument com um novo nome de arquivo que inclui a hora atual:
Sub SaveMewithDateName () 'salva o documento ativo na pasta atual como um html filtrado e nomeado na hora atual Dim strTime As String strTime = Format (Agora, "hh-mm") ActiveDocument.SaveAs FileName: = ActiveDocument.Path & "\" & strTime, FileFormat: = wdFormatFilteredHTML End Sub
Criar e salvar como
Esta macro VBA criará um novo documento e salvará usando a data e hora atuais:
Sub CreateAndSaveAs () 'cria um novo documento e salva como um html filtrado [Na pasta padrão e com o nome atual] Dim strTime As String Dim strPath As String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Agora, "aaaa-mm-dd hh-mm") Defina oDoc = Documents.Add 'crie um novo documento e atribua-o à variável oDoc' escreva algum texto no novo documento referindo-se a ele usando a variável oDoc oDoc.Range.InsertBefore "Visite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strTime, FileFormat: = wdFormatFilteredHTML oDoc.Close wdDoNotSaveChanges 'close doc End Sub
Salvar como PDF
Esta macro salvará o documento do Word como PDF:
A macro Sub MacroSaveAsPDF () 'salva o pdf na mesma pasta onde o documento ativo está ou na pasta de documentos se o arquivo ainda não foi salvo' Dim strPath As String Dim strPDFname As String strPDFname = InputBox ("Digite o nome para PDF", "Nome do arquivo "," exemplo ") Se strPDFname =" "Then 'usuário excluiu o texto da caixa de entrada, adicione o nome padrão strPDFname =" exemplo "End If strPath = ActiveDocument.Path If strPath =" "Então' doc ainda não foi salvo strPath = Opções. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'basta adicionar \ no final strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportPExormat: _fterFormat: _. = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Esta função também salvará qualquer documento do Word como PDF:
Sub MacroSaveAsPDFwParameters (Opcional strPath As String, Opcional strFilename As String) 'strPath, se passado, deve incluir o separador de caminho ["\"] If strFilename = "" Then strFilename = ActiveDocument.Name End If' extrai apenas o nome do arquivo sem extensão If InStr (1, strFilename, ".")> 0 Then strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Then 'doc não é salvo ainda, vamos usar o caminho padrão strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'usar o caminho do documento ativo strPath = Options.DefaultFilePath (wdDocumentsPath) & Application.PathSeparator End If Endorma If On Error GoToFITHEREt ActiveDocument.ExportAs OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Intervalo: = wdExportAllDoc Create, _ Incluir Bookmarks: TrueDocProps: = TrueWument, _ Incluir BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Erro:" & Err.Number & "" & Err.Description End Sub
Você pode inserir o caminho e o nome do arquivo para indicar qual arquivo deve ser salvo como PDF:
Sub CallSaveAsPDF () Chamar MacroSaveAsPDFwParameters ("c: / Documents", "example.docx") End Sub
