Selection.PasteFormat (Word)

Aplica a formatação copiada com o método CopyFormat à seleção.

Se uma marca de parágrafo tiver sido selecionada quando o método CopyFormat foi usado, o Word aplica a formatação de parágrafo além de formatação de caractere.

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