Word VBA つい先ほどまで動作していた塗りつぶしの部分を置き換えるマクロが動作しなくなりました。

Question

つい先ほどまで動作していたマクロが動作しなくなりました。

マクロの内容はteratailでサポートしていただいて作成したものです。

塗りつぶしの部分を置き換えるマクロ(色はマクロの記録をして確認したもの)です。

直前に文書をいったん保存して、再度文書を開いたら、「検索が最後まで行われていません。」というメッセージが出ました。

原因としてどういったことがあげられるものでしょうか。

今まで文書の中で動作させていたマクロの履歴をいったんクリアにする方法もあれば教えてください。

Word VBA 初心者です。ご教授のほどよろしくお願いします。

Sub replace()

With Selection.Find
.Font.Shading.BackgroundPatternColor = -721354906
While .Execute
Selection.Font.Shading.BackgroundPatternColor = -553582746
Selection.Font.Color = wdColorBlack
Selection.Collapse wdCollapseEnd
Wend
End With

End Sub

Comments

[meg_]

PCの再起動は試しましたか？

[addresshopeph]

PC を再起動したらマクロがうまく動作するようになりました。
どうもありがとうございました。

[kitasue]

問題は解決されたのですよね？
検索の履歴は、文書を閉じると消えてしまいます。

[addresshopeph]

問題は解決しました。
いろいろと教えていただきましてどうもありがとうございます。

[addresshopeph]

マクロはうまく動作しました。
Word VBA 初心者の私にわかりやすくご教授していただきありがとうございます。