VC6的宏：给文件添加CVS的$id$和$Log$

由于手上的一个项目是新接的，虽然已经用了很久的CVS，可是在原先的文件中缺少我认为很方便的$id$和$Log$.这个工程有40多个文件，要给它们一个一个加不是我所愿，我现在是修改一个文件就加一个。可是手工添加也是一个麻烦事情，为什么不让工具做这样的事情呢？我写了一个宏，绑定一个快捷键，就解决问题了。宏是如下定义的：

Sub AddCvsInfo()
'DESCRIPTION: 添加$Id$到文件头去，添加$Log$到文件尾去

' 移动到文件开始去
ActiveDocument.Selection.StartOfDocument
ActiveDocument.Selection.NewLine
ActiveDocument.Selection.StartOfDocument

' 添加$id$
ActiveDocument.Selection = "/* $Id$ " & vbCrlf & " */"

' 移动到文件结尾去
ActiveDocument.Selection.EndOfDocument
ActiveDocument.Selection.NewLine


' 添加$Log$
sOut = "/* Log Info " & vbCrlf & " *" & vbCrlf & " * $Log$ " & vbCrlf & "*/"
ActiveDocument.Selection.NewLine
ActiveDocument.Selection = sOut

End Sub