Word VBA技術(shù)：設(shè)置文檔中表格的格式

hercules028 2022-12-02 發(fā)布于四川

展開全文

excelperfect

標(biāo)簽：Word VBA

在編輯Word文檔時，經(jīng)常會使用表格，也會設(shè)置表格格式，讓表格看起來更美觀。那么，在VBA中如何操作表格來設(shè)置其格式呢？下面介紹兩段簡單的代碼，來學(xué)習(xí)使用代碼初步設(shè)置表格的格式。

代碼1：設(shè)置整個表格的格式

下面的代碼設(shè)置文檔中第一個表格的格式，分別設(shè)置其單元格寬度、背景色、字體和字號。

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 cCellEnd Sub

代碼2：設(shè)置表格中單個單元格的格式

下面的代碼設(shè)置文檔中第一個表格的第一單元格的寬度、背景色、字體和字號。

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 WithEnd Sub