这篇博客介绍了一个使用VBA实现VB.NET代码高亮的方法。通过在Normal.dotm中新建模块，定义isKeyword、isSpecial、isOperator和isType等函数来判断关键字、特殊字符、类型和操作符，并在SyntaxHighlight子程序中应用这些函数，改变代码的颜色和样式，实现了代码的高亮显示。此外，还包含了设置行号的功能。
参考http://blog.youkuaiyun.com/woohello/article/details/7621651，向原作者致敬。更改了部分vba代码，适用于vbnet，修改不全，仅常用的。
保存到Normal.dotm里，新建个模块：
'script to high light code In document
Private Function isKeyword(w) As Boolean
Dim keys As New Collection
With keys
.Add " If": .Add "Else": .Add "Switch":.Add "Case": .Add "Default": .Add "Break"
.Add "Goto": .Add "Return": .Add "For":.Add "While": .Add "Do": .Add "Continue"
.Add "As": .Add "SizeOf": .Add "NULL":.Add "New": .Add "Delete": .Add "Throw"
.Add "Try": .Add "Catch": .Add "Each":.Add "Operator": .Add "Class": .Add "Me"
.Add "Ctype": .Add "Select": .Add "Case":.Add "Continue": .Add "Sub": .Add "Function"
.Add "End": .Add "Imports": .Add "Loop":.Add "GetType": .Add "And": .Add "AndAlso"
.Add "Or": .Add "OrElse": .Add "Not": .Add"Nothing": .Add "True": .Add "False"
.Add "Then": .Add "Else": .Add "Exit"
End With
isKeyword = isSpecial(w, keys)
End Function
Private Function isSpecial(ByVal w AsString, ByRef col As Collection) As Boolean
For Each i In col
&n
最低0.47元/天 解锁文章
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
