Range.InStory (Word)

True si el rango al que se aplica este método se encuentra en el mismo artículo que el intervalo especificado por el argumento Range.

Cada intervalo sólo puede pertenecer a un artículo.

InStory (Range)

Range: Especifica el intervalo que utiliza este método para determinar si está incluido dentro del objeto Range especificado.

Set Range1 = Selection.Words(1) 
Set Range2 = ActiveDocument.Range(Start:=20, End:=100) 
If Range1.InStory(Range:=Range2) = True Then 
 Range1.Font.Bold = True 
End If