WM_COMMAND user message macro

It creates the name based on the message, so if it finds "WM_" in the beginning, this is stripped away and replaced with the word "On" just like all the other MFC messages are defined.

It uses another macro you have on your web page called ToggleHandCPP. It should probably be refined better so that it doesn't spew garbage when it is unable to find the header file.

BTW, you have to be in the CPP file to run the macro, if not a message box will pop up. (The macro can be extended to do this switch automatically of course.)

I've been using this for a while and it seems to work just fine. Please report any bugs if you find them.

Sub AddMessage()
'DESCRIPTION: Adds user messages to MFC project (WM_COMMAND)

	ext = ActiveDocument.Name
	pos = Instr(ext, ".")
	if pos > 0 then
		Do While pos <> 1
			ext = Mid(ext, pos, Len(ext) - pos + 1)
			pos = Instr(ext, ".")
		Loop
		ext = LCase(ext)
	end if
	If ext = ".cpp" Then
		msg = InputBox ("Write the message ID:")
		If msg <> "" Then
			'func = LCase(msg)
			If Left(msg, 3) = "WM_" Then
				func = "On" + Mid(msg,4,1) + Mid(LCase(msg),5)
			End If

			ActiveDocument.Selection.EndOfDocument
			ActiveDocument.Selection.FindText "AFX_MSG_MAP", dsMatchBackward
			ActiveDocument.Selection.FindText "AFX_MSG_MAP", dsMatchBackward
			ActiveDocument.Selection.CharRight dsMove, 2
			ActiveDocument.Selection.WordRight dsExtend
			ActiveDocument.Selection.Copy
			ActiveDocument.Selection.EndOfLine
			ActiveDocument.Selection.NewLine
			ActiveDocument.Selection = "ON_MESSAGE("+msg+", "+func+")"
			ActiveDocument.Selection.EndOfDocument
			ActiveDocument.Selection.NewLine
			ActiveDocument.Selection = "LONG "
			ActiveDocument.Selection.Paste
			ActiveDocument.Selection = "::"+func+"( UINT uParam, LONG lParam )"
			ActiveDocument.Selection.NewLine
			ActiveDocument.Selection = "{"
			ActiveDocument.Selection.NewLine
			ActiveDocument.Selection = "return 0;"
			ActiveDocument.Selection.NewLine
			ActiveDocument.Selection.CharLeft
			ActiveDocument.Selection = "}"
			ActiveDocument.Selection.NewLine
			ActiveDocument.Selection.LineUp
			ActiveDocument.Selection.LineUp
			ActiveDocument.Selection.LineUp
			ActiveDocument.Selection.EndOfLine
			ActiveDocument.Selection.NewLine
			ToggleHandCPP
			ActiveDocument.Selection.EndOfDocument
			ActiveDocument.Selection.FindText "AFX_MSG", dsMatchBackward
			ActiveDocument.Selection.LineUp
			ActiveDocument.Selection.EndOfLine
			ActiveDocument.Selection.NewLine
			ActiveDocument.Selection = "afx_msg LONG "+func+"( UINT uParam, LONG lParam );"
			ToggleHandCPP
		End If
	Else
		MsgBox "File is not a .cpp file"
	End If
End Sub