Visual Studio 2010 で .cpp / .h ファイルを切り替えるマクロ

現在開いている .cpp または .h ファイルに対応する、拡張子を入れ替えた .h または .cpp ファイルをソリューションから探して開きます。

VS2012 からはマクロが使えなくなったらしいので今更ですが…。

    Sub SwitchCppH()
        Dim name1 As String
        Dim name2 As String
        name1 = ActiveDocument.Name.ToUpper
        If name1.EndsWith(".H") Then
            name2 = System.IO.Path.ChangeExtension(name1, ".CPP")
        ElseIf name1.EndsWith(".CPP") Then
            name2 = System.IO.Path.ChangeExtension(name1, ".H")
        End If
        If name2.Length > 0 Then
            DTE.Solution.FindProjectItem(name2).Open()
        End If
    End Sub