visual-studiovisual-studio-2008

Matching tag in HTML keyboard shortcut


Is there a shortcut in Visual Studio (2008) that will allow me to jump to matching HTML tag... as CTRL+] does for matching braces when you are in code view?

Example:

<table>
  <tr>
    <td>
    </td>
  </tr>
</table|>

Cursor is on closing table tag and I would like to press something like CTRL+] to jump to opening table tag.

Any ideas?


Solution

  • Ok here is the answer as macro which i've built which does it (toggle ) including go to focus :

    Here is the demo :

    enter image description here

    And here is the code , enjoy !

    Imports System
    Imports EnvDTE
    Imports EnvDTE80
    Imports EnvDTE90
    Imports EnvDTE90a
    Imports EnvDTE100
    Imports System.Diagnostics
    Imports System.Windows.Forms
    
    Public Module Module2
        Sub beginToEnd()
    
            'Place cursor somewhere in beginning tag, run macro, to select from beginning to End Tag
    
            DTE.ActiveDocument.Selection.SelectLine()
            Dim objSel As TextSelection = DTE.ActiveDocument.Selection
            Dim topPoint As TextPoint = objSel.TopPoint
            Dim lTopLine As Long = topPoint.Line
            objSel.GotoLine(lTopLine, False)
            '  DTE.ActiveDocument.Selection.StartOfLine()
            DTE.ActiveDocument.Selection.SelectLine()
            Dim line1 As String = DTE.ActiveDocument.Selection.Text()
            If InStr(line1, "</") Then
    
                ' MsgBox(line1)
                DTE.ExecuteCommand("Edit.ToggleOutliningExpansion")
                DTE.ActiveDocument.Selection.EndOfLine()
                DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText, True)
                objSel.GotoLine(lTopLine, False)
                DTE.ExecuteCommand("Edit.ToggleOutliningExpansion")
                DTE.ExecuteCommand("Edit.ToggleOutliningExpansion")
    
    
            Else
    
                DTE.ExecuteCommand("Edit.ToggleOutliningExpansion")
                DTE.ActiveDocument.Selection.EndOfLine(False)
                DTE.ExecuteCommand("Edit.ToggleOutliningExpansion")
    
            End If
            DTE.ActiveDocument.Selection.SelectLine()
            Dim line2 As String = DTE.ActiveDocument.Selection.Text()
            Dim objSel3 As TextSelection = DTE.ActiveDocument.Selection
            Dim topPoint3 As TextPoint = objSel3.TopPoint
            Dim lTopLine3 As Long = topPoint3.Line
            objSel.GotoLine(lTopLine3, False)
            DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText, False)
    
    
        End Sub
    
    
    
    End Module