Доступ к объектам Shape / TextBox можно получить через
ThisDocument.Shapes.Item(index)
и проверяя возвращенный объект Shape на
theShape.Type = msoTextBox
Однако объекты Shape будут возвращены в том порядке,были созданы, а не их порядок на странице / документе.Чтобы найти «следующий» TextBox, вам, вероятно, придется пройтись по всем TextBox и просмотреть их местоположение (.Top, .Left и т. Д.), Чтобы найти правильное, к которому нужно перейти:
theNextShape.Select