Диалоговое окно "Сохранить как" - дилема

Вызов диалогового окна выбора папки

Sub ShowFolderDialog()
  Dim dlgFolder As FileDialog
  
  Set dlgFolder = Application.FileDialog(msoFileDialogFolderPicker)
  dlgFolder.Show
End Sub

Чтобы узнать значение константы совсем не обязательно лезть в справку. Достаточно в редакторе VBA нажать правую кнопку мыши на константе и выбрать пункт "Definition". Откроется Object Browser с описанием данной константы. Также значение константы можно бысто посмотреть в Immediate Window (Ctrl+G). Нужно ввести знак вопроса, имя константы и нажать Enter, например:

?wdStartOfRangeRowNumber

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

Sub test()
  Dim sName As String
  With Application.FileDialog(msoFileDialogSaveAs)
    If .Show Then sName = .SelectedItems(1) Else Exit Sub
    MsgBox sName
  End With
End Sub

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