PDA

View Full Version : dictionary userform



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

Kenneth Hobs
02-03-2009, 01:31 PM
Try:
http://www.collinslanguage.com/wordlist.aspx?startingwith=" & textbox1.value