专家坐堂-[求助]word报表套打时，如何设置部分字体为黑体？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'\'\'

Dim tm As String = ProjectPath & "Attachments\\议题落实情况汇报.doc"

Dim fl As String = ProjectPath & "党组议题汇报\\议题落实情况汇报.doc"

Dim wrt As New WordReport(Tables("党组议题"),tm,fl) \'定义一个WordReport

Dim count As Integer = 0

For Each r As Row In Tables("党组议题").Rows

If r.IsNull("项目序号") = False Then

count += r("项目序号").Length/2

End If

wrt.Replace("[计数]",count) \'Tables("政府会议_任免").Compute("Count(姓名)")) \'用代码计算出总的销售数量并替换模板中的合计

Dim str1 As String = ""

Dim ls As List(Of String()) = DataTables("党组议题").GetValues("项目序号|研究事项|责任单位|落实情况|具体措施", Tables("党组议题").Filter,"序号")

For i As Integer = 0 To ls.Count - 1

Dim s() As String = ls(i)

Dim flag As String = vbcrlf & ""

If s(0) > "" Then

str1 &= s(0) & s(1) & "。" & "(责任单位：" & s(2) & ")" & flag &"落实情况："& s(3) &"。"& s(4) &"。"& flag

End If

wrt.Replace("[列表]", str1)

wrt.Build() \'生成报表

wrt.Show() \'显示报表

其中，标红的字段需设置为黑体。如何设置，谢谢。