Запрашиваемый номер семейства не существует

@Светлана Слонь · Регистрация: 21.11.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Мне нужно посчитать кол-во строк в 4 таблице документа Ворд. Я создала кнопку через Разработчик и написала такой код:

Visual Basic

Private Sub CommandButton1_Click()
Dim n As Integer
 
   n = Selection.Tables(4).Rows.Count
   MsgBox prompt:="Вы заказали " & n & " наименований товара", _
   Title:="Кол-во наименований"
 
End Sub

Подскажите что делать
Выдает такую ошибку:

@pashulka · 26.04.2017, 22:30

Visual Basic

Private Sub CommandButton1_Click()
    MsgBox "Вы заказали " & Tables(4).Rows.Count & " наименований товара", , "Кол-во наименований"
    'MsgBox "Вы заказали " & Me.Tables(4).Rows.Count & " наименований товара", , "Кол-во наименований"
    'MsgBox "Вы заказали " & ActiveDocument.Tables(4).Rows.Count & " наименований товара", , "Кол-во наименований"
End Sub

@Светлана Слонь · 26.04.2017, 22:37 **[ТС]**

работает но считает не правильно(

Добавлено через 3 минуты
ой...это я протупила
надо было минус 1 поставить чтоб заголовок не считало
СПАСИБО ОГРОМНОЕ))))))))))))))))))))))ПЕЧЕНЕК ВАМ)

@Светлана Слонь 0 / 0 / 1 Регистрация: 21.11.2015 Сообщений: 217
	26.04.2017, 22:37 [ТС]	3
	работает но считает не правильно( Добавлено через 3 минуты ой...это я протупила надо было минус 1 поставить чтоб заголовок не считало СПАСИБО ОГРОМНОЕ))))))))))))))))))))))ПЕЧЕНЕК ВАМ) 0