3 maneiras de macro para converter rapidamente seus documentos do Word em PDF Arquivos

Neste artigo, vamos nos concentrar em fornecer 3 macros que você pode usar para converter rapidamente documentos do Word em pdf arquivos.

No Word 2003, há um ícone na barra de menu. Com um único clique, os usuários podem acionar a janela “Salvar como” instantaneamente e salvar o documento em pdf formato.

No entanto, como você pode notar, o layout do Word 2010 muda muito. E os usuários precisam clicar na guia “Arquivo” e depois no comando “Salvar como” para acionar a janela “Salvar como”. Além disso, você deve escolher manualmente o tipo de salvamento antes de clicar no botão “Salvar”.

Com todos esses cliques, não é rápido o suficiente. Portanto, neste post, adoraríamos exibir a maneira macro de fazer isso.

Macro 1: acione a janela “Salvar como” rapidamente

1. primeiro e primeiroost, clique na guia “Desenvolvedor” e clique no comando “Visual Basic” para abrir o editor VBA. Certamente, os 2 cliques devem ser feitos quando a guia “Desenvolvedor” já estiver exibida. A forma alternativa é pressionar “Alt+F11”.
2. Em segundo lugar, clique no projeto “Normal”.
3. Em terceiro lugar, clique em “Inserir” e escolha “Módulo” no menu da lista.
4. Agora clique duas vezes no módulo para mostrar a área de edição.
5. Em seguida, cole os seguintes códigos:

Sub TriggerSaveAsWindow() Dim dlgSaveAs As Dialog Set dlgSaveAs = Dialogs(wdDialogFileSaveAs) Com dlgSaveAs .Format = wdFormatPDF
    .Show .Execute End With End Sub

6. Em seguida, clique em “Executar”.

Agora há a janela "Salvar como". E o tipo de salvamento já está em pdf. Tudo o que resta a fazer é clicar no botão "Salvar". Esta macro permite alterar o nome do arquivo, se necessário.

Macro 2: Salve arquivos do Word diretamente em PDF

No caso de algumas pessoas quererem salvar o arquivo diretamente para pdf sem revisar o nome do arquivo, aqui está a macro necessária.

1. Em primeiro lugar, repita os primeiros 4 passos acima.
2. Em seguida, cole os seguintes códigos:

'Salvar diretamente o arquivo do Word como Pdf e abri-lo automaticamente. Sub diretamenteSaveDocxToPdf() Dim objDoc As Document Set objDoc = ActiveDocument objDoc.ExportAsFixedFormat _ OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, Item:=wdExportDocumentContent End Sub

3. Da mesma forma, clique em “Executar”.

Macro 3: Conversão em Lote de Arquivos Docx do Word para PDFs

1. Coloque todos os arquivos docx em uma pasta primeiro.
2. Siga as etapas acima para abrir a área de edição.
3. Em seguida cole a macro abaixo:

SubloteConvertDocxToPDF() Dim objDoc As Document Dim strFile As String, strFolder As String 'Inicialização strFolder = "C:\Users\Test\Desktop\Test Files\" strFile = Dir(strFolder & "*.docx", vbNormal) 'Precessar cada arquivo na pasta de arquivos e convertê-los para pdf. Enquanto strFile <> "" Set objDoc = Documents.Open(FileName:=strFolder & strFile) objDoc.ExportAsFixedFormat _ OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, Item:=wdExportDocumentContent objDoc.Close strFile = Dir() Wend End Sub

4. Nunca se esqueça de clicar no botão “Executar”.

Note: Em códigos “strFolder = “C:\Usuários\Teste\Desktop\Arquivos de Teste\”", a "“C:\Usuários\Teste\Desktop\Arquivos de Teste\”” é o caminho do arquivo da pasta. Lembre-se de alterá-lo de acordo.

Depois de executar esta macro, pdfs serão salvos na mesma pasta onde ficam os documentos do Word.

Arquivos seguros como você pode

Existem medidas preventivas e também post- ações de desastre para salvar arquivos danificados. Se você continuar fazendo backup de seus arquivos regularmente, recuperar o arquivo original é apenas um pedaço de bolo. A verdade é que poucas pessoas conseguem manter seu plano de backup, aumentando assim o risco de perda de dados valiosos. Nessas circunstâncias, é hora de recorrer a um avançado Ferramenta de correção de corrupção de documento do Word.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparo do Excel xlsx danificado e a pdf reparar produtos de software. Para mais informações visite www.datanumen.com