根据字体样式删除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

其中.Cell（r，1）中的1。.ange表示斜体文本的列＃。