Некоторые мои преподаватели требуют очень определенные форматы для бумаг, введенных для их курсов. Я создал шаблоны слова (.dotx
файлы) для них, таким образом, я не должен настраивать форматирование каждый раз, я иду для записи чего-то.
Я уже имею шаблон для каждого из моих классов и имею мои файлы, организованные таким образом, что каждый класс имеет свой собственный каталог. Я хотел бы смочь указать местоположение сохранения по умолчанию для каждого шаблона. Я знаю, как установить общее местоположение сохранения по умолчанию для всех документов, но я хочу изменить его только для определенного шаблона. Даже если был способ иметь его, сохранили файлы, сгенерированные шаблоном в папку, в которой находится шаблонный файл, который был бы хорош. У кого-либо есть какие-либо идеи?
Одно решение состоит в том, чтобы использовать макровключенный шаблон (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.
При использовании отдельного шаблонного документа на пользователя вышеупомянутый "Избранный Случай" может быть упрощен до простого, присваиваются в каждом из шаблонов.