単語にファイル名として保存する

Question

以下のコードでは、ファイル名はハードコードされていますが、ユーザーが選択できるようにしたいと考えています。

私は約GetSaveAsFilenameを読んでいましたが、「メソッドまたはメンバーが見つかりません」というエラーが表示されます。

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

これは、Word 2010のために書かれている私はGetSaveAsFilename単語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

あなたは、ダイアログにそのようなファイル名を含むデフォルト・パスを提供することができ、すなわち

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

WordにGetSaveAsFileNameメソッドまたはGetOpenFileNameメソッド（Excelが持つ）がないことはわかりませんでした。しかし、それはしません。代わりに、名前を付けて保存の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