以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Wordvba设置行高字体  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185590)
--  作者：tld
--  发布时间：2023/3/3 17:41:00
--  Wordvba设置行高字体
老师好，设置Word文档 表1第一列 的第二行到最后一行 的字体 为黑体, 大小为 12 ， 将 表中的行高设置为固定列宽 , 行高为0.6    下面的代码是从Word vba 中转化来的, 但是不成功 请老师帮忙看看 , 谢谢!
\'-------------设置行高
    doc.Tables(1).Rows.HeightRule = 2
    doc.Tables(1).Rows.Height = CentimetersToPoints(0.6)
    \'----------设置字体
    doc.Range(doc.Tables(1).Cell(2, 1).Range.Start, doc.Tables(1).Cell(doc.Tables(1).rows.count, 1).Range.Start.End).select
    app.Selection.Font.Name = "黑宋"
    app.Selection.Font.Size = 12
--  作者：有点蓝
--  发布时间：2023/3/4 9:59:00
--  
行高好像只能逐行设置

    Dim t = Doc.Tables(1)
    t.Rows(2).Height = 100
    t.Range.Font.Size = 12