删除Word表格中的空格

makou

在Word文档中有400多张大小不等的表格,表格来自于Excel表，粘贴到Word文档后，表格中留有空格数不下百万，现在想要删除表格中的空格，但不处理表格以外其他文档位置的空格，以下代码运行时间超过10分钟，求助高手优化或给予另外的解决方案，谢谢！ 因文档不方便提供，无法提供样本望谅解！

Sub replace()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'删除表格中的空格
m = ActiveDocument.Tables.Count
For i = 1 To m
    Set Table = ActiveDocument.Tables(i)
    Table.Select
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
      With Selection.Find
         .Text = " "
         .Replacement.Text = ""
         .Forward = False
         .Wrap = wdFindStop
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchByte = False
         .MatchWildcards = True
         .MatchSoundsLike = False
         .MatchAllWordForms = False
        Selection.Find.Execute replace:=wdReplaceAll
      End With
Next i
Application.ScreenUpdating = True
MsgBox ("    " & "表格中的空格已全部删除")
End Sub

batmanbbs

一、没有样本很难测试哪个算法速度最快
二、你的代码没有什么问题，最多将FOR改成FOR EACH，搜索时不用SELECT表格，直接使用TABLE.RANGE.Find，但是我估计速度也不会有太大变化

makou

batmanbbs 发表于 2023-8-10 16:18
一、没有样本很难测试哪个算法速度最快
二、你的代码没有什么问题，最多将FOR改成FOR EACH，搜索时不用SEL ...

好的，我试试，谢谢！

batmanbbs

makou 发表于 2023-8-10 16:22
好的，我试试，谢谢！

makou

batmanbbs 发表于 2023-8-10 16:41

好用，谢谢！

batmanbbs

makou 发表于 2023-8-11 10:49
好用，谢谢！

速度差多少？