Как задать имя файла в окне "Сохранить как"

Попробуйте использовать такой макрос:

Sub MyFileSave()
  With Dialogs(wdDialogFileSaveAs)
    .Name = "Name"
    .Show
  End With
End Sub

Если путь более длинный, от корня, то попробуйте записать его целиком в атрибут Name:

Sub MyFileSave()
  With Dialogs(wdDialogFileSaveAs)
    .Name = "c:\Name"
    .Show
  End With
End Sub

Я проверил - у меня это работает.

Проверьте, какое значение принимает выражение? :

 Module2.Shifr & "_" & wdProp("Редакция")

Очень вероятно, что оно содержит недопустимые символы. Если что, не могли бы Вы выложить значение этого выражения? Какие значения принимают у Вас Module2.Shifr и wdProp("Редакция")?

akoks пишет:

то Имя определяет, а путь нет

Выдает какое-нибудь сообщение типа: "отказано в доступе"?
Кстати, какая у Вас операционная система?

А такое выполняет? :

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:\Documents and Settings\" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

И такое? :

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:\" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

А "D:\" видит? :

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "D:\" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

И последняя попытка:

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:\" & "Name"
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Так путь виден?

В таком случае могу только предложить выложить Ваш файл. Я могу протестировать его на своем Word'е.

Все-таки было бы лучше выложить сам документ.

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

Поделитесь, пожалуйста, решением задачи.

Подскажите еще пожалуйста, как отследить изменение Имени файла? Немного переделал код:

Sub SaveAs()    'вызывает окно "Сохранить как" и использует шифр_редакция - как имя документа
    Set wdProp = ActiveDocument.CustomDocumentProperties
    strFileName = Module2.Shifr & "_" & wdProp("Редакция")
    With Dialogs(wdDialogFileSaveAs)
        .Name = strFileName 'задает имя документа - как собранный шифр и номер редакции
        .Format = wdFormatDocument
        .Show
    End With
End Sub

сама функция Shifr:

Function Shifr() 'сборка шифра (Обозначения документа) из значений полей "Комплекс"-"Том"-"РазделПД"."Марка"
    Set wdProp = ActiveDocument.CustomDocumentProperties    '? присваиваем переменной значения свойств активного документа
    Shifr = wdProp("Комплекс") & "-" & wdProp("Том №") & "-" & UserForm1.cmbSectionPD.Text & "." & UserForm1.cmbMark.Text    'задаем значение переменной сборки шифра
End Function

Нужно, чтобы эта процедура вызывалась когда изменяется переменная strFileName ( например, когда задаются новые значения свойству "Редакция"), и Имя файла уже будет другим. Как это можно сделать? Или как задать условие изменения переменной?

Я бы создал глобальную переменную и хранил предыдущее значение имени файла в этой переменной.
Перед выводом на экран окна SaveAs текущее имя файла сравнивается со значением этой переменной.