用vba写的自动添加源文件的宏，可以用来方便添加c++源文件的头注释

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics

Public Module Module1

    Public Sub AddClassComment()

        '定义选择区域

        Dim DocSel As EnvDTE.TextSelection

        Dim tmpStrArr As String()

        '初始化选择区域是当前文档的选择

        DocSel = DTE.ActiveDocument.Selection

        '选择区域移动到文档的开头

        DocSel.StartOfDocument()

        DocSel.Text = "/*******************************************************************"

        DocSel.NewLine()

        DocSel.Text = "* Copyright (C) abc Corporation"

        DocSel.NewLine()

        DocSel.Text = "* All rights reserved."

        DocSel.NewLine()

        DocSel.Text = "*"

        DocSel.NewLine()

        DocSel.Text = "*Author:   zmy (