Brauche Hilfe bei MS Office Makros in VB

[Dj Piet]

SO geht darum das ich mit

Selection.Copy einen bestimmten Textabschnitt kopiere.

dieser soll dann in der Speichern unter FileName Dialogbox eingefügt werden.

genau dafür benötige ich den passenden Code.

Hier mal das Original...

Sub Makro

Selection.MoveDown Unit:=wdLine, Count:=3
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
ActiveDocument.SaveAs FileName:=" wie bekomme ich hir Selection.Paste hinein .doc", _
FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
End Sub

[BomberD]

ActiveDocument.SaveAs FileName:="<Pfad>" + selection.text +".doc", _

edit: du brauchst das nicht kopieren.

wenn du was ausgewählt hast ist es schon selectiert, dann liegts in selection.