SourceSafe Keyword Expansion Template

We use Visual SourceSafe’s keyword expansion. Each of our project’s
source files has (or should if we remember) the following header when
we add it to source control.

// TEST.CPP : implementation file
//
/* $Log: /TEST/TEST.CPP $
*/

This macro inserts the template into .H and .CPP files.

Sub AddSSHeader()
‘DESCRIPTION: Insert the source safe keyword expansion comments at the top of source file
 strName = UCase(ActiveDocument.Name)
 pos = Instr(strName, “.”)
 if (pos < 1) then
  Exit Sub
 end if

 strExt = Mid(strName, pos)

 if (strExt = ".CPP") then
  strDesc = "implementation file"
 else
  if (strExt = ".H") then
   strDesc = "header file"
  else
   exit sub
  end if
 end if

 ActiveDocument.Selection.StartOfDocument

 ' Check for existing keyword expansion
 for i = 1 to 20
  ActiveDocument.Selection.SelectLine

 if Instr(ActiveDocument.Selection, "/* $Log:") > 0 then
  MsgBox “File already has keyword expansion.”
  exit sub
 end if
  ActiveDocument.Selection.LineDown
 next
 strFullName = ActiveDocument.FullName
 pos = Instr(strFullName, “:”)
 if (pos > 0) then
  strFullName = Mid(strFullName, pos + 1)
 end if
 ActiveDocument.Selection.StartOfDocument
 ActiveDocument.Selection = “// ” + strName + ” : ” + strDesc + vbCrLf
 ActiveDocument.Selection = “//” + vbCrLf
 ActiveDocument.Selection = “/* $Log: ” + UCase(Replace(strFullName,
 “”, “/”)) + ” $” + vbCrLf
 ActiveDocument.Selection = “*/” + vbCrLf + vbCrLf
end sub

Date Last Updated: February 3, 1999