选择题ABCD四个选项怎么用VBA整齐排版

413191246se

* 最近一直不敢露面，因为我不是高手，一直等待 sylun 老师 那样的高手来指导。
* 今天看到 zldccmx 老师 的指导，借用表格来处理，成功地解决了制表符处理难题，字表相互转换，可以认为初步达到了 楼主 的目的，请试用下面的宏。（代码请见新帖）

常扬帆

413191246se 发表于 2022-7-22 12:59
* 最近一直不敢露面，因为我不是高手，一直等待 sylun 老师 那样的高手来指导。
* 今天看到 zldccmx 老师  ...

衷心感谢！2016也能成功处理。

413191246se

..............

蜀中草莽

413191246se 发表于 2022-7-22 20:33

第26行 改为.CharacterUnitLeftIndent = 2
第40行 后面再加上
With ActiveDocument.Content.Find
            .Execute "^t{1,}^13", , , 1, , , , , , "^13", 2
        End With
就完美了

413191246se

1. Sub a724_选项对齐()
   
2. 'Word2019须将代码拷贝到新建文档，再全选剪切到 VBE 中执行！否则可能乱码出错。
   
3.     Dim i As Paragraph, n!
   
4.     With ActiveDocument
   
5.         .Content.Font.Size = 10.5 '五号（全文字号，此值可自行修改）
   
6.         .Fields.Unlink '删除域
   
7.         .ConvertNumbersToText '列表编号转文本
   
8.         With .Content.Find
   
9.             .Execute "^l", , , 0, , , , , , "^p", 2 '手动换行符全部替换为段落标记
   
10.             .Execute "([0-9０-９A-D])、", , , 1, , , , , , "\1．", 2 '顿号=>齐线墨点
    
11.             .Execute "^13([B-D])(．)", , , 1, , , , , , "^t\1\2", 2 '四个选项以制表符分隔形成一个段落
    
12.             .Execute "(答案)(:)", , , 1, , , , , , "\1：", 2
    
13.         End With
    
14.         '删除空行
    
15.         For Each i In .Paragraphs
    
16.             If Asc(i.Range) = 13 Then i.Range.Delete
    
17.         Next
    
18.         '循环遍历所有段落
    
19.         For Each i In .Paragraphs
    
20.             With i.Range
    
21.                 If .Text Like "#．*" Then
    
22.                     n = 1.5
    
23.                 ElseIf .Text Like "##．*" Then
    
24.                     n = 2
    
25.                 End If
    
26.                 If .Text Like "A．*" Then
    
27.                     .Select
    
28.                     With Selection
    
29.                         '文本转表格
    
30.                         .ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=4, _
    
31.                             NumRows:=1, AutoFitBehavior:=wdAutoFitFixed
    
32.                         '表格转文本
    
33.                         .Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:=True
    
34.                         '左缩进1.5/2字符
    
35.                         With .ParagraphFormat
    
36.                             .CharacterUnitLeftIndent = n
    
37.                             .LeftIndent = CentimetersToPoints(0)
    
38.                         End With
    
39.                         '判断段落行数
    
40.                         If .Range.ComputeStatistics(1) = 1 Then
    
41.                         Else
    
42.                             .Range.Find.Execute "^t(C．)", , , 1, , , , , , "^13\1", 2
    
43.                             '判断段落行数
    
44.                             If .Range.ComputeStatistics(1) > 2 Then
    
45.                                 .Range.Find.Execute "^t([B-D]．)", , , 1, , , , , , "^13\1", 2
    
46.                             End If
    
47.                         End If
    
48.                     End With
    
49.                 ElseIf .Text Like "答案*" Then
    
50.                     '左缩进1.5/2字符
    
51.                     With .ParagraphFormat
    
52.                         .CharacterUnitLeftIndent = n
    
53.                         .LeftIndent = CentimetersToPoints(0)
    
54.                     End With
    
55.                 End If
    
56.             End With
    
57.         Next
    
58.     End With
    
59.     Selection.HomeKey 6 '光标移至文首
    
60.     MsgBox "处理完毕！", 0 + 48
    
61. End Sub

复制代码

常扬帆

413191246se 发表于 2022-7-24 10:23

相当漂亮，衷心感谢！

丶冫氵灬

zldccmx 发表于 2022-7-22 08:56
可以借用表格来规范布局

表格更麻烦，设计表格的时间用普通的word制表位早搞定了。这里主要是想设计一个wordVBA来提高工作效率