Word2010のVBA/クリップボードをクリアする

Wordが終了した時に出るメッセージを消すのが目的。VBA 質問箱 にジャストの質問/回答を見つけた。

※ 【718】クリップボードをクリア 　（Word VBA 質問箱 IV）

1. Sub Clearクリップボード()
2. Dim rng As Range
3. 　
4. ActiveDocument.InlineShapes(1).Range.Copy
5. For Each rng In ActiveDocument.Characters
6. rng.Select
7. If Selection.Type = wdSelectionNormal Then
8. Selection.Copy
9. Exit For
10. End If
11. Next
12. 　
13. End Sub

---

とりあえず組み込んだ。理解はこれから...