"検索する文字"を自分の検索したい文字に変えて 以下をWordCheck.vbsと名前をつけて保存し、チェックしたいWord文書をWordCheck.vbsのアイコンの上にドラッグします。 Option Explicit Const searchWord = "検索する文字" Const wdReplaceNone = 0 Dim objWo…

Word VBA の入門用リンク集 （ワードマクロの，サンプルコードやリファレンス） 確かにWORD VBAは情報が少ないので便利です。

Windowsでデバイスが認識できない件 こちらのコメント欄で紹介されていた USBDeview http://www.nirsoft.net/utils/usb_devices_view.html をUSBを抜いた状態で起動し、unknownのデバイスをuninstallして再度USBを挿したところうまく認識したみたいです。