When discussing work items in e-mail, I often need the ability to insert a link to the work item. Of course, I use Outlook, but I also use Word as my e-mail editor. I use the following macro (mapped to a toolbar button) to convert a highlighted work item ID into a link, such as 12345. Since I find it useful, I thought I’d share it.

Sub MakeWorkItemLink()
   ActiveDocument.Hyperlinks.Add _
     Anchor:=Selection.Range, _
     Address:="http://server:port/WorkItemTracking/Workitem.aspx?artifactMoniker=" & _
       Selection.Text, _
     SubAddress:="", _
     ScreenTip:="Click to view this work item", _
     TextToDisplay:=Selection.Text
End Sub

852