求一个自动表格设置的宏

gflytan

如题，求一个批量设置表格格式的宏，需求为：宏运行时可以选择设置所有文档中的表格能自动居中、表格内的文字、字符能自动居中或居左。表格首行字体字号、其他行字体字号，行距等都能按照要求自动设置好。可以分成几个宏来实现上述要求，主要就是能按要求批量设置。请大佬们不吝赐教，多谢！

墨策

字体、字号、行间距等，根据你自己的需求自行修改

饮冰e士

可以先找AI试一下

gflytan

饮冰e士 发表于 2025-2-28 13:12
可以先找AI试一下

我用AI试过了，效果不令人满意，改了几轮都不行。用的是deepseek

gflytan

墨策 发表于 2025-2-28 12:36
字体、字号、行间距等，根据你自己的需求自行修改

这个代码我输进去之后报错，试着改了参数后还是报错

墨策

你表格有纵向合并单元格吧？我这里测试了没有问题

413191246se

* 请将代码复制并粘贴到空白文档中，再全选，剪切，粘贴到 VBE 中，以防乱码！

1. Sub TableProcess()
   
2. '表格处理
   
3.     Dim t As Table, c As Cell, i As Paragraph, a&
   
4.     With Selection
   
5.         If .Information(12) Then a = 1
   
6.         For Each t In ActiveDocument.Tables
   
7.             If a = 1 Then Set t = .Tables(1)
   
8.             With t
   
9.                 '行高(最小值)
   
10.                 With .Rows
    
11.                     .HeightRule = wdRowHeightAtLeast
    
12.                     .Height = CentimetersToPoints(0.9)
    
13.                 End With
    
14.                 With .Range
    
15.                     '清除格式
    
16.                     .Next.InsertParagraphBefore
    
17.                     .MoveEnd
    
18.                     .Select
    
19.                     Selection.ClearFormatting
    
20.                     If .Previous(4, 1).Font.Size = 16 Then .Font.Size = 12
    
21.                     If .Previous(4, 1).Font.Size = 20 Then .Font.Size = 12
    
22.                     CommandBars.FindControl(ID:=122).Execute
    
23.                     .Characters.Last.Delete
    
24.                     .Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
25.                     '删除空段
    
26.                     For Each c In .Cells
    
27.                         With c.Range
    
28.                             For Each i In .Paragraphs
    
29.                                 With i.Range
    
30.                                     If Asc(.Text) = 13 And Len(.Text) = 1 Then .Delete
    
31.                                 End With
    
32.                             Next
    
33.                             With .Paragraphs
    
34.                                 If .Count > 1 And Len(.Last.Range) = 2 Then .Last.Previous.Range.Characters.Last.Delete
    
35.                             End With
    
36.                         End With
    
37.                     Next
    
38.                 End With
    
39.                 '表头加粗
    
40.                 .Cell(1, 1).Select
    
41.                 With Selection
    
42.                     .SelectRow
    
43.                     With .Font
    
44.                         .NameFarEast = "黑体"
    
45.                         .Bold = True
    
46.                     End With
    
47.                     .Range.Find.Execute "[ 　^s^t]", , , 1, , , , , , "", 2
    
48.                 End With
    
49.                 .LeftPadding = CentimetersToPoints(0.19)
    
50.                 .RightPadding = CentimetersToPoints(0.19)
    
51.                 .AutoFitBehavior (wdAutoFitContent)
    
52.                 .Select
    
53.                 .AutoFitBehavior (wdAutoFitWindow)
    
54.             End With
    
55.             If a = 1 Then Exit For
    
56.         Next
    
57.     End With
    
58. End Sub

复制代码

hcy1185

413191246se 发表于 2025-3-1 02:31
* 请将代码复制并粘贴到空白文档中，再全选，剪切，粘贴到 VBE 中，以防乱码！

If .Previous(4, 1).Font.Size = 16 Then .Font.Size = 12
                    If .Previous(4, 1).Font.Size = 20 Then .Font.Size = 12
                    CommandBars.FindControl(ID:=122).Execute
请老师指点一下上面3句的意思，谢谢！