Установите шаблон Microsoft Word, чтобы всегда сохранять документы на его основе в определенном месте

Question

Некоторые из моих профессоров требуют очень специфических форматов для документов, напечатанных для их курсов. Я создал шаблоны слов (файлы .dotx ) для них, поэтому мне не нужно настраивать форматирование каждый раз, когда я что-то пишу.

У меня уже есть шаблон для каждого из моих классов, и мои файлы организованы так, что у каждого класса есть свой собственный каталог. Я хотел бы иметь возможность указать место сохранения по умолчанию для каждого шаблона. Я знаю, как установить общее место сохранения по умолчанию для всех документов, но я хочу изменить его только для определенного шаблона. Даже если бы был способ сохранить файлы, сгенерированные шаблоном, в папку, в которой находится файл шаблона, это было бы неплохо. У кого-нибудь есть идеи?

Answer 1

Одним из решений является использование шаблона с поддержкой макросов (dotm) с макросом VBA для замены SaveAs.

Пример макроса:

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

Вам все еще нужно будет прикрепить этот макрос к Ctrl-S.

Если вы используете отдельный шаблон документа для каждого пользователя, приведенный выше "Выбор дела" можно упростить до простого назначения в каждом из шаблонов.

источник