要用到vba进行操作。

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

参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = doc.Tables(1)
   
    t.Cell(1, 2).Select
    With app.ActiveWindow.Selection.Font
        .Name = "黑体" \'字体
        .Size = 20 \'字号
        .Bold = True   \'加粗
        .Italic = True \'斜体
        .ColorIndex = 3\'颜色
    End With
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    \'app.Quit
End try

 你为什么不直接在模板那里先设置好？

 生成报表后，重新打开word文件，然后设置。

wrt.Build()

wrt.quit()

\'然后加上4楼的代码

主要是文字有时多有时少，文字多会撑爆表格，想要人工做个下拉框设定字号，再不行只能做多个字体大小不同的报表了。

以下代码可以运行，但是在关闭WORD后，WORD出现问题提示：

此主题相关图片如下：捕获.jpg

Dim tm As String  = ProjectPath & "Attachments\\人员信息.doc"    \'指定模板文件

Dim ffl As String = ProjectPath & "Reports\\人员信息.doc"        \'指定目标文件

Dim wrt As New WordReport(Tables("简历"),tm,ffl)                  \'定义一个WordReport

wrt.Build() \'将数据逐行生成报表

wrt.Quit    \'关闭WROD报表

Dim app As New MSWord.Application

try

    Dim fileName = ProjectPath & "Reports\\人员信息.doc"

    Dim doc = app.Documents.Open(fileName)

    Dim t = doc.Tables(1)

    t.Cell(10, 2).Select

    With app.ActiveWindow.Selection.Font

        .Size = 16 \'字号

    End With

    app.visible = True

catch ex As exception

    msgbox(ex.message)

\'    app.Quit

finally

    \'app.Quit

End try

1、单元不能设置格式【自动缩放】？可以根据单元格的宽度和高度缩放你的字号的；

2、上图的问题，去找到对应的dot文件，把其删除即可。