主题：[求助可以用代码控制word表格和excel表的字体和字号吗？

 要用到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楼的代码

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

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

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

    doc.Saved = True

    app.visible = True

catch ex As exception

    msgbox(ex.message)

'    app.Quit

finally

    'app.Quit

End try

 还不行的话，例子发上来测试下。