wodr表格批量加实线 左对齐 有没办法批量处理

Harry=

第一页是我做好效果，需要做以下动作
1.每页加实线
2.表格左对齐
3.空格行添加10#
4.表格平均分布各行
我录了一页宏 但怎样跑整个文档。有没大神做一个vba。 谢谢

Harry=

第一页是我做好效果，需要做以下动作
1.每页加实线
2.表格左对齐
3.空格行添加10#
4.表格平均分布各行
添加多一个请求
5.文字左居中
有没大师帮助写一下

413191246se

* 楼主，请将代码复制到空白文档中，再全选，剪切，复制到 VBE 中，以防乱码。
* 由于表格较多，运行过程中如果标题栏出现“未响应”字样，请耐心等待，直至完成。
* 请认真核对处理结果。如果想测试代码，可留下一个表格，在 VBE 中按 F8 逐步调试。

1. Sub a1228_LoopTables()
   
2.     Dim t As Table, r As Row, i&
   
3.     For Each t In ActiveDocument.Tables
   
4.         i = i + 1
   
5.         With t
   
6.             If i Mod 2 = 0 Then .Range.Font.ColorIndex = wdPink Else .Range.Font.ColorIndex = wdRed
   
7.             With .Rows
   
8.                 .WrapAroundText = False
   
9.                 .Alignment = wdAlignRowLeft
   
10.                 .LeftIndent = CentimetersToPoints(0)
    
11.             End With
    
12.             .Style = "网格型"
    
13.             .Select
    
14.             With Selection
    
15.                 .Cells.DistributeHeight
    
16.                 .ParagraphFormat.Alignment = wdAlignParagraphJustify
    
17.                 .Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
18.                 With .ParagraphFormat
    
19.                     .CharacterUnitFirstLineIndent = 0
    
20.                     .FirstLineIndent = CentimetersToPoints(0)
    
21.                     .CharacterUnitLeftIndent = 0
    
22.                     .LeftIndent = CentimetersToPoints(0)
    
23.                 End With
    
24.                 For Each r In .Tables(1).Rows
    
25.                     If Len(Replace(Replace(r.Range, vbCr, ""), Chr(7), "")) = 0 Then r.Cells(1).Range.Text = "10#"
    
26.                 Next
    
27.             End With
    
28.         End With
    
29.     Next
    
30.     Selection.HomeKey 6
    
31.     MsgBox "Complete!  Tables-Sum = " & ActiveDocument.Tables.Count, 0 + 48
    
32. End Sub

复制代码

梧叶沙沙

一键选取所有表格，后续想做任何操作都可以。你这种写代码，下次换一种格式又要重新写。

413191246se

楼上朋友 言之有理！学到了。

Harry=

好的 我下载试试 谢谢大神的 我试运行一下看

Harry=

梧叶沙沙 发表于 2022-12-30 09:15
一键选取所有表格，后续想做任何操作都可以。你这种写代码，下次换一种格式又要重新写。

你这插件能做到我说的要求？

Harry=

413191246se 发表于 2022-12-28 02:04
* 楼主，请将代码复制到空白文档中，再全选，剪切，复制到 VBE 中，以防乱码。
* 由于表格较多，运行过程 ...

1. Sub 加实线宏()
   
2. '
   
3. ' 加实线宏 Macro
   
4. ' 宏由 Administrator 录制，时间: 2023/01/02
   
5. '
   
6. 
   
7. '
   
8.     Selection.SetRange Start:=229, End:=229
   
9.     With Selection.Range.PageSetup
   
10.         .TopMargin = 0
    
11.         .TopMargin = 14.173115
    
12.         .BottomMargin = 0
    
13.         .BottomMargin = 14.173115
    
14.         .LeftMargin = 28.34623
    
15.         .RightMargin = 28.34623
    
16.         With .TextColumns
    
17.             .EvenlySpaced = -1
    
18.             .LineBetween = 0
    
19.             .SetCount NumColumns:=1
    
20.             .Spacing = 0
    
21.         End With
    
22.     End With
    
23.     With ActiveDocument.PageSetup
    
24.         .MirrorMargins = 0
    
25.         With .TextColumns
    
26.             .SetCount NumColumns:=1
    
27.             .EvenlySpaced = -1
    
28.             .LineBetween = 0
    
29.             .SetCount NumColumns:=1
    
30.             .Spacing = 0
    
31.         End With
    
32.         .Orientation = wdOrientLandscape
    
33.         .GutterPos = wdGutterPosLeft
    
34.         .TopMargin = 14.173115
    
35.         .BottomMargin = 14.173115
    
36.         .LeftMargin = 28.34623
    
37.         .RightMargin = 28.34623
    
38.         .Gutter = 0
    
39.         .PageWidth = 841.883057
    
40.         .PageHeight = 594.987366
    
41.         .FirstPageTray = wdPrinterDefaultBin
    
42.         .OtherPagesTray = wdPrinterDefaultBin
    
43.         .Orientation = wdOrientLandscape
    
44.         .GutterPos = wdGutterPosLeft
    
45.         .TopMargin = 14.173115
    
46.         .BottomMargin = 14.173115
    
47.         .LeftMargin = 28.34623
    
48.         .RightMargin = 28.34623
    
49.         .Gutter = 0
    
50.         .PageWidth = 841.883057
    
51.         .PageHeight = 594.987366
    
52.         .FirstPageTray = wdPrinterDefaultBin
    
53.         .OtherPagesTray = wdPrinterDefaultBin
    
54.         .HeaderDistance = 9.071
    
55.         .FooterDistance = 0.283
    
56.         .OddAndEvenPagesHeaderFooter = 0
    
57.         .DifferentFirstPageHeaderFooter = 0
    
58.         .LayoutMode = wdLayoutModeDefault
    
59.     End With
    
60.     With Options
    
61.         .MeasurementUnit = wdCentimeters
    
62.         .UseCharacterUnit = True
    
63.     End With
    
64.     Selection.SetRange Start:=0, End:=1671
    
65.     Selection.WholeStory
    
66.     ActiveDocument.Range(0, 1671).Rows.Select
    
67.     With ActiveDocument.Tables(1)
    
68.         With .Borders(wdBorderTop)
    
69.             .LineStyle = wdLineStyleSingle
    
70.             .LineWidth = wdLineWidth050pt
    
71.             .Color = wdColorBlack
    
72.         End With
    
73.         With .Borders(wdBorderLeft)
    
74.             .LineStyle = wdLineStyleSingle
    
75.             .LineWidth = wdLineWidth050pt
    
76.             .Color = wdColorBlack
    
77.         End With
    
78.         With .Borders(wdBorderBottom)
    
79.             .LineStyle = wdLineStyleSingle
    
80.             .LineWidth = wdLineWidth050pt
    
81.             .Color = wdColorBlack
    
82.         End With
    
83.         With .Borders(wdBorderRight)
    
84.             .LineStyle = wdLineStyleSingle
    
85.             .LineWidth = wdLineWidth050pt
    
86.             .Color = wdColorBlack
    
87.         End With
    
88.         With .Borders(wdBorderHorizontal)
    
89.             .LineStyle = wdLineStyleSingle
    
90.             .LineWidth = wdLineWidth050pt
    
91.             .Color = wdColorBlack
    
92.         End With
    
93.         With .Borders(wdBorderVertical)
    
94.             .LineStyle = wdLineStyleSingle
    
95.             .LineWidth = wdLineWidth050pt
    
96.             .Color = wdColorBlack
    
97.         End With
    
98.     End With
    
99.     With ActiveDocument.Tables(1)
    
100.         With .Borders(wdBorderTop)
     
101.             .LineStyle = wdLineStyleSingle
     
102.             .LineWidth = wdLineWidth050pt
     
103.             .Color = wdColorBlack
     
104.         End With
     
105.         With .Borders(wdBorderLeft)
     
106.             .LineStyle = wdLineStyleSingle
     
107.             .LineWidth = wdLineWidth050pt
     
108.             .Color = wdColorBlack
     
109.         End With
     
110.         With .Borders(wdBorderBottom)
     
111.             .LineStyle = wdLineStyleSingle
     
112.             .LineWidth = wdLineWidth050pt
     
113.             .Color = wdColorBlack
     
114.         End With
     
115.         With .Borders(wdBorderRight)
     
116.             .LineStyle = wdLineStyleSingle
     
117.             .LineWidth = wdLineWidth050pt
     
118.             .Color = wdColorBlack
     
119.         End With
     
120.         With .Borders(wdBorderHorizontal)
     
121.             .LineStyle = wdLineStyleSingle
     
122.             .LineWidth = wdLineWidth050pt
     
123.             .Color = wdColorBlack
     
124.         End With
     
125.         With .Borders(wdBorderVertical)
     
126.             .LineStyle = wdLineStyleSingle
     
127.             .LineWidth = wdLineWidth050pt
     
128.             .Color = wdColorBlack
     
129.         End With
     
130.     End With
     
131.     Selection.SetRange Start:=349, End:=349
     
132.     ActiveWindow.ActivePane.VerticalPercentScrolled = 0
     
133.     Selection.SetRange Start:=0, End:=1671
     
134.     With ActiveDocument.Range(0, 1671).Rows
     
135.         .Alignment = wdAlignRowLeft
     
136.         .LeftIndent = 0
     
137.         .HorizontalPosition = 0
     
138.     End With
     
139.     Selection.WholeStory
     
140.     Selection.Font.Name = "Times New Roman"
     
141.     With Selection.Font
     
142.         .Size = 6.5
     
143.         .SizeBi = 6.5
     
144.     End With
     
145.     With Selection
     
146.         .Range.MoveEnd Unit:=wdCharacter, Count:=1
     
147.         With .Font
     
148.             .Bold = -1
     
149.             .BoldBi = -1
     
150.         End With
     
151.     End With
     
152.     With Selection.Font
     
153.         .Bold = 0
     
154.         .BoldBi = 0
     
155.     End With
     
156.     Selection.SetRange Start:=0, End:=1671
     
157.     Selection.Cells.DistributeHeight
     
158.     With Selection
     
159.         .Cells.VerticalAlignment = wdCellAlignVerticalCenter
     
160.         .ParagraphFormat.Alignment = wdAlignParagraphJustify
     
161.     End With
     
162.     Selection.SetRange Start:=117, End:=117
     
163.     Selection.TypeText Text:="10"
     
164.     Selection.TypeText Text:="#"
     
165.     Selection.SetRange Start:=122, End:=122
     
166.     Selection.TypeText Text:="10"
     
167.     Selection.TypeText Text:="#"
     
168.     Selection.SetRange Start:=237, End:=237
     
169. End Sub
     

复制代码

这是我用宏录制的一页想要我效果，空格加10#手动加了二行  其它的没加  我录了一个视频你看一下  运行了你代码文字前是有段落位的 全左对齐了 我是要表格左对齐。不是文字 。有空在帮忙看看怎样实现批量化运行。字体不知为什么加了颜色  我是用wps企业版本运行的。

413191246se

楼主，请将我的代码 18-23 行注释一下就好了，试试。
有颜色是为了看清表格中的文字，如果不想要颜色，请将第 6 行代码注释一下。

Harry=

413191246se 发表于 2023-1-2 20:58
楼主，请将我的代码 18-23 行注释一下就好了，试试。
有颜色是为了看清表格中的文字，如果不想要颜色，请 ...

效果与我想要的效果 不是很好 我把原文档和我手动调的我也录视频我操作步骤。你有空帮忙看看。上面有有上传的文档你下载指点一下。