Sub MAIN
REM	WordGrep macro for MS-WORD 95
REM	EXECUTE WZ-GREP FROM MS-WORD
REM	(C)1996 kitamakura@009.com
	If checksel = 0 Then SelectCurWord
	a$ = Selection$()
	EditCopy
REM	ExecName$ = "f:\wz\wzeditor.exe grep.txe -s"
	ExecName$ = "f:\wz\wzeditor.exe grep.txe -S"
REM	ShellArg$ =  ExecName$ + a$ + " -pe:\data\*.*"
        ShellArg$ =  ExecName$ + Chr$(34) + a$ + Chr$(34)
	Shell ShellArg$
	Beep
End Sub
Function checksel
	If GetSelStartPos() = GetSelEndPos() Then
		checksel = 0
	Else
		checksel = 1
	End If
End Function