帮我写一段word中用的VBA，循环遍历每个段落，先判断其是否在表格中，再判断是否该段落只包含空格、“项”、“目”，这三个字，如果满足上述两个条件，则该段落删除

好的，以下是 VBA 代码：

Sub DeleteParagraphs()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If para.Range.Tables.Count > Then ' 判断是否在表格中
If Trim(para.Range.Text) = "项" Or Trim(para.Range.Text) = "目" Or Trim(para.Range.Text) = "" Then ' 判断是否只包含空格、“项”、“目”
para.Range.Delete ' 删除该段落
End If
End If
Next para
End Sub

希望能帮到您！