Sub AddRegion()
DTE.ActiveDocument.Selection.Cut()
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "#region "
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "#endregion"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstColumn)
DTE.ActiveDocument.Selection.Paste()
DTE.ActiveDocument.Selection.NewLine()
End Sub
いろいろ使ってたけど、これが一番楽ちん
Regionする範囲を選択して、このマクロを実行してください。
私はCtrl + Shift + Alt + Rに登録しています。