TextFrame.ContainingRange (Word)

Devuelve un objeto Range que representa todo el artículo de una serie de formas con marcos de texto vinculados a los que pertenece el marco de texto especificado.

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