Макрос в Worde

[Гена]

Не могу записать макрос в Worde. Нужно по большой таблице по 3 колонке проверять строки и удалять ненужные. Т.е. нужно сделать запрос (фильтр), только в Worde. Пока ничего не получается.

Код: Выделить всё

Sub rt()

    Selection.Tables(1).Select
    Dim r As Range
    For Each r In Columns(3)
     If r.Text <> "Начальник" Then
         Selection.Rows.Delete
        End If
    Next
   
   
   
   
End Sub


[GSerg]

Код: Выделить всё

Sub rt()
  Dim i As Long
 
  With Selection.Tables(1)
    For i = .Rows.Count To 1 Step -1
      If Left$(.Cell(i, 3).Range.Text, 9) <> "Начальник" Then .Rows(i).Delete
    Next
  End With
End Sub

[Гена]

Спасибо больщое. Похоже.

Но, у меня почему-то все строки в таблице удаляет.
А что означает в коде цифра 9? Можна ли в if добавлять несколько условий, к примеру: что-бы оставалось в таблице строки с "Начальником" и "Заместитель"
P.S. Я только учусь в Worde, в Excele немного полегче.

[Гена]

Получилось. Понял.
Как можна записать условие чтобы оставлялись еще пустые (без текста) строки (пустая ячейка в 3 колонке)?

Код: Выделить всё

If (Left$(.Cell(i, 3).Range.Text, 9) <> "Начальник" And Left$(.Cell(i, 3).Range.Text, 0) <> "") Then .Rows(i).Delete

Т.е что-то типа этого, ну здесь удаляет все.


[GSerg]

Дело в том, что текест каждой ячейки таблицы оканчивается специальным символом, поэтому его нужно отсекать. Обобщим:

Код: Выделить всё

Sub rt()
  Dim i As Long
 
  With Selection.Tables(1)
    For i = .Rows.Count To 1 Step -1
      select case Left$(.Cell(i, 3).Range.Text, len(.Cell(i, 3).Range.Text)-1)
      case "Начальник", vbnullstring
        .Rows(i).Delete
      end select
    Next
  End With
End Sub