Macro To Switch Between Header and Cpp File

This is a simple macro to allow you to switch between the header and cpp file.


Sub Jump()
'////////////////////////////////////////////
'Nooruddin Kapasi 1998.
'DESCRIPTION: Switch Between Header and cpp
'////////////////////////////////////////////
Dim myDocument
Dim a
Dim b
Dim Flag
Dim Flag1
Flag1 = 0
Flag = 1
a = ActiveDocument.FullName
tmp = InStr(a, ".cpp")
If tmp Then
        b = Left(a, Len(a) - 3) + "h"
        Flag1 = 1
Else
tmp = InStr(a, ".h")
If tmp Then
        b = Left(a, Len(a) - 1) + "cpp"
        Flag1 = 1
End If
End If
For Each myDocument In Application.Documents
    If myDocument.FullName = b Then
        myDocument.Active = True
        Flag = 0
        Exit For
        End If
Next
If Flag And Flag1 Then
        Documents.Open b, "Text"
End If
End Sub



Comments

Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Who can you trust? Learn from the IBM X-Force team in this new quarterly report how the Internet of Things and IP reputation tracking are transforming the security landscape.

  • Improving data backup and recovery continues to be a top priority among senior IT decision makers, as highlighted in a 2015 IT Spending Intentions survey conducted by ESG. Organizations plan to invest in modernizing data protection, including the cloud. Learn the key considerations when evaluating a cloud-extended data protection solution that provides security, efficiency, effectiveness, and risk mitigation.

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date