CopyFormat
Method copies formatting of first character from the selected text or contents and applied over destination. In this article we will copy format of existing formatted text to another paragraph using Visual Basic for Application code:

Refer above screenshot where I have two paragraphs, the first paragraph has VBAOVERALL.COM text highlighted in Yellow color and Bold text. Lets write some code which will copy the same formatting and paste it over entire paragraph 2
Code
Public Sub CopyPasteFormat() 'Bind document object reference Dim oDocument As Document Set oDocument = ActiveDocument 'Bind selection object reference Dim oSelection As Selection Set oSelection = Selection 'Copy format oSelection.CopyFormat 'Select second para oDocument.Paragraphs(2).Range.Select 'Paste format oSelection.PasteFormat 'Memory cleanup Set oSelection = Nothing Set oDocument = Nothing End Sub
Output
