Selection.PasteFormat (Word)

Applies formatting copied with the CopyFormat method to the selection.

If a paragraph mark was selected when the CopyFormat method was used, Word applies paragraph formatting in addition to character formatting.

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