VBA早绑定与晚绑定 - 实际性能差异

我正在编写一个强大的Word宏，将在多台不同的计算机上使用以处理各种Word文档。我在许多专家VBA论坛上读到，早期绑定始终优于后期绑定，因为它在性能上更为出色。

根据我的逻辑，除非有令人信服的好处，否则就不适用于可用性，因为我不想确保在可能运行的所有计算机上都选择了库引用。

我曾尝试使用`ThisWorkbook.VBProject.References.AddFromGUID "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0`进行程序添加引用，但需要在计算机上启用安全信任以进行代码操作。

因此，我设置了一个测试来比较早期绑定和后期绑定的字典操作的运行1000次。我还进行了其他测试设置的尝试，如ScreenUpdating、DoEvents、Debug.Print，以查看每个设置的性能影响。

到目前为止，我发现无论在任何设置下（除了任意运行之间的10%波动），早期绑定和后期绑定本身没有明显的性能差异。

VBA大师们，我对这个故事很感兴趣，为什么我应该使用早期绑定，或者在实际使用中它真的有这样的优势吗？

我的测试代码如下：

Sub HeadingDefinitionWords_test()
    Application.ScreenUpdating = False
    Dim tm As Long
    tm = timeGetTime
    Dim DefinitionRangeBackup As Range, DefinitionRange As Range
    Dim kEy As Variant, i As Long, k As Integer
    Dim TempList As Object: Set TempList = CreateObject("Scripting.Dictionary")
    'Dim TempList As Scripting.Dictionary: Set TempList = New Scripting.Dictionary
    For i = 1 To 1000
    'Call HeadingDefinitionWords(Selection.Range.Duplicate, TempList)
    '''
         Set DefinitionRange = Selection.Range.Duplicate
         Set DefinitionRangeBackup = DefinitionRange.Duplicate
         '-
            With DefinitionRange.Find: .ClearFormatting: .Text = "([a-z])([A-Z])"
                .Forward = True: .Wrap = wdFindStop: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchAllWordForms = False
                .MatchSoundsLike = False: .MatchWildcards = True
            End With
        '-
            With DefinitionRange: While .Find.Execute And .InRange(DefinitionRangeBackup)
            '-
                .Expand Unit:=wdWord
            '-
                If Not TempList.Exists(Trim(DefinitionRange.Text)) Then TempList.Add Trim(DefinitionRange.Text), Trim(DefinitionRange.Text)
            '-
                DefinitionRange.Collapse wdCollapseEnd
            Wend: End With
        '''
        For Each kEy In TempList
            'Debug.Print kEy
            If k = 50 Then
                'Debug.Print k
                k = 1
            Else
                k = k + 1
            End If
            'DoEvents
        Next
    Next
    Dim tma As Long
    tma = timeGetTime
    Debug.Print tma - tm
    Application.ScreenUpdating = True
End Sub