Save as med filnavn

Jeg vil gerne hav en Word macro, der selv henter dokumentets navn, og som default gemmer et bestemt sted. Jet kan bare ikke få den til at sætte filnavnet ind fra clipboard\'et  : som denne :

Sub gemsom_felj()
\'
\'
    Dim filnavn As String
    Dim MineData As DataObject
    Selection.HomeKey Unit:=wdStory
    Selection.Find.Style = ActiveDocument.Styles(\"Overskrift 1\")
    Selection.Find.Execute
    Selection.Copy
\'næste linie giver en fejl: \"objektvariable ikke angivet\"
\'    MineData.GetFromClipboard
\'    filnavn = MineData.GetText(1)
    ChangeFileOpenDirectory \"\\\\SERVER\\ARKIV\\\"
  ActiveDocument.SaveAs FileName:=\"kladde\" & filnavn & \".doc\"
  Selection.HomeKey Unit:=wdStory
  Dialogs(wdDialogFileSaveAs).Show
     
End Sub