Word VBA技术：设置文档中表格的格式

标签：Word VBA

在编辑Word文档时，经常会使用表格，也会设置表格格式，让表格看起来更美观。那么，在VBA中如何操作表格来设置其格式呢？下面介绍两段简单的代码，来学习使用代码初步设置表格的格式。

代码1：设置整个表格的格式

下面的代码设置文档中第一个表格的格式，分别设置其单元格宽度、背景色、字体和字号。

代码语言：javascript复制

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：设置表格中单个单元格的格式

下面的代码设置文档中第一个表格的第一单元格的宽度、背景色、字体和字号。

代码语言：javascript复制

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技术打开思路，有一些代码模板供参考和在此基础上进一步完善。

vba

0 人点赞