word vba 操作表格， 设置表格的单元格（拆分合并单元格）

设置单元格的边距和间距、设置合并单元格合拆分单元格。

一、单元格的边距和间距

Sub 设置单元格边距()
  With ActiveDocument.Tables(1)
'    返回或设置表格中所有单元格的内容的
'    上方、下方、左方、右方 要增加的间距（以磅为单位）
    .TopPadding = CentimetersToPoints(0)
    .BottomPadding = CentimetersToPoints(0)
    .LeftPadding = CentimetersToPoints(0.2)
    .RightPadding = CentimetersToPoints(0.2)

'    返回或设置表格中单元格的间距（以磅为单位）。可读写 Single 类型。
'    一般不做设置 不勾选
'    .Spacing = CentimetersToPoints(0.1)
    .Spacing = 0
  
'    对指定表格 允许断页
    .AllowPageBreaks = True
    
'    允许自动重调尺寸
    .AllowAutoFit = True
  End With
End Sub

二、单元的合并和拆分 1、合并单元格

Sub 合并单元格()
  '选中单元格range("a1:a2")进行合并
  Dim rng As Range
  '定义要合并的单元格区域
  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 = "项目" '写入内容
    .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
    .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter '垂直居中
  End With
End Sub

结果展示 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

结果