利用快捷鍵添加寫好的宏註釋

摘自：http://www.kaifazhe.com/programming/185355.html

爲了給維護人員給他人方便，.NET中的每個類庫文件少不了文件頭註釋，用“Ctrl+C”、“Ctrl+V”能達到目的，用快捷鍵也能更好的讓你達到你想要的目的。

如何創建文件頭註釋：

第一：打開VS，點擊“工具”——“宏”——“宏IDE(I)”，即：

            

第二：在宏編輯窗口中選擇“Samples”——“添加”——“添加新項”，即：

           

第三：出現添加新項，選擇“模塊”——“添加”，這裏可以更改名字，也可以不更改。即：

           

第四：然後你就可以在編寫有關文件頭的註釋信息了。代碼如下：

Sub DocumentFileHeader()

        Dim doc As Document
        Dim docName As String
        Dim companyName As String = "提高班九期"
        Dim authorName As String = "朱丹"
        Dim versionnumber = "1.1"

        ' 從程序中獲得文件的名字
        doc = DTE.ActiveDocument
        '獲得當前編輯類的名字
        docName = doc.Name
        ' 將添加焦點定位在文件首部
        DTE.ActiveDocument.Selection.StartOfDocument()

        ' 添加一個版權說明
        DTE.ActiveDocument.Selection.Text = "'******************************************************" '以String類型添加自己想要的符號、文字
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.text = "'作者：" + authorName
        DTE.ActiveDocument.Selection.NewLine() '添加一個空行
        DTE.ActiveDocument.Selection.Text = "'文件名：" + docName
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "'說明："
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "'創建日期：" + String.Format("{0:D}", Date.Now)
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.text = "'版本號：" + versionnumber
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "'*******************************************************"
        DTE.ActiveDocument.Selection.NewLine()

    End Sub

        千萬別忘了點擊保存，這樣，就利用宏寫好了文件頭註釋。那麼怎麼利用快捷鍵來調用寫好的註釋呢？

分配快捷鍵：

第一：回到VS中，點擊“工具”——“選項”，即：

            

       第二： 進行選項窗口後，點擊“鍵盤”，在“顯示命令包含”中找到你剛剛編寫的文件頭註釋文件，然後在“按快捷鍵”中，按你想給它的快捷鍵（不是輸入快捷鍵哦。。。），如果此時你的快捷鍵與已有使用對象，則在“快捷鍵當前使用對象中”項中給你提示。然後“分配”，最後“確定”，就結束操作了，即：

             

註釋效果：        

         這樣你就利用宏寫好了一個文件頭註釋，並給它分配了快捷鍵。這樣，只需你的一個快捷鍵就可以解決文件頭註釋問題了。註釋效果：