Open StdAfx.h and window size/move

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 Sub
Sub ShrinkWindow()
ActiveWindow.Width = ActiveWindow.Width – 100
End Sub
Sub MoveWindowLeft()
ActiveWindow.Left = ActiveWindow.Left -30
End Sub
Sub MoveWindowRight()
‘DESCRIPTION: Guess
ActiveWindow.Left = ActiveWindow.Left +30
End Sub
Sub MoveWindowUp()
‘DESCRIPTION: Hmmm… I wonder what this does
ActiveWindow.Top = ActiveWindow.Top -30
End Sub
Sub MoveWindowDown()
ActiveWindow.Top = ActiveWindow.Top +30
End Sub
Sub IncreaseWindowHeight()
ActiveWindow.Height = ActiveWindow.Height +30
End Sub
Sub DecreaseWindowHeight()
ActiveWindow.Height = ActiveWindow.Height -30
End Sub
Sub MoveNW()
ActiveWindow.Left = 0
ActiveWindow.Top = 0
End Sub