Try something along the lines of:
Code:
Sub Demo()
Selection.Paste
With Application.Dialogs(wdDialogFileSaveAs)
.Name = "just some dummy text for testin1.docx"
If .Show = -1 Then ActiveDocument.Saved = True
End With
ActiveDocument.Close , False
Documents.Add DocumentType:=wdNewBlankDocument
End Sub