FrontEndExecute[
FrontEnd`AddMenuCommands[
"InsertSplitBreak", {MenuItem["Module[{var},..]",
FrontEndExecute[Block[{nb = SelectedNotebook[], expr},
expr = NotebookRead[SelectedNotebook[]];
If[expr === {}, expr = ""];
NotebookWrite[nb, RowBox[{"Module[{var},", expr, "]"}]];
SelectionMove[nb, Previous, Expression];
SelectionMove[nb, Next, Characters, StringLength["Module[{var"]];
SelectionMove[nb, All, Word];
]], MenuKey["m", Modifiers -> {"Control", "Command"}],