Microsoft Wordでの置換処理

初めて発言します。よろしくお願いします。

Word文書を一行ずつ置換処理するプログラムを作っていますが、
Wordのバージョンによって強制終了します。

開発環境は
Windows 2000
Visual Basic 6.0
Word 2000

インストールCDからインストールした時のWord 2000のバージョンは
Word 2000 (9.0.3821 SR-1) ですが、
Office Updateで最新のWord 2000にアップグレードすると、
Word 2000 (9.0.6926 SP-3) になります。
問題の強制終了が発生するのは、アップグレードしたSP-3の方で、
SR-1では問題なく処理できます。
Wordのバグでしょうか。

ソースを以下の通りです。

Private Sub Command1_Click()
    Dim WdApp As New Word.Application
    Dim doc As Document
    Set doc = WdApp.Documents.Open("ファイルパス")
    Dim para As Paragraph
    For Each para In doc.Paragraphs
        With para.Range.Find
            .ClearFormatting
            .Text = "a"
            .Replacement.Text = "XXXX"
            .Execute Replace:=wdReplaceAll
        End With
    Next para
    doc.Close
    WdApp.Quit
    Set para = Nothing
    Set doc = Nothing
    Set WdApp = Nothing
End Sub

どなたかお分かりになる方がいらっしゃいましたらご教授ください。
よろしくお願い致します。