macro

Sub BuildPropertyFromPrivate()
DTE.ActiveDocument.Selection.EndOfLine(True)
DTE.ActiveDocument.Selection.Copy()
DTE.ActiveDocument.Selection.EndOfLine()
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.Paste()
DTE.ActiveDocument.Selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)
DTE.ActiveDocument.Selection.WordRight(True)
DTE.ActiveDocument.Selection.Text = "Public Property "
DTE.ActiveDocument.Selection.Delete()
DTE.ActiveDocument.Selection.EndOfLine()
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.Text = "End Property"
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp(False, 2)
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.Text = "Get"
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.Text = "End Get"
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.Text = "Set (Value as "
DTE.ActiveDocument.Selection.Paste()
DTE.ActiveDocument.Selection.WordLeft(False, 4)
DTE.ActiveDocument.Selection.WordRight(True, 3)
DTE.ActiveDocument.Selection.Delete()
DTE.ActiveDocument.Selection.EndOfLine()
DTE.ActiveDocument.Selection.Text = ")"
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.Text = "End Set"
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.LineUp(False, 3)
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.Text = "return"
DTE.ActiveDocument.Selection.Text = " "
DTE.ActiveDocument.Selection.Paste()
DTE.ActiveDocument.Selection.WordLeft(False, 3)
DTE.ActiveDocument.Selection.WordLeft(True)
DTE.ActiveDocument.Selection.Delete()
DTE.ActiveDocument.Selection.WordRight()
DTE.ActiveDocument.Selection.WordRight(True, 2)
DTE.ActiveDocument.Selection.Delete()
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.LineDown(False, 2)
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.Paste()
DTE.ActiveDocument.Selection.WordLeft(False, 3)
DTE.ActiveDocument.Selection.WordLeft(True)
DTE.ActiveDocument.Selection.Delete()
DTE.ActiveDocument.Selection.WordRight()
DTE.ActiveDocument.Selection.WordRight(True, 2)
DTE.ActiveDocument.Selection.Text = "= Value"
DTE.ActiveDocument.Selection.CharRight()
DTE.ActiveDocument.Selection.LineDown(False, 2)
End Sub
End Module