Foxtable(狐表)用户栏目专家坐堂 → Wordvba设置行高字体


  共有3966人关注过本帖树形打印复制链接

主题:Wordvba设置行高字体

帅哥哟,离线,有人找我吗?
tld
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
Wordvba设置行高字体  发帖心情 Post By:2023/3/3 17:41:00 [显示全部帖子]

老师好,设置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

 回到顶部