GlobStudio

以前发表在CSDN Blog中的，今天用到转发此地。

http://blog.csdn.net/wuhuiran/archive/2008/05/10/2427419.aspx

一，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

阅读全文…