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

  • 相关阅读:
    [转载]Linux 线程实现机制分析
    Linux命令学习总结:cp命令
    ORA-01012: not logged on
    TNS-12540: TNS:internal limit restriction exceeded
    ORACLE临时表空间总结
    ORACLE回收站机制介绍
    SQL Server 2008 R2 Service Pack 3 已经发布
    python中的单下划线和双下划线意义和作用
    redis基本命令的演示:
    redis百度百科和维基百科知识总结:
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/2114419.html
Copyright © 2011-2022 走看看