Удалить строки в таблице Word в соответствии со стилем шрифта

Question

Я все еще пытаюсь решить проблему с таблицей в слове. В моей таблице три столбца и много строк. В строке пояснительный текст написан курсивом. Теперь я хочу удалить строки в таблицах моего worddocument, где шрифт курсив. Я пытался использовать макро рекордер, но он не будет работать. Буду очень признателен за вашу помощь.

Answer 1

Для этого вы можете использовать такой макрос:

Sub Demo()
Application.ScreenUpdating = False
Dim r As Long, Rng As Range
With Selection
  If .Information(wdWithInTable) = False Then Exit Sub
  With .Tables(1)
    For r = .Rows.Count To 1 Step -1
      Set Rng = .Cell(r, 1).Range
      With Rng
        .End = .End - 1
        If .Font.Italic = True Then .Rows(1).Delete
      End With
    Next
  End With
End With
Application.ScreenUpdating = True
End Sub

где 1 в .Cell (r, 1) .Range указывает номер столбца выделенного курсивом текста.