word多个表格如何指定文本，删除全部表格中指定文本所在列以下的内容，求VBA代码？

不空善成

batmanbbs

你是要清除该列里面的内容吗，上一个样本文件吧

不空善成

上一个图片是没删除的样式，下图是删除后的。

不空善成

batmanbbs 发表于 2023-9-6 22:38
你是要清除该列里面的内容吗，上一个样本文件吧

删除多个表格中坏账准备计提比例和坏账准备以下的内容。

batmanbbs

没有样本无法保证执行结果的准确性

不空善成

batmanbbs 发表于 2023-9-7 12:46
没有样本无法保证执行结果的准确性

可以了，多谢。

sylun

也可以试试查找法处理，特别是对有不规则合并单元格的表格：

1. Sub test()
   
2.     Dim i%, n%, lngStart&, strFind
   
3.     Dim aCell As Cell
   
4.    
   
5.     strFind = Array("坏账准备计提比例", "坏账准备")
   
6.     Application.ScreenUpdating = False
   
7.     For i = 0 To UBound(strFind)
   
8.         With ActiveDocument.Content.Find
   
9.             .Text = strFind(i)
   
10.                 Do While .Execute
    
11.                     .Parent.Select
    
12.                     lngStart = .Parent.Start
    
13.                     With Selection
    
14.                         If .Information(wdWithInTable) = True Then
    
15.                             If .Text & Chr(13) & Chr(7) = .Cells(1).Range.Text Then
    
16.                                 .SelectColumn
    
17.                                 n = n + 1
    
18.                                 For Each aCell In .Cells
    
19.                                     If aCell.Range.Start > lngStart Then aCell.Range.Delete
    
20.                                 Next
    
21.                             End If
    
22.                         End If
    
23.                     End With
    
24.                 Loop
    
25.         End With
    
26.     Next i
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "共处理了" & n & "列。"
    
29. End Sub

复制代码

batmanbbs

sylun 发表于 2023-9-8 22:19
也可以试试查找法处理，特别是对有不规则合并单元格的表格：

老师，这段代码好像也有一个局限性，就是为了对齐和美观，有时列标题可能会被分成两行（使用段落符或者手工换行符）或者夹杂空格，这时将无法查找到，有什么改进的方法吗？

sylun

batmanbbs 发表于 2023-9-9 00:27
老师，这段代码好像也有一个局限性，就是为了对齐和美观，有时列标题可能会被分成两行（使用段落符或者手 ...

规范的换行应用缩进或字符格式等设置，不怎么讲究也会用软硬回车换行，此时我的代码就可能失灵。因无法预测可能的手动换行方法，我就不改代码了，此时用老兄你的代码更合适，只是如果其中有的行存在不同的合并单元格，结果就可能会有偏差。

batmanbbs

sylun 发表于 2023-9-9 22:05
规范的换行应用缩进或字符格式等设置，不怎么讲究也会用软硬回车换行，此时我的代码就可能失灵。因无法预 ...

嗯嗯，是的，查找到之后，可以改进采用选中列的方法来处理