Save file using paste function 1

[Coot402]

I am trying to create a macro in Word that will take a portion of the document that I copy using selection.copy. Then use

ActiveDocument.SaveAs FileName:= (Whatever I had copied to the clipboard)

Here is the code

Sub Macro1()

Selection.HomeKey Unit:=wdStory
Selection.MoveDown Unit:=wdLine, Count:=7, Extend:=wdExtend
Selection.TypeBackspace
Selection.MoveDown Unit:=wdLine, Count:=15
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
ActiveDocument.SaveAs FileName:= _
"this is what I want to paste", _
FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
End Sub

Any help would be appreciated

 

[SkipVought]

Hi,

I'm no Word guru, but...

    Selection.Copy
    ActiveDocument.SaveAs FileName:= Selection.Value, _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False

Hope this helps



Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Coot402]

I appreciate the help Skip but that gives me the

Compile error
Method or data member not found

:-(

 

[SkipVought]

Sorry,

My Excel VBA showing thru...

Selection.Text

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Coot402]

Works like a champ Skip. Thank you for the help


Andy