Vba 根据字体样式删除Word表格中的行

我仍在尝试修复word中表格的问题。在我的表格中有三列和许多行。行中的解释性文本以斜体书写。现在我想删除worddocument表格中字体为斜体的行。

---

我试着用宏记录器，但它不起作用。非常感谢您的帮助。

为此，您可以使用以下宏：

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英寸单元格（r，1）.Range表示斜体文本的列。

欢迎使用堆栈溢出。请花点时间阅读如何在网站上提出有效的问题。你需要展示你的努力（代码），并解释它们是如何不起作用的以及你在哪里被卡住了。就目前而言，你的问题“过于宽泛”，很可能会被关闭。