Sub recup()
'
' recup Macro
' Macro enregistrée le 08/08/2005 par kamal
'
Documents.Open FileName:='Elka.doc', ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:='', PasswordTemplate:= _
'', Revert:=False, WritePasswordDocument:='', WritePasswordTemplate:='', _
Format:=wdOpenFormatAuto, XMLTransform:=''
Selection.MoveDown Unit:=wdLine, Count:=3
Selection.MoveRight Unit:=wdCharacter, Count:=8
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.Copy
Windows('Document2').Activate
Windows('Elka').Activate
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveDown Unit:=wdLine, Count:=13
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveRight Unit:=wdWord, Count:=6, Extend:=wdExtend
Selection.Copy
Windows('Document2').Activate
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveRight Unit:=wdCharacter, Count:=1
Windows('Elka').Activate
Selection.MoveDown Unit:=wdLine, Count:=3
Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
Selection.Copy
Windows('Document2').Activate
Selection.Paste
Selection.MoveRight Unit:=wdCharacter, Count:=1
Windows('Elka').Activate
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=23, Extend:=wdExtend
Selection.Copy
Windows('Document2').Activate
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveRight Unit:=wdCharacter, Count:=1
Windows('Elka').Activate
Selection.MoveRight Unit:=wdCharacter, Count:=13
Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
Selection.Copy
Windows('Document2').Activate
Selection.Paste
Selection.MoveRight Unit:=wdCharacter, Count:=1
Windows('Elka').Activate
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=6, Extend:=wdExtend
Selection.Copy
Windows('Document2').Activate
Selection.Paste
Selection.MoveRight Unit:=wdCharacter, Count:=1
Windows('Elka').Activate
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveRight Unit:=wdWord, Count:=11, Extend:=wdExtend
Selection.Copy
Windows('Document2').Activate
Selection.Paste
Windows('Elka').Activate
Windows('Document2').Activate
Windows('Elka').Activate
ActiveWindow.Close
End Sub