参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=63410&skin=0

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=94271&skin=0

如果是excel报表，生成后，修改对应字符的颜色。参考

http://www.foxtable.com/webhelp/scr/2121.htm

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82745&skin=0

具体代码，不会做上传实例。

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\\test.doc")
    Dim gjzs As String = "\\[*\\]"
    Dim flag As Boolean = False
    For Each gjz As String In gjzs.split("|")
       
        app.ActiveWindow.Selection.WholeStory
        With app.ActiveWindow.Selection.Find
            .MatchWildcards = True
            .text = gjz
        End With
       
        Do While app.ActiveWindow.Selection.Find.Execute
            app.ActiveWindow.Selection.Range.Font.Bold = True   \'加粗           

            app.ActiveWindow.Selection.Range.Font.ColorIndex = 3\'颜色
        Loop
    Next
   
    doc.saved = True
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try