用VBA查找和删除Word中多个表格有时要操作、编辑较多的表格的word文件，因数量较多而非常困难，象我公司今年有合理化建议表670份，我把它集中在一个word文件内，但要进行分类评审、查找、修改、检索、相同的表格删除非常不方便，为此我研究了一天，找到了用VBA查找和删除Word中多个表格的方法，今分享如下：1、删除文件中不要的表格评审后新的合理化项目表名为："生产配料成本测算控制方法降低原料消耗减少破坏威胁程度合理利用废旧除尘布袋大面下料管改造炉壳喷淋水冷……粘结剂改进"。把不在里面名称的表格删除PublicSubdel()DimsAsString,tAsString,uAsString,vAsStringDimiAsInteger,jAsInteger,kAsInteger,lAsInteger,pAsInteger,qAsInteger,rAsIntegerDima()AsStrings="生产配料成本测算控制方法降低原料消耗减少破坏威胁程度合理利用废旧除尘布袋大面下料管改造炉壳喷淋水冷……粘结剂改进"//不够可用几个String变量，合并变量即可a=Split(s)k=UBound(a)Whilep=0ff:Fori=1To10000t=Trim(ActiveDocument.Tables(i).Cell(1,2).Range)//假设名称在表格第一行第二列u=Mid(t,1,Len(t)-2)t=Trim(u)r=0Forj=0TokIft=Trim(a(j))Thenr=1NextIfr=0ThenActiveDocument.Tables(i).DeleteGoToffEndIfNextWendEndSub2、查找重复的表格PublicSubzhao()DimsAsString,tAsString,uAsString,vAsStringDimiAsInteger,jAsInteger,kAsInteger,lAsInteger,pAsInteger,qAsInteger,rAsIntegerDima()AsString,b()AsIntegers="生产配料成本测算控制方法降低原料消耗减少破坏威胁程度合理利用废旧除尘布袋大面下料管改造炉壳喷淋水冷……粘结剂改进"//不够可用几个String变量，合并变量即可a=Split(s)k=UBound(a)ReDimb(k+2)Fori=0Tokb(i)=0Nextr=572//输入表格个数Fori=1Tort=Trim(ActiveDocument.Tables(i).Cell(1,2).Range)//假设名称在表格第一行第二列u=Mid(t,1,Len(t)-2)t=Trim(u)Forj=0TokIft=Trim(a(j))Thenb(j)=b(j)+1EndIfNextNextFori=0TokIfb(i)>1ThenMsgBox(a(i))NextEndSub3、查找缺失的表格PublicSubzhao2()DimsAsString,tAsString,uAsString,vAsStringDimiAsInteger,jAsInteger,kAsInteger,lAsInteger,pAsInteger,qAsInteger,rAsIntegerDima()AsString,b()AsIntegers="生产配料成本测算控制方法降低原料消耗减少破坏威胁程度合理利用废旧除尘布袋大面下料管改造炉壳喷淋水冷……粘结剂改进"//不够可用几个String变量，合并变量即可a=Split(s)k=UBound(a)ReDimb(k+2)Fori=0Tokb(i)=0Nextr=619//输入表格个数Fori=1Tort=Trim(ActiveDocument.Tables(i).Cell(1,2).Range)//假设名称在表格第一行第二列u=Mid(t,1,Len(t)-2)t=Trim(u)Forj=0TokIft=Trim(a(j))Thenb(j)=b(j)+1EndIfNextNextFori=0TokIfb(i)<1ThenMsgBox(a(i))NextEndSub