如何通过代码删除Word所有表格含关键字所在的行？

tangqingfu

请教如何通过代码删除Word所有表格含关键字文本所在的行？比如说某一行中含有“查找”的文本，则批量删除该文本，关键字可通过inputbox框由用户自行指定

sqhsqhli

这个问题才问的，参考http://club.excelhome.net/thread-785858-1-1.html

tangqingfu

谢谢sqhsqhli兄的提醒。

413191246se

Sub 删除关键字所在行列()
    Dim k As String, i As String, t As Table, c As Cell, r As Range
    k = InputBox("请输入关键字：", "删除关键字所在行（列）", "干部")
    If k = "" Then Exit Sub
    If MsgBox("是：删除行   否：删除列", vbYesNo + vbQuestion, "删除关键字[" & k & "]所在行（列）") = vbYes Then i = 1 Else i = 2
    For Each t In ActiveDocument.Tables
        For Each c In t.Range.Cells
            Set r = c.Range
            r.MoveEnd Unit:=wdCharacter, Count:=-1
            If i = 1 Then
                If r.Text = k Then t.Rows(r.Information(wdStartOfRangeRowNumber)).Delete
            Else
                If r.Text = k Then t.Columns(r.Information(wdStartOfRangeColumnNumber)).Delete
            End If
        Next c
        t.Select
        Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
        Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Next
    Selection.HomeKey Unit:=wdStory
End Sub

sqhsqhli

413191246se 发表于 2011-12-19 23:36
Sub 删除关键字所在行列()
    Dim k As String, i As String, t As Table, c As Cell, r As Range
    k ...

通过cells来确定行和列然后删除之，在存在合并单元格时会错误。

413191246se

    目前对表格的操作仅限于规则的行列，有合并或拆分的单元格时会产生错误，这也没办法，目前水平不行呀！——今天在单位排版表格时，我的“处理单个表格”宏有时不管事儿！我觉得最近我要对表格加强一下了！昨天终于靠 VBA 帮助，把 单元格文本 这个难题啃下来了，明明知道单元格内有什么文字，但就是用代码得不到它（其实就是单元格内有文字+回车符，但这个回车符和文字段落的回车符舍弃方法不一样！）！后来，用了 Range （抄了 VBA 帮助 3行代码）解决了。

lanccc

413191246se 发表于 2011-12-19 23:36
Sub 删除关键字所在行列()
    Dim k As String, i As String, t As Table, c As Cell, r As Range
    k ...

执行之后会改变表格的大小，有办法让表格大小不受影响吗
我的表格是7行2列的，第一行合并