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




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