Word VBA语法高亮VBNET

参考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 &#