Đây là một cải tiến về vĩ mô được đề xuất ở trên bởi mracoker.
Macro này tìm kiếm một URL trên dòng hiện tại và không chụp văn bản sau URL như câu trả lời trước đó đã làm.
Sub OpenURLInChrome()
' Select to end of line
DTE.ActiveDocument.Selection.EndOfLine(True)
Dim selection As TextSelection = DTE.ActiveDocument.Selection
' Find URL within selection
Dim match = System.Text.RegularExpressions.Regex.Match( _
selection.Text, ".*(http\S+)")
Dim url As String = ""
If (match.Success) Then
If match.Groups.Count = 2 Then
url = match.Groups(1).Value
End If
End If
' Remove selection
selection.SwapAnchor()
selection.Collapse()
If (url = String.Empty) Then
MsgBox("No URL found")
End If
' Launch chrome with url
System.Diagnostics.Process.Start( _
Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) _
+ "\Google\Chrome\Application\chrome.exe", url)
End Sub
Để sử dụng: đặt con trỏ ở đâu đó trước URL; Chạy Macro (Tôi đã ánh xạ tới Ctrl-Shift-G)