如何在Word中使用VBA加速多次替换？

Question

我正在编写一个Word宏，它从Excel文件中读取大约1000个单词对，并相应地替换Word文件。在一开始我使用下面的代码进行替换：

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = SrcText
        .Replacement.Text = DestText
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

它工作但对于大型Word文件显得有点慢。然后我尝试首先将整个内容读入一个字符串变量，找到那里，然后在找到任何替换目标时更改Word文件（虽然我实际上不确定这可以更快）。

当我这样做时，我遇到了有点奇怪的不一致。例如，如果您创建的Word文件在第一行中只包含单个单元格表：

然后在VBA编辑器中，下面的代码将为您提供2。

    Debug.Print Len(ActiveDocument.Characters(2))

我不知道是否存在其他类似的不一致之处并且卡在那里。

是否有任何解决方法或是否有其他方法可以加速更换？

Answer 1

首先，不要一遍又一遍地指定所有这些属性。除非你改变它们，否则它们不会改变。

With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = False
    .MatchFuzzy = False

    For loop to go through each word pair
        .Text = SrcText
        .Replacement.Text = DestText
        .Find.Execute Replace:=wdReplaceAll
    Next

End With

最小化点

因此，如果您对性能最小化点感兴趣（每个点都是查找），尤其是在循环中。

有两种方法。一种方法是，如果要多次访问，请将对象设置为最低对象。

例如（慢）

set xlapp = CreateObject("Excel.Application")
msgbox xlapp.worksheets(0).name 

（更快，因为每次使用对象时都会忽略一个点）

set xlapp = CreateObject("Excel.Application")
set wsheet = xlapp.worksheets(0)
msgbox wsheet.name

第二种方式是。你一次只能有一个活跃的。

这会跳过100次查找。

with wsheet
For x = 1 to 100
 msgbox .name
Next
end with

字符串Concatination

并且不要一次加入一个字符串。从VBScript程序员那里看到这一点。它需要50,000个字节，并且需要多次分配和释放才能生成100个字符的字符串。

http://blogs.msdn.com/b/ericlippert/archive/2003/10/20/53248.aspx

阅读属性

不要重读不会发生变化的属性，尤其是在进程外或后期绑定时。把它们放入一个变量中。

对象类型

这里有两个概念 - 进程内外或早期或晚期绑定。

exefiles连接到进程外。所有调用都通过RPC（网络协议）进行编组。 Dllfiles正在进行中，函数调用是直接跳转的。

早期绑定是set x = objecttype。编写程序时会查找函数。在执行时，程序被硬编码为跳转到存储在该函数的vtable中的地址。

后期绑定设置为x = createobject("objecttype")。每个函数调用都是这样的。 ＆＃34;你好对象你有打印命令＆＃34;。 ＆＃34;是＆＃34;，它回复，＆＃34;命令编号3＆＃34;。 ＆＃34;嗨，对象可以请你做第3和第34号命令。 ＆＃34;当然，结果是＆＃34;。

从Visual Basic概念（帮助的一部分）

通过优化Visual Basic解析对象引用的方式，可以使Visual Basic应用程序运行得更快。 Visual Basic处理对象引用的速度可能受以下因素影响：

ActiveX组件是否已实现为进程内服务器或进程外服务器。

对象引用是早期绑定还是后期绑定。通常，如果组件已作为可执行文件（.exe文件）的一部分实现，则它是进程外服务器并在其自己的进程中运行。如果它已实现为动态链接库，则它是一个进程内服务器，并在与客户端应用程序相同的进程中运行。

使用进程内服务器的应用程序通常比使用进程外服务器的应用程序运行得更快，因为应用程序不必跨越进程边界来使用对象的属性，方法和事件。有关进程内和进程外服务器的更多信息，请参阅＆＃34;进程内和进程外服务器。＆＃34;

如果对象引用使用声明为特定类的变量的对象变量，则它们是早期绑定的。如果对象引用使用声明为通用Object类的变量的对象变量，则它们是后期绑定的。使用早期绑定变量的对象引用通常比使用后期绑定变量的对象引用运行得快。

Excel特定

请参阅Microsoft人员的此链接。这是excel特定而不是VBA。 Autocalc和其他计算选项/屏幕更新等。

http://blogs.office.com/2009/03/12/excel-vba-performance-coding-best-practices/