यह mracoker द्वारा ऊपर सुझाए गए मैक्रो पर एक सुधार है।
यह मैक्रो वर्तमान लाइन पर एक URL की तलाश करता है और URL के बाद पाठ पर कब्जा नहीं करता है जैसा कि पिछले उत्तर ने किया था।
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
उपयोग करने के लिए: URL से पहले कहीं कर्सर रखें; मैक्रो चलाएं (मैंने Ctrl-Shift-G पर मैप किया)