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

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

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