TextFrame.ContainingRange (Word)

Retorna um objeto Range que representa todo o texto em uma série de formas com quadros de texto vinculados que o quadro de texto especificado pertence. Somente leitura.

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