Open header file

Th following macro opens a header file included on the current line (just like
right-click on the header file name and choosing Open filename.h).

Sub OpenHeaderFile()
	DESCRIPTION: Opens a header file which is #included on the current line
	ActiveDocument.Selection.SelectLine
	LineText = ActiveDocument.Selection
	StartPos = Instr(LineText,””””) ‘find the #include “” style
	If (StartPos = 0) Then
		StartPos = Instr(LineText, “<") 'find the #include <> style
	End If
	StartPos = StartPos + 1 ‘move to the start of the include file
	LineText = Mid(LineText,StartPos)
	EndPos = Instr(LineText,”.h”)’ find the .h
	EndPos = EndPos + 1 ‘move to the end of the include file
	FileName = Mid(LineText,1,EndPos)
	PathName = ActiveDocument.Path + “”
	ActiveDocument.Selection.EndOfLine ‘remove selected stuff
	FullFileName = PathName+FileName
	on error resume next
	Documents.Open FullFileName
End Sub