Значение скопированного присвоить переменной, макрос - VBA

Формулировка задачи:

Доброго времени суток. ТЗ: есть вордовский документ из него копируем первую строку(название будущего документа), и сохраняем в определнную папку(она постоянная). Мой код:

Sub Макрос4()
'
' Макрос4 Макрос
'
'
    Selection.HomeKey Unit:=wdStory
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.Copy
    ChangeFileOpenDirectory "F:\Фантастика\1"
    ActiveDocument.SaveAs2 FileName:=[COLOR="SeaGreen"]Название из первой строки[/COLOR], FileFormat _
        :=wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True _
        , WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, Encoding:=1251, InsertLineBreaks:=False, _
        AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
End Sub

Ну еще мона и что бы документ в конце макроса закрывался

Решение задачи: «Значение скопированного присвоить переменной, макрос»

textual
                            Листинг программы 
                        

                            Sub ГЊГ*ГЄГ°Г®Г±4()
'
' ГЊГ*ГЄГ°Г®Г±4 ГЊГ*ГЄГ°Г®Г±
'
'
    Selection.HomeKey Unit:=wdStory
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.Copy
    ChangeFileOpenDirectory "F:\Г”Г*Г*ГІГ*Г±ГІГЁГЄГ*\1"
    ActiveDocument.SaveAs2 FileName:=Selection.Text, FileFormat _
        :=wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True _
        , WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, Encoding:=1251, InsertLineBreaks:=False, _
        AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
End Sub
                        