DisplayKBaseArticles

Const sBaseURL = "http://support.microsoft.com/support/kb/articles/"
Set sourceWin = external.menuArguments
Set activePage = sourceWin.document
Set activeSelection = activePage.selection ' This gives us the highlited text
Set rngActive = activeSelection.createRange
ArticleID = rngActive.Text
If ArticleID <>"" Then
KnowledgeBaseURL = sBaseURL & Left(ArticleID, 4) & "/" & _
Mid(ArticleID,5,1) & "/" & _
Right(ArticleID,2) & ".asp"
window.Open KnowledgeBaseURL,Null,"resizable=yes,scrollbars=yes,menubar=yes,toolbar=yes,width=790,height=590"
Window.Close()
Else
MsgBox "Q number not specified"
Window.Close
End If