选项如何均衡分布？

zzpsx

选项如何均衡分布？.rar (4.63 KB, 下载次数: 57)

2018-4-16 20:33 上传

点击文件名下载附件

duquancai

用代码 设置制表位对齐，与手工设置制表位对齐 类似操作！

leikaiyi123

http://club.excelhome.net/forum.php?mod=viewthread&tid=1397930&mobile=2

duquancai

献鲜花了吗？写一个吧！

1. Sub TEST()
   
2.     Set P = Selection.Range
   
3.     If Selection.Type = wdSelectionIP Then MsgBox "没有选择范围！": Exit Sub
   
4.     With P
   
5.         .Find.Execute "[^t]{1,}", , , -1, , , , , , "", 2
   
6.         .ParagraphFormat.TabStops.ClearAll
   
7.         For i = 1 To 11 Step 3.3
   
8.             .ParagraphFormat.TabStops.Add CentimetersToPoints(i)
   
9.         Next
   
10.         .Find.Execute "([A-D].)", , , -1, , , , , , "^t\1", 2
    
11.     End With
    
12. End Sub

复制代码

413191246se

杜先生/老师 代码运行成功，问题解决！（但需要加变量声明：Dim p As Range, i&）

413191246se

就 楼主 提供的示例文本来看，杜先生 代码没有问题，运行 OK！——但一旦首行缩进 2 字符，版面立刻就混乱了，还有，括号、空格、小数点、数字等是否半角/全角，是否有多余空格，都要考虑，问题就大了。

tangqingfu

duquancai 发表于 2018-4-16 21:35
献鲜花了吗？写一个吧！

感谢杜老师分享！