Writing macros over the past few days is very interesting. If you want to write a document annotation, you can write it into maceos, which is much faster, Sub annotation () Sub Annotation ()
DTE. activedocument. selection. Text = " //**************************"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Name :"
DTE. activedocument. selection. Text = DTE. activedocument. projectitem (). Document. Name (). substring ( 0 , DTE. activedocument. projectitem (). Document. Name (). Length - 3 )
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Version: v1.00"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Copyright: Star (Hangzhou) network Co., Ltd"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Program Design: wangyj"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Development Date :"
DTE. activedocument. selection. Text = System. datetime. Now. tostring ()
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Modifier :"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Modification date :"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " //*************************"
End sub
Sub modify () Sub Modify ()
DTE. activedocument. selection. Text = " *************"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Purpose :"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Modifier: wangyj"
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " // * Modification date :"
DTE. activedocument. selection. Text = System. datetime. Now. tostring ()
DTE. activedocument. selection. newline ()
DTE. activedocument. selection. Text = " //***********************************"
End sub
However, what is a bit bad is that the function is not prompted, and the language is the VB syntax.