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

可以用代码控制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

 

谢谢！

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文件，然后设置。

 

wrt.Build()

wrt.quit()

'然后加上4楼的代码

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

以下代码可以运行，但是在关闭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、单元不能设置格式【自动缩放】？可以根据单元格的宽度和高度缩放你的字号的；

 

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

1.设置自动缩放不行，我这是个多段落的多行文本框，自动缩放只是将所有文字压缩为一行，没办法看。