Microsoft Wordでの置換処理 (ID:81531)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 初めて発言します。よろしくお願いします。 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 どなたかお分かりになる方がいらっしゃいましたらご教授ください。 よろしくお願い致します。