报表里【】里颜色变化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表里【】里颜色变化

共有2596人关注过本帖树形打印复制链接主题：报表里【】里颜色变化

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/9 17:14:00 [显示全部帖子]

参考

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/9 17:15:00 [显示全部帖子]

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

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/9 18:11:00 [显示全部帖子]

以下是引用bootes29在2017/7/9 17:31:00的发言：
感谢老师，学习下先，不是excel格式，我是按照word 生成报表，生成的表。

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/9 18:15:00 [显示全部帖子]

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

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