各位老师好：word文件中，如何把题目后面的答案和解析部分，设置为红色字体。

zhgj007

各位老师好：
      word文件中，如何用vba操作，把题目后面的答案和解析部分，设置为红色字体。

user湫

1. Sub ReplaceWithRedFont()
   
2.     Set rng = ActiveDocument.Content
   
3.     general = "答案：* ^p" '使用这个即可
   
4.     'select0 = "答案：[A-Za-z]"
   
5.     'select1 = "答案：[A-Za-z][A-Za-z]"
   
6.     'select2 = "答案：[A-Za-z][A-Za-z][A-Za-z]"
   
7.     'select3 = "答案：[A-Za-z][A-Za-z][A-Za-z][A-Za-z]"
   
8.     th = "解析：*。^p"
   
9.     arr = Array(general, th)
   
10.    
    
11.     ' 使用通配符进行查找
    
12.     With rng.Find
    
13.         .ClearFormatting
    
14.         .Text = arr(0)
    
15.         .Replacement.ClearFormatting
    
16.         .Replacement.Text = ""
    
17.         .Forward = True
    
18.         .Wrap = wdFindContinue
    
19.         .Format = False
    
20.         .MatchWildcards = True
    
21.     End With
    
22.    
    
23.     ' 替换并设置字体颜色为红色
    
24.     Do While rng.Find.Execute
    
25.         rng.Font.Color = wdColorRed
    
26.     Loop
    
27.    
    
28.     Set rng1 = ActiveDocument.Content
    
29.     With rng1.Find
    
30.         .ClearFormatting
    
31.         .Text = arr(1)
    
32.         .Replacement.ClearFormatting
    
33.         .Replacement.Text = ""
    
34.         .Forward = True
    
35.         .Wrap = wdFindContinue
    
36.         .Format = False
    
37.         .MatchWildcards = True
    
38.     End With
    
39.    
    
40.     ' 替换并设置字体颜色为红色
    
41.     Do While rng1.Find.Execute
    
42.         rng1.Font.Color = wdColorRed
    
43.     Loop
    
44.    
    
45.     Set rng = Nothing
    
46.     Set rng1 = Nothing
    
47. End Sub
    
48. 
    

复制代码

user湫

文本格式改变可能无法使用

zhgj007

user湫 发表于 2023-7-22 10:57
文本格式改变可能无法使用

老师好，原来那个文件效果很好，换了个文件试试，果然不行了。我再上传个附件，麻烦老师了。

zhgj007

再上传个测试文件，方便老师测试

xj123321

运行宏试一下

zhgj007

xj123321 发表于 2023-7-22 16:59
运行宏试一下

非常棒，是我想达到的效果，谢谢老师。明天给您送鲜花，今天全送出去了。