Sub InsertDictionaryPath()
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"http://dictionary.reference.com/"
End Sub
Sub InsertThesaurusPath()
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"http://thesaurus.com/"
End Sub
|