Hvordan bruges copy/paste i word macro

Jeg skal bruge en macro, som tager en tekst del af en wordfil og gemmmer dokumentet under dette navn.

Jeg mangler at indsætte selection.paste så den kommer til at saveas med den selectet tekst som navnet på den nye fil.

Håber meget en eller anden kan hjælpe mig.

Mvh Sprit

Indholdet af den nuværende macro

Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=21
Selection.MoveRight Unit:=wdCharacter, Count:=6, Extend:=wdExtend

    Selection.Copy

ChangeFileOpenDirectory "C:\Temp\faq\"
ActiveDocument.SaveAs.Paste FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False