Ответ 1
После ответа Джоша. Этот макрос VS будет искать StackOverflow для выделенного текста в среде Visual Studio IDE. Просто выделите и нажмите Alt + F1
Public Sub SearchStackOverflowForSelectedText()
Dim s As String = ActiveWindowSelection().Trim()
If s.Length > 0 Then
DTE.ItemOperations.Navigate("http://www.stackoverflow.com/search?q=" & _
Web.HttpUtility.UrlEncode(s))
End If
End Sub
Private Function ActiveWindowSelection() As String
If DTE.ActiveWindow.ObjectKind = EnvDTE.Constants.vsWindowKindOutput Then
Return OutputWindowSelection()
End If
If DTE.ActiveWindow.ObjectKind = "{57312C73-6202-49E9-B1E1-40EA1A6DC1F6}" Then
Return HTMLEditorSelection()
End If
Return SelectionText(DTE.ActiveWindow.Selection)
End Function
Private Function HTMLEditorSelection() As String
Dim hw As HTMLWindow = ActiveDocument.ActiveWindow.Object
Dim tw As TextWindow = hw.CurrentTabObject
Return SelectionText(tw.Selection)
End Function
Private Function OutputWindowSelection() As String
Dim w As Window = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput)
Dim ow As OutputWindow = w.Object
Dim owp As OutputWindowPane = ow.OutputWindowPanes.Item(ow.ActivePane.Name)
Return SelectionText(owp.TextDocument.Selection)
End Function
Private Function SelectionText(ByVal sel As EnvDTE.TextSelection) As String
If sel Is Nothing Then
Return ""
End If
If sel.Text.Length = 0 Then
SelectWord(sel)
End If
If sel.Text.Length <= 2 Then
Return ""
End If
Return sel.Text
End Function
Private Sub SelectWord(ByVal sel As EnvDTE.TextSelection)
Dim leftPos As Integer
Dim line As Integer
Dim pt As EnvDTE.EditPoint = sel.ActivePoint.CreateEditPoint()
sel.WordLeft(True, 1)
line = sel.TextRanges.Item(1).StartPoint.Line
leftPos = sel.TextRanges.Item(1).StartPoint.LineCharOffset
pt.MoveToLineAndOffset(line, leftPos)
sel.MoveToPoint(pt)
sel.WordRight(True, 1)
End Sub
Для установки:
- перейдите в Инструменты - Макросы - IDE
- создайте новый модуль с именем по вашему выбору в разделе "MyMacros". Или используйте существующий модуль.
- вставьте указанный выше код в модуль
- добавьте ссылку на пространство имен System.Web(для HttpUtility) в модуль
- закрыть окно макроса макроса
- перейти в Инструменты - Параметры - Среда - Клавиатура
- введите "google" в Show Commands, содержащий текстовое поле. Макрос SearchGoogleForSelectedText должен отображаться
- нажмите в текстовом поле "Нажмите клавиши быстрого доступа", затем нажмите ALT + F1
- нажмите кнопку "Назначить"
- нажмите "ОК"
Это все взято из сообщения Jeff Atwood Google Search VS Macro, только что измененного для поиска в StackOverflow.