如何批量修改word中表格样式和数据

EdwinW

如表1和表2，如何批量将表2改为表1格式呢，因为这样的表格很多。
求救，感谢各位大佬！

EdwinW

求救啊，十万火急，有没有大神帮忙

EdwinW

别沉。。有没有大佬帮下忙

413191246se

请将代码复制到新建文档，再全选，剪切，到 VBE 中执行即可。

1. Sub a_710_test()
   
2.     Dim t As Table
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t
   
5.             If .Range.Cells(2).Range Like "选项*" Then
   
6.                 .Range.Cells(2).Range.Text = "项目"
   
7.                 .Range.Cells(4).Range.Text = "所占比例（%）"
   
8.                 .Range.Font.ColorIndex = wdBlue
   
9.                 .Range.Cells(5).Select
   
10.                 With Selection
    
11.                     .MoveDown Unit:=wdLine, Count:=4, Extend:=wdExtend
    
12.                     .Cells.Split NumRows:=5, NumColumns:=2, MergeBeforeSplit:=True
    
13.                     .Delete Unit:=wdCharacter, Count:=1
    
14.                     .MoveDown Unit:=wdLine, Count:=4, Extend:=wdExtend
    
15.                     .Cells.Merge
    
16.                     .Cells(1).Range.Text = "选项"
    
17.                 End With
    
18.             End If
    
19.             With .Range
    
20.                 .Cells(6).Range.Text = "A"
    
21.                 .Cells(9).Range.Text = "B"
    
22.                 .Cells(12).Range.Text = "C"
    
23.                 .Cells(15).Range.Text = "D"
    
24.                 .Cells(18).Range.Text = "总计"
    
25.             End With
    
26.             .LeftPadding = CentimetersToPoints(0.19)
    
27.             .RightPadding = CentimetersToPoints(0.19)
    
28.             .AutoFitBehavior (wdAutoFitContent)
    
29.             .Select
    
30.             .AutoFitBehavior (wdAutoFitWindow)
    
31.         End With
    
32.     Next
    
33. End Sub

复制代码