替换光标至下一个蓝色段落之间的段落颜色

相见是缘8

替换光标至下一个蓝色段落之间的段落颜色

也就是查找光标停留处，至下一个蓝色段落前的所有段落，全部替换为红色，跨过蓝色段落的不替换。

请老师们帮忙！详情请看附件。谢谢！

413191246se

1. Sub test_blue_red()
   
2.     With Selection
   
3.         .Expand 4
   
4.         Do While Not .Next(4, 1).Paragraphs(1).Range.Font.Color = wdColorBlue
   
5.             .MoveEnd 4, 1
   
6.             If .Paragraphs.Last.Range.End = ActiveDocument.Content.End Then Exit Do
   
7.         Loop
   
8.         .Font.Color = wdColorRed
   
9.     End With
   
10. End Sub

复制代码

相见是缘8

413191246se 发表于 2020-9-5 13:34

代码满足我愿，感谢 413191246se 老师援手！

相见是缘8

413191246se 发表于 2020-9-5 13:34

老师、有不有办法让它再增加一个，统计替换后红色段落数量的功能？

413191246se

1. Sub Test_Blue_Red_New()
   
2.     With Selection
   
3.         .Expand 4
   
4.         Do While Not .Next(4, 1).Paragraphs(1).Range.Font.Color = wdColorBlue
   
5.             .MoveEnd 4, 1
   
6.             If .Paragraphs.Last.Range.End = ActiveDocument.Content.End Then Exit Do
   
7.         Loop
   
8.         .Font.Color = wdColorRed
   
9.         MsgBox "Total Red Paragraphs = " & .Paragraphs.Count, 0 + 48
   
10.     End With
    
11. End Sub

复制代码

相见是缘8

413191246se 发表于 2020-9-6 12:41

代码 OK ！衷心感谢老师 ！