Declare Function ShowModalWordWeb Lib "WWeb32.DLL" Alias "ShowModalWordWeb" (Byval Ins As String, Byval Outs As String, Byval CloseOnCopy As Long, Byval AWindow As Long) As Long
Sub Main
Dim OutS1 As String * 255
On Error Goto ShowUnSet
OutS1 = String$(255,0)
.SelectWord
Str1$=.Text.GetText(366,1)
If Len(Str1$)<2 Then
.Type("[Left][Left]")
.SelectWord
Str1$=.Text.GetText(366,1)
If Len(Str1$)<2 Then Str1$=""
End If
On Error Goto Err2
If ShowModalWordWeb(Str1$, OutS1, 1, 0) Then
If (OutS1)=String$(255,0) Then Goto IsEnd Else .Type("[CtrlLeft]")