Range.InStory (Word)

True se o intervalo ao qual esse método é aplicado estiver no mesmo texto do intervalo especificado pelo argumento Range.

Um intervalo só pode pertencer a um texto.

InStory (Range)

Range: Especifica o intervalo que este método usa para determinar se ele está contido no 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