程序代码加行号及修改注释颜色为蓝色
2015-11-14 22:20
281 查看
在侯捷《word排版艺术》一书中有一个很实用的vba宏,可通过录制宏,打开vba代码窗口,然后添加如下代码:
Dim nLineNum '行号(数值)
Dim sLineNum As String '行号(文字)
Dim selRge As Range '用以记录整区块程序代码(多行)
Dim i '计数器
'以下变量用于“将注释改为蓝色”
Dim lineProgramRange As Range '单行程序代码范围
Dim commentRange As Range '注释范围
Dim TextLine As String '每一行程序代码(内容)
Dim ProgComment As String '每一行程序代码内的注释文字
Dim RgnStart As Long 'Start of a Range
Dim RgnEnd As Long 'End of a Range
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)) '补足三位数(前加0)
sLineNum = "0" + sLineNum
Next i
sLineNum = "#" & sLineNum '前加符号#
sLineNum = sLineNum + " " '前加空格
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
步骤如下:
选中代码后,点击这个宏就可以生成如下左边的代码行了。宏弄好后可以在工具栏弄一个按钮的,具体的弄法我忘了,可以在上述书中找。
相关文章推荐
- struts2中的validate()方法验证
- java源码分析08-LinkedList
- python学习笔记
- Java继承关系中类的初始化顺序
- Spring Boot应用基本配置说明
- 【Asphyre引擎】学习笔记(二)
- C-函数杂谈
- Java迭代法求所有八皇后问题的解
- C-复杂的声明的阅读
- C-指针数组与数组指针
- 什么是序列化,Java中序列化的实现
- C- 函数与指针
- Qt jsoncpp 对象拷贝、删除、函数调用 demo
- java判断多个点是否在同一直线上
- java问题:类的定义,对象的定义?
- C-字符串
- 500G JAVA视频网盘分享 (Jeecg社区)
- Django块标签if else 配合not and or的使用
- Java的IO
- JAVA Executor简介