VBA之四----给程序自动加行号

Sub 程序自动加行号()
    Dim nLineNum
    Dim sLindNum As String
    Dim selRge As Range
   
    '以下变量用于"将注释改为蓝色"
    Dim lineProgramRange As Range
    Dim commentRange As Range     '注释范围
    Dim TextLine As String        '每一行程序代码(内容)
    Dim ProgComment As String     '每一行程序代码内的注释文字
    Dim RgnStart As Long
    Dim RgnEnd As Long

    Set selRge=Selection.Range        '首先记录Selection
    For nLineNum=1 to selRge.Paragraphs.Count   '针对每个段落
        sLineNum=str(nLineNum)     '行号转为文字
        sLineNum=LTrim(sLineNum)   '去除字符串开头和结尾的空格
        For i=1 to  (3-Len(sLineNum))       
            sLineNum="0"+sLineNum
        Next i
        sLineNum="#" & sLineNum
        sLineNum=sLinNum+" "
        selRge.Paragraphs(nLineNum).Range.InsertBefore(sLineNum)

        '将注释改为蓝色
        Set lineProgramRange=selRge.Paragraphs(nLineNum).Range
        TextLine=lineProgramRange.Text     '取得整行文字
        CharPos=InStr(1,TextLine,Chr(39))     '寻找注释起始点

        If CharPos<>0 Then
            ProgComment=Mid(TextLine,CharPos+1)     '切割出注释文字
            RgnStart=lineProgramRange.Start
            RgnEnd=lineProgramRange.End
            lineProgramRange.SetRange Start:=RgnStart+CharPos,
                                        End:=RgnEnd
            lineProgramRange.Select
            Selection.Font.ColorIndex=wdBlue        '令注释为蓝色
        End If
    Next nLineNum
End Sub