Exportar automaticamente documentos do Office para PDF ao salvar? [fechadas]

1

Existe algum tipo de opção, plug-in ou ferramenta de terceiros que possa causar a exportação automática de um documento do Word ou do Powerpoint em PDF (ou outro formato), para um local específico, ao salvar?

Estou perguntando porque tenho vários currículos em .docx que atualizo regularmente. Toda vez que eu os altero, tenho que reexportá-los em PDF e colocar o arquivo PDF em uma pasta específica.

Prefiro apenas pressionar "Salvar" e ter o arquivo PDF atualizado automaticamente.

Existe algo lá fora que pode conseguir isso?

microsoft-word pdf microsoft-office Timst
fonte

Respostas:

3

Essa macro é meio que um hack no estado atual, mas funciona bem, especialmente se você estiver editando os mesmos poucos arquivos repetidamente.

Basicamente, você precisa executar o AddKeyBinding () que registrará as teclas pressionadas. Ou adicione isso à carga no VBa.

Dentro do AddKeyBinding, você pode ver as ligações e onde também exporta ... Como você pode ver, aguarda ALT+ 1e depois exporta para SaveDaveCv ...

Também adicionei ALT+, 2mas não concluí a macro ...

Sub AddKeyBinding()
    With Application
         ' \\ Do customization in THIS document
        .CustomizationContext = ThisDocument

         ' \\ Add keybinding to this document Shorcut: Alt+1
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey1), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="SaveDaveCv"

         ' \\ Add keybinding to this document Shorcut: Alt+2
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey2), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="SaveOtherCv" 'You need to do this
    End With
End Sub


 ' \\ Test sub for keybinding
Sub SaveDaveCv()

    ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\Users\DRook\Desktop\MyCv.pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False


    MsgBox "Saved", vbInformation, "Succes"

End Sub

Acho que sua pergunta foi deixada em aberto de propósito; portanto, deixei a resposta da mesma maneira - divirta-se, corte-a, faça-a funcionar para o que você precisa!

Dave
fonte
1
Ah sim, isso funciona bem. No meu caso, a função alt + F1 não podia ser conectada (usei ctrl + 1) e acredito que isso pode ser tornado extensível, gerando o nome do PDF de acordo com o nome deste arquivo (ThisDocument.name não faz exatamente o que eu quero , mas é apenas uma questão de ajustes). Vou brincar com isso e tenho certeza de que acabarei com algo que me encaixa perfeitamente. Muito obrigado pelo código base!
Timst
1

A partir do Office 2007, é possível salvar como PDF. Assim, deve ser possível criar uma macro, que por exemplo acionada on Savefaz exatamente o que você deseja.

TheUser1024
fonte
0

Duvido que exista algo assim. E a razão é que quase ninguém acharia útil. MSWord e MSPowerPoint são editores e têm seu próprio formato padrão para documentos. Existe uma maneira de exportar / imprimir documentos do MSWord e MSPowerPoint para PDF, mas essa é apenas uma opção e não é o padrão pelo motivo. E exportar para uma pasta específica também está fora de questão.

Sua melhor aposta é criar um arquivo em lotes que fará o trabalho para você. No entanto, você precisaria do conversor de PDF da linha de comando para lidar com os formatos .doc e .ppt

Art Gertner
fonte