vba - 在word中保存为文件名

Question

在下面的代码中，文件名是硬编码的，但我希望用户能够选择它。

我正在阅读 GetSaveAsFilename但是在使用它时出现错误:“方法或成员未找到”。

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

这是为 Word 2010 编写的。我想错了吗 GetSaveAsFilename可以在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

我没有意识到 Word 没有 GetSaveAsFileName 或 GetOpenFileName 方法(Excel 有)。但事实并非如此。相反，您可以尝试 SaveAs FileDialog( 2003 、 2007 、 2010 ):

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