obteniendo guardar como nombre de archivo en la palabra

Question

En el siguiente código, el nombre del archivo está codificado, pero quiero que el usuario pueda elegirlo.

Estaba leyendo acerca de GetSaveAsFilename pero me sale un error al usarlo: "método o miembro no encontrado".

fileSaveName = Application.GetSaveAsFilename _ 
    (fileFilter:="Excel Files (*.txt), *.txt") 

Esto está escrito para Word 2010. ¿Me equivoco al pensar GetSaveAsFilename está disponible en Word VBA?

Sub Macro3() 
' 
' Macro3 Macro 
' 
' 
    ActiveDocument.SaveAs2 FileName:="Questionnaire01-05-20122.txt", _ 
     FileFormat:=wdFormatText, LockComments:=False, Password:="", _ 
     AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ 
     EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ 
     :=True, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, _ 
     AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0 
End Sub 

Answer 1

le puede proporcionar un camino predeterminado, ya nombre de fichero como por lo que el cuadro de diálogo, es decir

Sub SaveName() 
    Dim strFileName As String 
    Dim StrPath As String 
    'provide default filename 
    StrPath = "c:\temp\test.docx" 
    With Dialogs(wdDialogFileSaveAs) 
     .Name = StrPath 
     If .Display <> 0 Then 
      strFileName = .Name 
     Else 
      strFileName = "User Cancelled" 
     End If 
    End With 
    MsgBox strFileName 
End Sub 

Answer 2

No me di cuenta de que la palabra no tiene métodos GetSaveAsFilename o GetOpenFileName (que tiene Excel). Pero no es así En su lugar puede probar el GuardarComo FileDialog (2003, 2007, 2010):

Sub ShowSaveAsDialog() 
Dim dlgSaveAs As FileDialog 
Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs) 
dlgSaveAs.Show 
End Sub 

Answer 3

Dim strFilePath, strFileName 
strFilePath = "C:\Users\Public\Documents\" 
strFileName = "put-filename-here.docx" 

With Dialogs(wdDialogFileSaveAs) 
    .Name = strFilePath & strFileName 
    .Show 
End With