MS Office 2010 - Последняя используемая директория шаблонов (VBA)

Question

У меня вопрос о скриптовых макросах для MS Office 2010, более специфичных для Word. Я ищу способ сохранить документ, который был создан из шаблона, прямо в каталоге, где сохраняется шаблон (не стандартный каталог шаблонов).

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

Я не использовал VBA и никаких макросов для Office, и я пока не нашел решений.

Буду признателен за любые мысли, которые могут помочь мне и другим людям с той же проблемой.

EDIT:

Как Синди предложила, чтобы сказать, как я хочу, чтобы выполнить макрос, я хотел бы добавить, что я хочу использовать встроенный в функции экономии, чтобы открыть диалоговое окно, если файл не есть еще.

Но сегодня я неожиданно нашел ответ, который я искал. Мне жаль, что я создал новый вопрос для этого, хотя я нашел его на следующий день, но я не знал, что буду. : P

Во всяком случае, вот код, который я нашел (Это не от меня):

Sub FileSave() 

    If ActiveDocument.Path = "" Then 'If document was never saved yet 
     FileSaveAs 
     Exit Sub 
    End If 
    ActiveDocument.Save 

End Sub 
Sub FileSaveAs() 

    Dim DocName As String 

    With ActiveDocument 
     DocName = "/path 
    End With 

    With Dialogs(wdDialogFileSaveAs) 
     .Name = DocName 
     .Show 
    End With 

End Sub 

Answer 1

Вы можете использовать System.IO.Path.GetDirectoryName(), чтобы получить имя каталога файла шаблона и используйте этот каталог для сохранения нового файла.