MS Word VBA - Determine the Degree of "Launch Style"?

Question

Suppose I have a link Rangein Word VBA, and I want to break it into smaller ranges where the formatting (font, color, etc.) is identical. For example, if I start with:

a quick brown fox jumped over a lazy dog.

... then I would like to return 5 ranges as shown below:

Quick

brown fox jumped over

lazy

dog.

I was hoping there was a built-in way in VBA to do this (and even have phantom memory to use such a tool), but I can't find anything.

I could do what I need to do in the code, but something that works initially would be much (much) faster.

[ , , , oRange.Font.Bold "undefined", , , . , Word , , - , .]

EDIT: , HTML StackOverflow.

Answer 1

VBA, OM ( OOXML). , , wdUnits wdCharacterFormatting , , . probaby - :

Dim sel As Selection
Set sel = ActiveWindow.Selection
Dim selRange As Range
Set selRange = selRange.Next(wdCharacterFormatting)

, selRange.Start/selRange.End, , selRange.Font.Name/selRange.Bold.