I have procedure that finds text in Word and the puts the Word paragraph text (where the term was fount) into and Excel cell:

Sheets("Test").Cells(xlRow, 3).Value = oRng.Paragraphs(1).RangeText 'Where oRng is the found range in the word document.

This results in unformatted text in the Excel cell. If my word text has formatting, e.g., bold, italic, underline etc. How can I adapt this line of code so that the result in the Excel cell matches the formatted text in the Word document.