WORD如何提高替换效率

源码:
Dim inputline As String
Dim arrayline() As String

Open "d:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputline
arrayline = Split(inputline, " ")
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = arrayline(0)
        .Replacement.Text = arrayline(1)
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .CorrectHangulEndings = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Loop
Close #1


1.txt内容
A B
C D
......
20万字的word文件,1.TXT中内容有100行,开始的时候,速度还可以,运行一会后,速度就奇怪,请问大侠,如何可以提高执行效率?我关掉了页面刷新,清理了UNDO,关了拼写检查,但还是不理想,谁有好的办法呀,谢谢啦.

请帮忙啊，急啊

大家去这里可以看免费视频：http://www.51zxw.net/study.asp?vip=2269665]５１自学网－专业培训老师录制的视频教程，让学习变得很轻松。