xmlヘッダ（コメント）以外を定義に縮小する

VBだと、定義に縮小しても、summary部分は表示されるけど
C#だと、表示されない。コレ、すこぶる不便。

ネットを探しまくったけど、解決方法がなかったのでマクロを自作。
もっといいマクロの組み方あると思うけど、プロトタイプ１号ということで。

Public Module Custom
    '****************************************************
    ' xmlヘッダを全て開く
    '****************************************************
    Sub OpenXmlComment()

        ' 定義に縮小
        DTE.ExecuteCommand("Edit.CollapsetoDefinitions")

        ' 1行目にジャンプ
        DTE.ActiveDocument.Selection.GotoLine(1)

        ' <summary>を検索
        DTE.Windows.Item("{CF2DDC32-8CAD-11D2-9302-005345000000}").Activate() '検索と置換
        DTE.Find.FindWhat = "<summary>"
        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument
        DTE.Find.MatchCase = False
        DTE.Find.MatchWholeWord = False
        DTE.Find.Backwards = False
        DTE.Find.MatchInHiddenText = True
        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral
        DTE.Find.Action = vsFindAction.vsFindActionFind

        Do
            ' 検索実行
            DTE.Find.Execute()
            ' ステータスバーに以下のメッセージが表示されれば終了
            If (DTE.StatusBar.Text = "ドキュメントの終わりまで検索しました。") Then
                Exit Do
            End If
        Loop
        ' 検索ウィンドウを閉じる
        DTE.Windows.Item("{CF2DDC32-8CAD-11D2-9302-005345000000}").Close()
    End Sub
End Module

プロトタイプバージョン２

　　'****************************************************
    ' xmlヘッダを全て開く
    '****************************************************
    Sub OpenXmlComment()

        ' 定義に縮小
        DTE.ExecuteCommand("Edit.CollapsetoDefinitions")

        ' 現在行を取得
        Dim selection As TextSelection = DTE.ActiveDocument.Selection
        Dim nowLine As Integer = selection.ActivePoint.Line

        ' 1行目にジャンプ
        selection.GotoLine(1)

        ' <summary>を検索
        DTE.Windows.Item("{CF2DDC32-8CAD-11D2-9302-005345000000}").Visible = False
        'DTE.Windows.Item("{CF2DDC32-8CAD-11D2-9302-005345000000}").Activate() '検索と置換
        DTE.Find.FindWhat = "<summary>"
        DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument
        DTE.Find.MatchCase = False
        DTE.Find.MatchWholeWord = False
        DTE.Find.Backwards = False
        DTE.Find.MatchInHiddenText = True
        DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral

        DTE.Find.Action = vsFindAction.vsFindActionFind

        Do
            ' 検索実行
            DTE.Find.Execute()
            ' ステータスバーに以下のメッセージが表示されれば終了
            If (DTE.StatusBar.Text = "ドキュメントの終わりまで検索しました。") Then
                Exit Do
            End If
        Loop
        ' 検索ウィンドウを閉じる
        DTE.Windows.Item("{CF2DDC32-8CAD-11D2-9302-005345000000}").Close()

        ' マクロを実行した行にジャンプ
        DTE.ActiveDocument.Selection.GotoLine(nowLine)
    End Sub