Solution: Selection.Copy ClipboardText = Selection ActiveDocument.SaveAs FileName:= ClipboardText & ".doc ",...
Separate names with a comma.