Trouble with Application.GetSaveAsFilename

Question

I'm using VBA in Word 2010 to automate the population of project details (job #, client details, etc.) into a master report template.  I've got the most important parts working just fine (albeit SLOW!), but would like for the user to be prompted to
save modified document into a different folder (so that the master file isn't overwritten every time) before the substitutions are made  This isn't my first program (having started with FORTRAN in 1977 or so) nor my first foray into VBA.  But the
file manipulation has me thoroughly befuddled.
Here's the code in question (it isn't complete yet - with unrelated code snipped out for brevity):
Sub myReplaceText()
    Dim NewText(29), IntialName, saveAsName As String
    Dim fileSaveName, myDialogBoxTitle As Variant
'SNIP lots of code
'NewText values are pulled from an Excel spreadsheet in other code
    NewText(1)="14-19298"
    NewText(2)="Grand Hyatt Hotel"
    InitialName = NewText(1) & " " & NewText(2) & " Final Report"
    saveAsName = InitialName & ".docx"
    myDialogBoxTitle = "Where do you want to save the file?"
'The following statement is my problem
    fileSaveName = Application.GetSaveAsFilename(saveAsName, "*.doc*", myDialogBoxTitle)
    If fileSaveName <> False Then
        MsgBox "Save as " & fileSaveName
    End If
End Sub
I'm getting an error before any of the code executes:
Compile error:
Method or data member not found
And Application.GetSaveAsFilename is highlighted.  I'm baffled.  I have the following references selected/activated:
Visual Basic for Applications
Microsoft Word 15.0 Object Library
OLE Automation
Normal
Microsoft Office 15.0 Object Library
Excel PlugInShell 1.0 Type Library
Microsoft Excel 15.0 Object Library
Microsoft DAO 3.6 Object Library
Microsoft ADO Ext. 6.0 for DDL and Security
What am I missing?

Answer 1

<sigh>
The answer is actually very simple: there is no  Application.GetSaveAsFilename
in Word's VBA.  Go figure.  The following code works:
<snip>
'Now save the Word file to a new name and location BEFORE it is changed
    Dim IntialName, saveAsName, mySaveAsFilePath As String
    Dim fileSaveName, myDialogBoxTitle As Variant
    Dim dlgSaveAs As FileDialog
    InitialName = NewText(1) & " " & NewText(2) & " Final Report"
    saveAsName = InitialName & ".docx"
    mySaveAsFilePath = "G:\Projects\"
Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)
'dlgSaveAs.Show
With Dialogs(wdDialogFileSaveAs)
    .name = mySaveAsFilePath & saveAsName
    .Show
End With
' perform the replacements
<snip>
My code is now working; hope this helps someone else.