after copy excel to word, how to prompt "save as" for word

I had done copy sheet content to word, after paste, I would like "save as" is prompted, so I can enter doc name and save it. I tried:
- Application.GetSaveAsFilename, it pop up, enter a file name, eventually doesn't save anything, and I don't know it save excel file or word file.
- ActiveDocument.SaveAs2 ("D:\Users\ushlia\Desktop\doc1"): I don't want create a file name in VBA, I just want "save as" pops up, so I can enter a name

Any suggestion? Thanks!

so, what additional code would be?

Shg, below is the code, thanks for help
------------------------------------------------------
Sub CopyToWord()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
Range("a1:g42").Copy
WordApp.Selection.PasteSpecial Link:=False

Set WordDoc = Nothing
Set WordApp = Nothing
'need command to pop up SaveAs right here"

End Sub

Thank you so much, macropod!