word vba 操作表格，設(shè)置表格的單元格（拆分合并單元格）

jeanwa 2023-02-21 發(fā)布于福建

展開全文

設(shè)置單元格的邊距和間距、設(shè)置合并單元格合拆分單元格。

一、單元格的邊距和間距

Sub 設(shè)置單元格邊距()
  With ActiveDocument.Tables(1)
'    返回或設(shè)置表格中所有單元格的內(nèi)容的
'    上方、下方、左方、右方 要增加的間距（以磅為單位）
    .TopPadding = CentimetersToPoints(0)
    .BottomPadding = CentimetersToPoints(0)
    .LeftPadding = CentimetersToPoints(0.2)
    .RightPadding = CentimetersToPoints(0.2)

'    返回或設(shè)置表格中單元格的間距（以磅為單位）?？勺x寫 Single 類型。
'    一般不做設(shè)置 不勾選
'    .Spacing = CentimetersToPoints(0.1)
    .Spacing = 0
  
'    對指定表格 允許斷頁
    .AllowPageBreaks = True
    
'    允許自動重調(diào)尺寸
    .AllowAutoFit = True
  End With
End Sub

二、單元的合并和拆分

1、合并單元格

Sub 合并單元格()
  '選中單元格range('a1:a2')進(jìn)行合并
  Dim rng As Range
  '定義要合并的單元格區(qū)域
  Set rng = ActiveDocument.Range(ActiveDocument.Tables(1).Cell(1, 1).Range.Start, _
  ActiveDocument.Tables(1).Cell(2, 1).Range.End)
  '選中
  rng.Select
  
  '如果選擇的在表格中 ，則：
  If Selection.Information(wdWithInTable) Then
  '合并
    Selection.Cells.Merge
  End If
  
  With ActiveDocument.Tables(1).Cell(1, 1)
    .Range.Text = '項目' '寫入內(nèi)容
    .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
    .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter '垂直居中
  End With
End Sub
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Sub 合并表格方法2()
'Cell.Merge 方法
'表達(dá)式.Merge (MergeTo)
'將指定單元格與另一表格單元格合并，成為一個單獨的表格單元格

'將表格的1行1列至2行1列合并
  Dim t As Table
  Set t = ActiveDocument.Tables(1)
  With t
    .Cell(1, 1).Merge .Cell(2, 1)
  End With
End Sub

結(jié)果展示
word vba 操作表格，設(shè)置表格的單元格（拆分合并單元格）_合并單元格

2、拆分單元格

Sub 拆分單元格()
'  ActiveDocument.Tables(1).Cell(1, 1).Range.Select
'  Selection.Cells.Split NumRows:=2, NumColumns:=1, MergeBeforeSplit:=False

  ActiveDocument.Tables(1).Cell(1, 2).Range.Select
  Selection.Cells.Split NumRows:=1, NumColumns:=4, MergeBeforeSplit:=False
End Sub

1.
2.
3.
4.
5.
6.
7.
8.

結(jié)果
word vba 操作表格，設(shè)置表格的單元格（拆分合并單元格）_合并單元格_02

三、判斷是否存在合并單元格

Sub 判斷是否存在合并單元格()
  Dim cell_count%, row_count%, column_count%
  With ActiveDocument.Tables(1)
    cell_count = .Range.Cells.Count '單元格的個數(shù)，合并的單元格計算為1個
    row_count = .Rows.Count '行數(shù)
    column_count = .Columns.Count '列數(shù)
    '如果單元格的個數(shù)小于行數(shù)乘以列數(shù)
    If cell_count < row_count * column_count Then
      MsgBox '存在合并單元格'
    Else
      MsgBox '不存在合并單元格'
    End If
  End With
End Sub