TextFrame.ContainingRange (Word)

Renvoie un objet Range qui représente l’article entier d’une série de formes avec des cadres de texte liés auxquels le cadre de texte spécifié appartient.

Dim rngStory As Range 
 
Set rngStory = ActiveDocument.Shapes("TextBox 1") _ 
 .TextFrame.ContainingRange 
 
rngStory.CheckSpelling