主题：[求助]高手进！WORD套打模板中字体如何设置粗细

现在需要设置套打模板中，引用数据库的部分字体粗体，请问各位大侠，如何实现？

模板不能实现，你要先生成报表，然后再用下面的方法设置字体的样式

 

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    Dim gjzs As String = "Test|abc|test"
    Dim flag As Boolean = False
    For Each gjz As String In gjzs.split("|")
        app.ActiveWindow.Selection.WholeStory
        With app.ActiveWindow.Selection.Find
            .text = gjz
        End With
       
        Do While app.ActiveWindow.Selection.Find.Execute
            app.ActiveWindow.Selection.Range.HighlightColorIndex = 7
        Loop
    Next
   
    doc.saved = True
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try

谢谢版主达人

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    Dim gjzs As String = "Test|abc|test"
    Dim flag As Boolean = False
    For Each gjz As String In gjzs.split("|")
        app.ActiveWindow.Selection.WholeStory
        With app.ActiveWindow.Selection.Find
            .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

 

 app.ActiveWindow.Selection.Range.Font.Bold = True   '加粗
 app.ActiveWindow.Selection.Range.Font.ColorIndex = 3'颜色

。。。。。。

大红袍版主，能否介绍一下相关知识，比如：选择不同字体，字体加大。。。。

谢谢

Rg.Value = "Foxtable操控Excel全攻略"
With Rg.Font
    .Name = "黑体" '字体
    .Size = 20 '字号
    .Bold = True   '加粗
    .Italic = True '斜体
    .ColorIndex = 3'颜色
End With