VBA之二

语法高亮可使用VBA中的查找替换功能，如对于Delphi可先查找到关键字，然后将其设为蓝色即可，具体代码为：

Sub Replace1()

　　Dim i As Integer

　　Dim arr(15) as String

　　arr(0)="type"  :arr(1)="class"   :  arr(2) ="unit"  :   arr(3)="begin"  :   arr(4)="end"   :  arr(5)="if"  :  arr(6)="else"

　　arr(7)="const"  :arr(8)="var"   :  arr(9) ="procedure"  :   arr(10)="function"  :   arr(11)="then"   :  arr(12)="nil"  :  arr(13)="to"  :  arr(14)="while"　　

　　for i=LBound(arr) to UBound(arr)

　　　　Selection.Find.ClearFormatting

　　　   Selection.Find.Replacement.ClearFormatting

　　　　with Selection.Find

　　　　　　.Text=arr(i)
            .Replacement.Font.Color=wdColorBlue
            .Replacement.Text=arr(i)
            .Forword=True
            .Wrap=wdFindContinue
            .Format=True
            .MatchCase=False
            .MatchByte=True
            .MatchWildCards=False
            .MatchSoundsLike=False
            .MatchAllWordForms=False

　　　　End With　
        Selections.Find.Execute Replace:=wdReplaceAll

　　nexit i

End Sub

也可以先复制到NotePad++中，再打开菜单NppExport->Copy HTML to ClipBoard,再打开word并粘贴即可

具体步骤见http://blog.163.com/rongting_chen/blog/static/16490684420113247107144/