写注释的宏,vs6.0和vs2003两个版本的
来源:互联网 发布:js对url编码 编辑:程序博客网 时间:2024/06/05 09:55
写注释的宏,vs6.0和vs2003两个版本的
一,vc6.0版本
'------------------------------------------------------------------------------
'FILE DESCRIPTION: New Macro File
'------------------------------------------------------------------------------
Sub filedescmacros()
'DESCRIPTION: A description was not provided.
'Begin Recording
ActiveDocument.Selection = "/"
ActiveDocument.Selection = "******************************************************************"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "*"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* Copyright (c) 2008, xxxxx有限公司"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* All rights reserved."
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "*"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 文件名称:" + ActiveDocument.Name
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 摘 要: "
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "*"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 当前版本:1.0"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 作 者:吴会然"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 完成日期:" + CStr(Date())
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "*"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 取代版本:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 原 作者:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 完成日期:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "*"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "*"
ActiveDocument.Selection = "*****************************************************************/"
ActiveDocument.Selection.LineUp dsMove, 10
'End Recording
End Sub
Sub funcdescmacros()
'DESCRIPTION: A description was not provided.
'Begin Recording
ActiveDocument.Selection = "/******************************************************************"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 函数介绍:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 输入参数:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 输出参数:"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "* 返回值 :"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = "*******************************************************************/"
ActiveDocument.Selection.LineUp dsMove, 4
'End Recording
End Sub
二,vs2003版本
Option Strict Off
Option Explicit Off
Imports EnvDTE
Imports System.Diagnostics
Public Module RecordingModule
Sub FileDescMacro()
DTE.ActiveDocument.Selection.Text = "/********************************************************************"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* Copyright (c) 2008, xxxxx有限公司"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* All rights reserved."
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 文件名称: " + DTE.ActiveDocument.Name
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 摘 要: "
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 当前版本: 1.0"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 作 者: 吴会然"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 完成日期: " + CStr(Now().Date)
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 取代版本: "
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 原 作者: "
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 完成日期: "
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*******************************************************************/"
DTE.ActiveDocument.Selection.LineUp(False, 11)
DTE.ActiveDocument.Selection.LineDown()
End Sub
Sub FuncDescMacro()
DTE.ActiveDocument.Selection.Text = "/*******************************************************************"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 函数介绍:"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 输入参数:"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 输出参数:"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "* 返回值 :"
DTE.ActiveDocument.Selection.NewLine()
DTE.ActiveDocument.Selection.Text = "*******************************************************************、"
DTE.ActiveDocument.Selection.DeleteLeft()
DTE.ActiveDocument.Selection.Text = "/"
DTE.ActiveDocument.Selection.LineUp(False, 4)
End Sub
End Module
- 写注释的宏,vs6.0和vs2003两个版本的
- 最近7天用VS2003.NET改写了以前的几个VS6下的程序
- VC6++和VS2003/2005下的DOXYGEN注释宏及其配置使用环境
- VS6.0和VS2005开发C++时,二者的编译器之间令人不习惯的不同
- vs2003之后的版本配置OpenGL
- 汇编求两个数的和---注释
- VS2003,VS2005,VS2008 低版本打开高版本的解决方案和工程文件
- VS2003,VS2005,VS2008 低版本打开高版本的解决方案和工程文件
- vs2003和vs2005的区别
- 运行VS6.0 Setup时报错的解决方案
- VS6.0关于网卡管理的大杂烩之一
- VS2003,VS2005,VS2008 低版本打开高版本的解决方案和工程文件(我还没试过)
- vs2003和vs2005的编译区别
- vs2003和vs2005的编译区别
- 解决VS2003和win7的兼容性问题
- 有关OpenCV1.0在VS2003上编译时需要编译一个DEBUG版本的方法
- 写Windows服务的几点心得(C#/VS2003)
- 两个编写说明和注释很好用的工具!
- 在console模式下实现密码的输入
- weblucene实现搜索引擎(续)
- span和div的区别
- 网络教程下载地址大全
- 理解 sql 中exists 子查询
- 写注释的宏,vs6.0和vs2003两个版本的
- 渗透(香港)劲舞团官方论坛
- Create the Link
- 蔡军生先生第二人生的源码分析(十四)人物角色的实现
- Java输入输出流
- 虚拟网络
- 用别人的标准要求别人
- 信息安全移动与集成研究资料共享:Office SharePoint Server 2007 规划和体系结构
- actionscript3 常用类库