Selection.CopyFormat (Word)

Copie la mise en forme du premier caractère du texte sélectionné.

Si la sélection inclut une marque de paragraphe, Word copie non seulement la mise en forme du caractère, mais aussi celle du paragraphe.

ActiveDocument.Paragraphs(1).Range.Select 
Selection.CopyFormat 
ActiveDocument.Paragraphs(2).Range.Select 
Selection.PasteFormat