Defina o modelo do Microsoft Word para sempre salvar documentos baseados nele em um determinado local

Question

Alguns de meus professores exigem formatos muito específicos para trabalhos digitados em seus cursos. Eu criei modelos de palavra ( .dotx files) para estes, então eu não tenho que configurar a formatação toda vez que vou escrever algo.

Já tenho um modelo para cada uma das minhas classes e organizo meus arquivos de forma que cada classe tenha seu próprio diretório. Gostaria de poder especificar um local de salvamento padrão para cada modelo . Eu sei como definir o local padrão para salvar todos os documentos, mas quero alterá-lo apenas para um modelo específico. Mesmo se houvesse uma maneira de salvar os arquivos gerados pelo modelo na pasta em que o arquivo de modelo reside, isso seria interessante. Alguém tem alguma ideia?

    

Answer 1

Uma solução é usar um modelo habilitado para macro (dotm) com uma macro VBA para substituir o SaveAs.

Uma macro de exemplo é:

Public Sub FileSaveAs()
    Dim dlg As Dialog
    Dim strSaveFolder
    strSaveFolder = Application.Options.DefaultFilePath(wdDocumentsPath)
    Select Case ActiveDocument.AttachedTemplate.Name
        Case "Woodworking.dot"
            Application.Options.DefaultFilePath(wdDocumentsPath) = "C:\Woodworking"
        Case "Travel.dot"
            Application.Options.DefaultFilePath(wdDocumentsPath) = "C:\Travel"
    End Select
    Set dlg = Dialogs(wdDialogFileSaveAs)
    dlg.Show
    Application.Options.DefaultFilePath(wdDocumentsPath) = strSaveFolder
End Sub

Você ainda precisará anexar essa macro ao Ctrl-S.

Se você usar um documento de modelo separado por usuário, o "Select Case" acima pode ser simplificado para uma atribuição simples em cada um dos modelos.

fonte