エラーでWordマクロがうまく動かない

　先日、Word文書内に挿入したブックマークのテキストを、次から次に順次入れ替えるVBAマクロのコードを、当ブログ記事で紹介しました。

　⇒ こちらの記事をご覧ください。

　次のVBAコードです。

Dim i As Integer
For i = 1 To 5
　With ThisDocument
　　　 ' ブックマークにテキストを挿入
　　　 .Bookmarks(1).Range.Text = i
　　　 .PrintOut
　　　' ブックマークのテキストを削除
　　　.Bookmarks(1).Range.Delete
　End With
Next i

　週明けの今日（2023年12月18日）、職場のPCでこれを試してみました。
　そうしたら、なんと、なんと、エラーが出てしまいます。

　具体的には、
　　.Bookmarks(1).Range.Delete
のところで、ブックマークのテキストを削除するのではなく、ブックマークそのものを削除してしまいます。

　自宅PCでは、意図どおりに動いてくれたのに、なぜ、職場ではエラーになるのか、原因不明です。
　会社では、次から次に仕事が入ってくるので、原因追及をしているような時間的余裕がありません。

　取り急ぎ、うまく動かないこともあるってことを、この場で報告しておきます。
　エラーが出たときの落胆は、ちょっと大きいものがありました。
　あちゃ～、ってなもんです。





　でも、プログラミングって、こういうもんです。完璧に動作してくれると、最高の気分になれるのですが、そうとばかりは限りません。
　試行錯誤の繰り返しです。そんなもんです。

【Amazon.co.jp限定】ロジクール SEB-M705 ワイヤレスマウス 無線 Unifying 7ボタン 高速スクロール 電... 手と指を自然な状態で置いて自然な姿勢を維持/腕や肩が疲れにくい高機能ワイヤレスマウス Logicool(ロジクール)

それでは、また次の記事で
■■■■ goosyun ■■■■

---

《2023年12月29日追記》
　あれこれと探って、ようやく解決策を見つけました。
　　⇒ こちらの記事をご覧ください。