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

excelinsth

求助各位大佬，如下图，如何把word表格里每个单元格的文字后面的长短不一空白都用点填满？？？填成一样的长度。
一个一个敲要死了，有200多页，请问有批量操作的方法吗？

excelinsth

感觉应该要用到查找替换，但是具体应该用什么通配符呢？有大佬能解答么？

ming0018

用制表符填充吧

413191246se

略。。。。

excelinsth

ming0018 发表于 2021-1-25 17:57
用制表符填充吧

这几天尝试了一下，用制表符是可以的，但关键问题是用制表符的话也只能一个单元格一个单元格地去按Tab，无法在一个表格中批量操作，有100多个表呢

excelinsth

413191246se 发表于 2021-1-25 21:21

感谢大神！我试着运行了一下，感觉太卡了，有200多页，就运行1页都特别慢，，用制表符操作是可以的，但是目前我只能批量选中表格的行统一制定制表符，但随后还是得一行一行来操作。（见附件）想请问大神可否对制表符的这个操作进行批量处理？

excelinsth

excelinsth 发表于 2021-1-27 11:15
这几天尝试了一下，用制表符是可以的，但关键问题是用制表符的话也只能一个单元格一个单元格地去按Tab， ...

就像这个动图里这样

413191246se

楼主，我本来对你和 ming0018 老师 说的加制表位不懂（不会），刚才看了你的小视频，自己试了试，会了。我的想法是这样的：先把要处理的单元格文字后面加一个字符，比如“·”（小撇儿），再全部替换为制表符“^9”，然后像你图中所示设置为 10个字符 左右的制表位即可。——但是，我原来本以为你要在一个单元格中有多个段落，我的程序还要在每个单元格中的多个段落之间处理；现在看你的视频，似乎一个单元格只有一个段落。——所以，我建议 楼主 提供一个要处理表格的实际文档的附件，让我看看你到底要处理哪个表格或哪一列，不用多，一两页就可以。请将要处理的表格或列标明（套红也可）。

413191246se

* 请提供详实附件，说明到底是哪列（或整表）加点，下面是试用宏：（假设每个单元格只有一个段落）

1. Sub test()
   
2.     Dim t As Table, c As Cell, l As Column
   
3.     For Each t In ActiveDocument.Tables
   
4.         For Each c In t.Range.Cells
   
5.             c.Range.Characters.Last.InsertBefore Text:=vbTab
   
6.         Next
   
7.     Next
   
8. 'tab->OK
   
9.     For Each t In ActiveDocument.Tables
   
10.         t.Select
    
11. '        For Each l In t.Columns
    
12. '            l.Select
    
13. '                Selection.ParagraphFormat.TabStops.ClearAll
    
14.                 ActiveDocument.DefaultTabStop = CentimetersToPoints(0.74)
    
15.                 Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(4.44) _
    
16.                     , Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderDots
    
17. '        Next
    
18.     Next
    
19. End Sub

复制代码

excelinsth

413191246se 发表于 2021-1-27 12:22
* 请提供详实附件，说明到底是哪列（或整表）加点，下面是试用宏：（假设每个单元格只有一个段落）

413191246se 老师您好，这是具体附件，麻烦您看一下现在需要给这个word表格的每一列的每一个单元格末尾增加圆点，使得蓝色框的每一格最终都跟本列最上面红框里的长度一样长，可否用宏批量操作？
（例如，第三列，“同上....”、“空缺...”、“张三..."等单元格末尾要增加圆点，使得他们跟” 王小二...."这个单元格的长度一样长）