求教：如何删除(表格中)含特定字符的行

henterwu

请教各位高手： 如何删除(表格中)含特定字符的行 谢谢！！！

守柔

请参考： Sub rowdel()
Dim a, b, c, d
For Each a In ActiveDocument.Tables(1).Range.Cells
a.Select
b = Selection.Range.Start
c = Selection.Range.End
d = Range(Start:=b, End:=c - 1)
If d = "我" Then
MsgBox a.RowIndex
ActiveDocument.Tables(1).Rows(a.RowIndex).Delete
End If
Next
End Sub

henterwu

守柔老师，昨天晚上把删除表格行搞出来了，删除文字行还是不行。 还请您劳驾多多指教。谢谢！！！ Sub DelRows()
StrFnd = InputBox("input a String ")
Selection.Find.ClearFormatting
With Selection.Find
.Text = StrFnd
End With
Selection.Find.Execute
If Selection.Text = StrFnd Then
Selection.Rows.Delete
End If
End Sub 再次感谢！！！

hlrong

表格行与文本行是不同的，各做各的写。

henterwu

守柔老师教过我可以靠“Selection.Information”来判断表格与否，，现在就是不知如何删除为本行？ 请高手指教！！！

守柔

请参考：（是在原例中修改，请注意一个问题，光标位置，最好回到文档首。） Sub DelRows()
strfnd = InputBox("input a String ")
Selection.Find.ClearFormatting
With Selection.Find
.Text = strfnd
End With
Selection.Find.Execute
If Selection.Find.Found = False Then
MsgBox "没有找到"
Else
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
End If
End Sub

henterwu

再次感谢守柔老师，您的帮助！！！