Here is one to open the stdafx.h of the current project.
Sub stdafx()
‘DESCRIPTION: Opens the stdafx.h file of the current project.proj_path = ActiveProject.fullname
ext = “”
pos = len (proj_path)
Do While ext <> “”
ext = Mid(proj_path, pos, 1)
pos = pos -1
Loop
proj_dir = left(proj_path, pos+1) & “stdafx.h”
documents.open proj_dir
End Sub
Something else I found a pain was having to change from the keyboard to
the mouse because the MDI window wasn’t in the correct place or the
wrong size. I wrote the following one-liners and associated them with
the numeric keypad arrows and ctrl and alt to move/resize the windows.
ie Ctrl + Alt and 6 to widen the window. Its not the code more the idea
I find it relieves RSI type strain when using the mouse to often.
Sub WidenWindow()
ActiveWindow.Width = ActiveWindow.Width + 100
End SubSub ShrinkWindow()
ActiveWindow.Width = ActiveWindow.Width – 100
End SubSub MoveWindowLeft()
ActiveWindow.Left = ActiveWindow.Left -30
End SubSub MoveWindowRight()
‘DESCRIPTION: Guess
ActiveWindow.Left = ActiveWindow.Left +30
End SubSub MoveWindowUp()
‘DESCRIPTION: Hmmm… I wonder what this does
ActiveWindow.Top = ActiveWindow.Top -30
End SubSub MoveWindowDown()
ActiveWindow.Top = ActiveWindow.Top +30
End SubSub IncreaseWindowHeight()
ActiveWindow.Height = ActiveWindow.Height +30
End SubSub DecreaseWindowHeight()
ActiveWindow.Height = ActiveWindow.Height -30
End SubSub MoveNW()
ActiveWindow.Left = 0
ActiveWindow.Top = 0
End Sub