Add User Initials to a block of selected text
If you have to add your username or initals tag to each change you make in code, this lets you select a block of text and add it to the end of each line.
Original Author: UstesGreenridge
Assumptions
add this code to the mnuHandler_Click
Side Effects
It doesn't delete any old comments that were there.
Code
'this event fires when the menu is clicked in the IDE
Private Sub MenuHandler_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
Dim MyPane As CodePane
Dim lngStartLine As Long
Dim lngEndLine As Long
Dim lngStartCol As Long
Dim lngEndCol As Long
Dim strLine As String
Dim tmpLine As String
Dim i As Integer
Dim LineLengths() As Integer
Dim intLongestLine As Integer
Dim intTotalLines As Integer
Dim intLinecount As Integer
Dim intDiff As Integer
If strUser = "" Then
strUser = "'"
strUser = strUser & InputBox("Enter User Initials.", "Block Initials")
strUser = strUser & " - " & Format(Now, "mm/dd/yy hh:mm")
End If
Set MyPane = VBInstance.ActiveCodePane
MyPane.GetSelection lngStartLine, lngStartCol, lngEndLine, lngEndCol
intTotalLines = lngEndLine - lngStartLine
ReDim LineLengths(intTotalLines)
intLinecount = 0
For i = lngStartLine To lngEndLine - 1
strLine = MyPane.CodeModule.Lines(i, 1)
If intLongestLine < Len(strLine) Then
LineLengths(intLinecount) = Len(strLine)
intLongestLine = LineLengths(intLinecount)
End If
intLinecount = intLinecount + 1
Next i
For i = lngStartLine To lngEndLine - 1
strLine = MyPane.CodeModule.Lines(i, 1)
tmpLine = strLine
If Trim(tmpLine) <> "" Then
intDiff = intLongestLine - Len(strLine)
MyPane.CodeModule.ReplaceLine i, strLine & Space(intDiff + 5) & strUser
End If
Next i
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.