介紹Word VBA中表格的常用操作包括：創建表格、設置表格樣式、行列的增刪、合并拆分單元格、獲取與修改單元格內容
在指定位置插入新建表格
Sub CreateTable() ' 設置表格的行數和列數 numRows = 3 numColumns = 4 ' 設置插入位置 ' 在當前選中的位置或光標處插入表格 Set insertRange = Selection.Range ' 在指定位置插入表格 Set myTable = ActiveDocument.Tables.Add(Range:=insertRange, NumRows:=numRows, NumColumns:=numColumns) End Sub
代碼說明：
設置表格的行數和列數
numRows = 3設置表格的行數為3
numColumns = 4設置表格的列數為4
設置插入位置：
將插入位置設置為文檔開頭Set insertRange = ActiveDocument.Range(0, 0)
ActiveDocument.Range(0, 0)表示從文檔的第0個字符位置開始到第0個字符位置結束，即文檔開頭
如果要在文檔的其他位置插入表格可以調整Range的起始和結束位置。例如：Set insertRange = ActiveDocument.Range(10, 10)在文檔的第10個字符位置插入表格。
在文檔的末尾插入表格Set insertRange = ActiveDocument.Content
在當前選中的位置/或光標處插入表格Set insertRange = Selection.Range
使用Style屬性設置文檔第一個表格樣式
Sub SelectAndStyleTable() ' 設置表格樣式 ' 確保Word中存在名為“網格型”的樣式，否則會引發錯誤 On Error Resume Next ActiveDocument.Tables(1).Style = "網格型" On Error GoTo 0End Sub
代碼說明：
On Error Resume Next忽略錯誤繼續執行代碼例如樣式名稱不存在的情況“網格型”表格樣式不存在時程序會報錯
ActiveDocument.Tables(1).Style = "網格型"嘗試將表格樣式設置為“網格型”
On Error GoTo 0恢復正常的錯誤處理
插入行：使用Rows.Add方法
刪除行：使用Rows.Delete方法
插入列：使用Columns.Add方法
刪除列：使用Columns.Delete方法
Sub RowsAndCol() ' 在第一個表格最后一行后插入一行 ActiveDocument.Tables(1).Rows.Add ' 刪除第一個表格第一行 ActiveDocument.Tables(1).Rows(1).Delete ' 在第一個表格最后一列后插入一列 ActiveDocument.Tables(1).Columns.Add ' 刪除第一個表格第一列 ActiveDocument.Tables(1).Columns(1).DeleteEnd Sub
合并單元格：使用Merge方法
拆分單元格：使用Split方法
Sub MergeTable() '合并第一個表格的第一行的前兩個單元格 With ActiveDocument.Tables(1).Rows(1).Cells .Item(1).Merge MergeTo:=.Item(2) End With '將第一個表格的第一個單元格拆分為2行1列 ActiveDocument.Tables(1).Cell(1, 1).Split numRows:=2, numColumns:=1End Sub
獲取/修改Word表格單元格內容
使用單元格的Range.Text屬性賦值來獲取或修改內容
'將第一個表格第一個單元格內容改為Hello
Sub ModifyFirstTableCell() ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Hello"End Sub
'顯示第一個表格第一個單元格內容Sub FirstTableCell() MsgBox ActiveDocument.Tables(1).Cell(1, 1).Range.Text End Sub
閱讀原文：原文鏈接
該文章在 2025/2/5 18:32:42 編輯過
400 186 1886
