word排版问题（批量操作问题）

413191246se

* 楼主，你必须将示例文档所要处理的表格区域上方的区域删除，即拆分表格，使要处理的表格变为规则表格，否则，VBA代码无法处理。请试用下面的宏：

1. Sub aaaa_Tables_TabStops_v1()
   
2.     Dim t As Table, c As Cell, l As Column, i&, j!
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t.Range
   
5.         For i = 1 To 3
   
6.             For Each c In .Columns(i).Cells
   
7.                 c.Range.Characters.Last.InsertBefore Text:=vbTab
   
8.             Next
   
9.             .Columns(i).Select
   
10.             If i = 1 Then
    
11.                 j = 2.35 '请自行修改！
    
12.             ElseIf i = 2 Then
    
13.                 j = 3.7 '请自行修改！
    
14.             ElseIf i = 3 Then
    
15.                 j = 6.2 '请自行修改！
    
16.             End If
    
17. '            Selection.ParagraphFormat.TabStops.ClearAll
    
18.             ActiveDocument.DefaultTabStop = CentimetersToPoints(0.74)
    
19.                 Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(j) _
    
20.                     , Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderDots
    
21.             .Cells(i).Range.Find.Execute "^9", , , 0, , , , , , "", 2
    
22.         Next
    
23.         End With
    
24.     Next
    
25. End Sub

复制代码

413191246se

略。。。。

413191246se

略。。。。

excelinsth

413191246se 发表于 2021-1-27 23:59

这次按照您说的运行了一下，现在可以了，我再自己研究一下这个宏代码。
非常感谢 413191246se 老师的帮助，辛苦您了