Selection.PasteFormat (Word)

Aplica formato copiado con el método CopyFormat a la selección.

Si se ha seleccionado una marca de párrafo cuando se usa el método CopyFormat, Word aplica formato además de formato de carácter de párrafo.

With Selection 
 .Paragraphs(1).Range.Select 
 .CopyFormat 
 .Paragraphs(1).Next.Range.Select 
 .PasteFormat 
End With