Диалог сохранить как ActiveDocument.SaveAs

[XORXE]

Возник вопрос:
С помощью - Application.Dialogs(wdDialogFileSaveAs).Show можно вызвать диалог сохранения документа.

Сам вопрос:
Как вызвать этот диалог но уже с предопределенным мною путем сохранения. Т.Е. у пользователя выскакивает диалог "Сохранить как..", путь сохранения документа я определяю пользователю сам, а название останется написать ему самому.

Пример:
Вася Пупкин открыл документ находящийся на D:\Новая папка, изменил документ и решил пересохранить в С:\Папка1.
Нужно чтобы диалог "Сохранить как.." открылся на папке С:\Папка1.

[alibek]

Код: Выделить всё

With Application.Dialogs(wdDialogFileSaveAs)
  .Filename = "..."
  ...
  .Show
End With