如何批量把WORD文档里的答案（红色部分）填到题目的括号里

gamexitys

就像上面这样，批量把每道题目下面的答案（红色部分）前的字母自动填写到题目的（）括号里。

413191246se

1. Sub aaaaFillAnswer()
   
2.     Dim s$
   
3.     With Selection
   
4.         .EndKey 6
   
5.         .TypeParagraph
   
6.         .TypeParagraph
   
7.         .TypeParagraph
   
8.         .HomeKey 6
   
9.         With .Find
   
10.             .ClearFormatting
    
11.             .Text = "[0-9０-９]@[、.．]*( )*^13"
    
12.             .Forward = True
    
13.             .MatchWildcards = True
    
14.             Do While .Execute
    
15.                 With .Parent
    
16.                     .Font.ColorIndex = wdPink
    
17.                     If .Next(4, 1).Characters(1).Font.ColorIndex = wdRed Then
    
18.                         s = "A"
    
19.                     ElseIf .Next(4, 1).Next(4, 1).Characters(1).Font.ColorIndex = wdRed Then
    
20.                         s = "B"
    
21.                     ElseIf .Next(4, 1).Next(4, 1).Next(4, 1).Characters(1).Font.ColorIndex = wdRed Then
    
22.                         s = "C"
    
23.                     ElseIf .Next(4, 1).Next(4, 1).Next(4, 1).Next(4, 1).Characters(1).Font.ColorIndex = wdRed Then
    
24.                         s = "D"
    
25.                     End If
    
26.                     .Range.Find.Execute "( )", , , 0, , , , , , "( " & s & " )", 1
    
27.                     .Start = .End
    
28.                 End With
    
29.             Loop
    
30.         End With
    
31.         .HomeKey 6
    
32.     End With
    
33. End Sub

复制代码

zmj9151

___________

gamexitys

413191246se 发表于 2021-11-14 10:42

谢谢分享，因为太菜鸟了，不会生成直接用的。不过也谢谢您的解答。

yxingsong

413191246se 发表于 2021-11-14 10:42

大佬，如果是多选题，是不是就没法用了？该怎么处理呢？

tcdatongye

yxingsong 发表于 2021-11-18 09:49
大佬，如果是多选题，是不是就没法用了？该怎么处理呢？

当然有办法

军生

收藏了，红色字体填空！