参考http://blog.csdn.net/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 &#