Sub Switch()
'////////////////////////////////////////////
'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( 1 , a, ".cpp" ,  1 )
If tmp Then
        b = Left(a, Len(a) -  3 ) +  "h" 
        Flag1 =  1 
Else
tmp=instr( 1 , a, ".h" ,  1 )
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
    Dim FileSystem
    Set FileSystem = CreateObject(  "Scripting.FileSystemObject"  )
    If FileSystem.FileExists( b ) Then
        Documents.Open b,  "Text" 
    else
		' Bev 2003
		' Try to open it in /source /include subfolders
		tmp = InStrRev( b,  "\" , - 1 ,  1  )
		If tmp Then
			Dim file, path, dest
			file = Right( b, Len(b) - tmp )
			path = Left( b, tmp -  1  )

			tmp = InStrRev( path,  "\" , - 1 ,  1  )
			If tmp Then
				dest = Right( path, Len(path ) - tmp )
				path = Left( path, tmp -  1  )

				If LCase(dest) =  "source"  OR LCase(dest) =  "include"  Then
					If LCase(dest) =  "source"  Then
						dest =  "include" 
					Else
						dest =  "source" 
					End If
					b = path +  "\"  + dest +  "\"  + file
					If FileSystem.FileExists( b ) Then
						Documents.Open b,  "Text" 
					End If
				End If
			End If
		End If
    End If
    Set FileSystem = Nothing
End If

End Sub

Sub Comment()
'DESCRIPTION: Comment / uncomment macro
	CommentBlock ()
End Sub

Sub CommentBlock ()
'DESCRIPTION: Comments or uncomments a selected block of text.
	Dim win
	set win = ActiveWindow
	if win.type <>  "Text"  Then
	  MsgBox  "This macro can only be run when a text editor window is active." 
	else
		If Left( ActiveDocument.Selection,  2  ) =  "//"  or Left( ActiveDocument.Selection,  2  ) =  "/*" Then
			UncommentBlock()
		Else			
			If InStr( ActiveDocument.Selection, vbCr ) > 0 then
				ActiveDocument.Selection.ReplaceText "^", "//", dsMatchRegExp
			Else
				ActiveDocument.Selection = "/* " + ActiveDocument.Selection + " */ "
			End If
		End If
	End If
End Sub

Sub UnCommentBlock ()
'DESCRIPTION: Uncomments a selected block of text.
  Dim win
  set win = ActiveWindow
  if win.type <>  "Text"  Then
	MsgBox  "This macro can only be run when a text editor window is active." 
  else
	ActiveDocument.Selection.ReplaceText  "\/\* " ,  "", dsMatchRegExp
	ActiveDocument.Selection.ReplaceText " \*\/ ", "  ", dsMatchRegExp
	ActiveDocument.Selection.ReplaceText " ^// ", " ", dsMatchRegExp
  End If
End Sub