zoukankan      html  css  js  c++  java
  • 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

  • 相关阅读:
    音乐
    脚本注释的作用
    JavaScript状态栏冒泡
    JavaScript动态显示时间
    正则表达式
    JavaScript数组的最大长度
    加密(编码)web.config中的信息(如:连接字符串)
    JavaScript实现EMAIL功能
    JavaScript检测分辨率
    JavaScript如何给网页滚动条加上颜色?
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/2114419.html
Copyright © 2011-2022 走看看