Word VBA技术：设置文档中表格的格式
Word VBA技术：设置文档中表格的格式
fanjy
发布于 2023-02-24 20:24:34
发布于 2023-02-24 20:24:34
代码可运行
运行总次数：0
代码可运行
标签：Word VBA
在编辑Word文档时，经常会使用表格，也会设置表格格式，让表格看起来更美观。那么，在VBA中如何操作表格来设置其格式呢？下面介绍两段简单的代码，来学习使用代码初步设置表格的格式。
代码1：设置整个表格的格式
下面的代码设置文档中第一个表格的格式，分别设置其单元格宽度、背景色、字体和字号。
Sub ApplyTableFormat()
Dim cCell As Cell
Dim tblTable As Table
Set tblTable = ActiveDocument.Tables(1)
For Each cCell In tblTable.Range.Cells
With cCell
.Width = InchesToPoints(2)
.Shading.BackgroundPatternColorIndex = wdBlue
.Range.Font.Name = "微软雅黑"
.Range.Font.Size = 20
End With
Next cCell
End Sub代码2：设置表格中单个单元格的格式
下面的代码设置文档中第一个表格的第一单元格的宽度、背景色、字体和字号。
Sub ApplyTableFormat1()
Dim tblTable As Table
Set tblTable = ActiveDocument.Tables(1)
With tblTable.Cell(1, 1)
.Width = InchesToPoints(1.5)
.Shading.BackgroundPatternColor = wdColorBrown
.Range.Font.Name = "Arial"
.Range.Font.Size = 10
End With
End Sub这些代码都很基础，主要是为学习和应用Word VBA技术打开思路，有一些代码模板供参考和在此基础上进一步完善。
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2022-12-02，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
