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

可以用代码控制word单元格和excel表的字体和字号吗？现希望表格高度不变，段落不变，只将文字和段落多的单元格判断后自动更改字号。

谢谢

谢谢！

Dim tm As String  = ProjectPath & "Attachments\人员信息.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\人员信息.doc" '指定目标文件
Dim wrt As New WordReport(Tables("简历"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表

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

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

此主题相关图片如下：捕获1.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.设置自动缩放不行，我这是个多段落的多行文本框，自动缩放只是将所有文字压缩为一行，没办法看。