Ancienne version

Cette macro a été trouvée sur
http://www.domainwebcenter.com/?p=290

Sub CopieTexteSpecialOld()
' PasteTextSpecial => http://www.domainwebcenter.com/?p=290
    On Error GoTo Unicode
    Selection.PasteSpecial Link:=False, DataType:=wdPasteText, _
        Placement:=wdInLine, DisplayAsIcon:=False
    GoTo Done
Unicode:
    Selection.PasteAndFormat (wdFormatPlainText)
Done:
End Sub