Selection.CopyFormat (Word)

Copia el formato de carácter del primer carácter del texto seleccionado.

Si se selecciona una marca de párrafo, Word copia el formato de párrafo además del de carácter.

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