lior03
02-03-2009, 03:20 AM
hello
i want to use a collins online dictionary & thesaurus.the following code should enable the user through a textbox enter a word and then select whether dto use a dictionary or a thesaurus.
Private Sub CommandButton1_Click()
UserForm19.hide
TextBox1.Value = ""
End Sub
Private Sub CommandButton2_Click()
Dim link
link = "http://www.collinslanguage.com/wordlist.aspx?startingwith=textbox1.value"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & link
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub
how do i use checkbox select the right internt page?
thanks
moshe
i want to use a collins online dictionary & thesaurus.the following code should enable the user through a textbox enter a word and then select whether dto use a dictionary or a thesaurus.
Private Sub CommandButton1_Click()
UserForm19.hide
TextBox1.Value = ""
End Sub
Private Sub CommandButton2_Click()
Dim link
link = "http://www.collinslanguage.com/wordlist.aspx?startingwith=textbox1.value"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & link
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub
how do i use checkbox select the right internt page?
thanks
moshe