VSX - Macros and Add-ins

Code :To Create and Edit Macros?


Option Strict Off
Option Explicit Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics

Public Module RecordingModule


Sub MyNewMacro()
DTE.ActiveDocument.Selection.CharLeft(True)
DTE.ActiveDocument.Selection.Text = "6"
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.CharLeft(False, 15)
DTE.ActiveDocument.Selection.EndOfLine(True)
End Sub

Sub TestMacro(Optional ByVal MyTestParam As String = "")
DTE.ActiveDocument.Selection.WordRight(True, 3)
DTE.ActiveDocument.Selection.DeleteLeft()
DTE.ActiveDocument.Selection.Text = "Here is the Parameter
MyTestParam = " & MyTestParam & " "
End Sub
End Module

No comments:

Post a Comment