外部アプリケーションからの検索

外部のアプリケーションから を起動して使用する例です。

例）Microsoft Word用マクロ。カーソル位置の単語をKWICで検索する。

Sub KWIC()

Dim KWIC, SearchWord, RetVal
KWIC = "C:\Program Files (x86)\KWICFinder4\KWICFinder4.exe /pat=*.* /search="
If Selection.Type = wdSelectionIP Then
    Selection.Expand Unit:=wdWord
End If
Set SearchWord = Selection.Range
RetVal = Shell(KWIC + """" + SearchWord + """")

End Sub