>WordWeb is a new free thesaurus/dictionary for Windows 3.1 or Windows 95.
>Download it from
> ftp://garbo.uwasa.fi/windows/util/wordweb.zip
Sorry folks, I forgot to include the template to run WordWeb from MS Word 6.
It should have been in the zip file, but I forgot it.
At the end of the posting is the text of the Word 6 macro needed.
To make use of it:
1. Select Macro… from the Word tools menu
2. Type ‘WordWeb’ as a name for the macro
3. Click on Create
4. Delete the ‘Sub MAIN’ – ‘End Sub’ and copy in the the text below
5. You can then add the macro to toolbars or menus as you like.
You don’t get my nice toolbutton doing this, but it should work. Don’t
forget to copy the WordWeb.DLL file to your WINDOWS directory before
trying to run the macro.
I’m willing to E-Mail the .DOT file to anyone who is really desparate for
it as long as you can cope with MIME attatchments (EMail AML1…@CAM.AC.UK).
Antony
Macro starts here:
Declare Function ShowModalWordWeb Lib "WordWeb.DLL"(In$, Out$, CloseOnCopy As Integer, AWindow As Integer) As Integer
Sub MAIN
On Error Goto ShowUnSet
Str1$ = ""
If AtEndOfDocument() = – 1 Then WordLeft(1, 0)
SelectCurWord
Str1$ = Selection$()
If Len(Str1$) < 2 Then
WordLeft(2, 0)
SelectCurWord
Str1$ = Selection$()
If Len(Str1$) < 2 Then Goto ShowUnSet
End If
On Error Goto IsEnd
If ShowModalWordWeb(Str1$, Out$, 1, 0) Then
EditClear
If Selection$() = " " Then Insert " " + Out$ Else Insert Out$ + " "
End If
Goto IsEnd
ShowUnSet:
ShowModalWordWeb("", out$, 0, 0)
isEnd:
End Sub
