This example copies the formatting of the first paragraph to the second paragraph in the active document.
ActiveDocument.Paragraphs(1).Range.Select
Selection.CopyFormat
ActiveDocument.Paragraphs(2).Range.Select
Selection.PasteFormat
This example collapses the selection and copies its character formatting to the next word.
With Selection
.Collapse Direction:=wdCollapseStart
.CopyFormat
.Next(Unit:=wdWord, Count:=1).Select
.PasteFormat
End With