Текстовое поле «Объект не поддерживает вложенный текст» в Word 2016

Question

Я написал макрос vba, чтобы напечатать несколько лотерейных билетов в слове.Мой код VBA:

        For I = 1 To 10
            ActiveDocument.Shapes(1).TextFrame.TextRange.Text = N
            ActiveDocument.Shapes(2).TextFrame.TextRange.Text = N
            ActiveDocument.Shapes(3).TextFrame.TextRange.Text = N + 10
            ActiveDocument.Shapes(4).TextFrame.TextRange.Text = N + 10
            ActiveDocument.Shapes(5).TextFrame.TextRange.Text = N + 20
            ActiveDocument.Shapes(6).TextFrame.TextRange.Text = N + 20
            ActiveDocument.Shapes(7).TextFrame.TextRange.Text = N + 30
            ActiveDocument.Shapes(8).TextFrame.TextRange.Text = N + 30
            Application.PrintOut
            N = N + 1
        Next

Однако, когда я запускаю его, я получаю сообщение об ошибке:

Объект не поддерживает прикрепленный текст

КогдаЯ отлаживаю, строка shape (8) кода vba подсвечивается.Остальные 7 текстовых полей заполнены правильно, и если я удалю эту последнюю строку кода, она будет напечатана нормально, но 8-е текстовое поле, очевидно, не заполняется.Что мне здесь не хватает?