удаление таблицы

[D_e_n_n]

у меня на некоторых листах в документе есть такая таблица, она мне не нужна, как мне её удалить

[shanemac51]

выделите таблицу и возврат строки и нажмите DEL

[D_e_n_n]

Сообщение от shanemac51

выделите таблицу и возврат строки и нажмите DEL

а если этих листов 3 тысячи

[shanemac51]

тогда макросик нужен

Sub w110310_1725()  '' удаление табличек Продавец
Dim j1
j1 = Word.ActiveDocument.Tables.Count
Do While j1 > 0
If Word.ActiveDocument.Tables(j1).Rows(1).Cells(1).Range.Text Like "Продавец*" Then
Debug.Print j1;

Word.ActiveDocument.Tables(j1).Delete
End If
j1 = j1 - 1
Loop
End Sub

[D_e_n_n]

Сообщение от shanemac51

тогда макросик нужен

Sub w110310_1725()  '' удаление табличек Продавец
Dim j1
j1 = Word.ActiveDocument.Tables.Count
Do While j1 > 0
If Word.ActiveDocument.Tables(j1).Rows(1).Cells(1).Range.Text Like "Продавец*" Then
Debug.Print j1;

Word.ActiveDocument.Tables(j1).Delete
End If
j1 = j1 - 1
Loop
End Sub

спасибо, лихо все работает!

[D_e_n_n]

Сообщение от shanemac51

тогда макросик нужен

Sub w110310_1725()  '' удаление табличек Продавец
Dim j1
j1 = Word.ActiveDocument.Tables.Count
Do While j1 > 0
If Word.ActiveDocument.Tables(j1).Rows(1).Cells(1).Range.Text Like "Продавец*" Then
Debug.Print j1;

Word.ActiveDocument.Tables(j1).Delete
End If
j1 = j1 - 1
Loop
End Sub

сегодня прогнал программу на рабочем файле
на некоторых выдает ошибку
пример ворда во вложении

[shanemac51]

'''''Неоднородные таблицы, попробуй так

Sub w110310_1725()  '' удаление табличек Продавец
Dim j1
j1 = Word.ActiveDocument.Tables.Count
Do While j1 > 0
ON ERROR GOTO M1
If Word.ActiveDocument.Tables(j1).Rows(1).Cells(1).Range.Text Like "Продавец*" Then
Debug.Print j1;

Word.ActiveDocument.Tables(j1).Delete
End If
M1:
ON ERROR GOTO 0
j1 = j1 - 1
Loop
End Sub

[D_e_n_n]

Сообщение от shanemac51

'''''Неоднородные таблицы, попробуй так

Sub w110310_1725()  '' удаление табличек Продавец
Dim j1
j1 = Word.ActiveDocument.Tables.Count
Do While j1 > 0
ON ERROR GOTO M1
If Word.ActiveDocument.Tables(j1).Rows(1).Cells(1).Range.Text Like "Продавец*" Then
Debug.Print j1;

Word.ActiveDocument.Tables(j1).Delete
End If
M1:
ON ERROR GOTO 0
j1 = j1 - 1
Loop
End Sub

вот же блин всё равно ругается

[Serge_Bliznykov]

вот же блин всё равно ругается

проверил - не подтверждаю - всё работает!

Какой у Вас офис?
Вы уверены, что запускаете именно новый макрос?
Измените ему имя (это то, что написано после SUB: w110310_1725() , добавьте в начале, после получения j1 какое-нибудь сообщение, например:

j1 = Word.ActiveDocument.Tables.Count
MsgBox "Всего в документе " & Str(j1) & " таблиц "

пройдитесь в отладке (там, куда Вы вставляли макрос по Shift-F8, найдите таблицу, на которой макрос "срубается")...

[shanemac51]

''вынесла обработку ошибок
Sub w110310_1725()  '' удаление табличек Продавец
Dim j1, s1
j1 = Word.ActiveDocument.Tables.Count
Do While j1 > 0
On Error Resume Next
s1 = Word.ActiveDocument.Tables(j1).Rows(1).Cells(1).Range.Text
If s1 Like "Продавец*" Then

Debug.Print j1;

Word.ActiveDocument.Tables(j1).Delete
End If

'On Error GoTo 0
j1 = j1 - 1
Loop

Exit Sub
m1:
Err.Clear
Resume Next
End Sub