如何用vba代码给红色的单词标上数字上标

zzpsx

如何用vba代码给红色的单词标上数字上标.zip (15.54 KB, 下载次数: 10)

2024-1-7 21:15 上传

点击文件名下载附件

batmanbbs

zzpsx

batmanbbs 发表于 2024-1-7 23:21

谢谢高手的神代码，太厉害了。

弱弱地问下，代码可否再优化下：截图中，黄色部分为手动加上标，红色部分为代码加上标，数字靠到了后面这个单词上，如何解决？

413191246se

1. Sub a1_Find_Red_Words()
   
2.     Dim n&
   
3.     With ActiveDocument.Content.Find
   
4.         .ClearFormatting
   
5.         .Font.Color = wdColorRed
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             With .Parent
   
10.                 n = n + 1
    
11.                 If .Text = " " Then n = n - 1: .MoveStart: GoTo sk
    
12.                 If .Text Like "* " Then .MoveEnd 1, -1
    
13.                 If .Text Like " *" Then .MoveStart
    
14.                 .Underline = wdUnderlineSingle
    
15.                 .Text = .Text & n
    
16.                 .Characters.Last.Font.Superscript = True
    
17.                 .Characters.Last.Font.Underline = wdUnderlineNone
    
18.             End With
    
19. sk:
    
20.         Loop
    
21.     End With
    
22. End Sub

复制代码

zzpsx

413191246se 发表于 2024-1-9 00:35

谢谢高手多次相助，这个代码也非常好。
顺便说一下，单词不需要加下划线，如何修改代码？

batmanbbs

zzpsx 发表于 2024-1-8 14:56
谢谢高手的神代码，太厉害了。

弱弱地问下，代码可否再优化下：截图中，黄色部分为手动加上标，红色部 ...

因为1前面那个空格是红色的，取消这个红色空格的颜色就可以了

batmanbbs

zzpsx 发表于 2024-1-8 14:56
谢谢高手的神代码，太厉害了。

弱弱地问下，代码可否再优化下：截图中，黄色部分为手动加上标，红色部 ...

重新改写了代码：一是采用选区的方式（不是全文）；二是支持将红色单词前后多余空格改回自动颜色

413191246se

zzpsx 发表于 2024-1-9 08:37
谢谢高手多次相助，这个代码也非常好。
顺便说一下，单词不需要加下划线，如何修改代码？

14行, 17 行删除即可。
请 楼主 还是试用 batmanbbs 老师 的代码吧！他现在是我的老师！

batmanbbs

413191246se 发表于 2024-1-9 18:59
14行, 17 行删除即可。
请 楼主 还是试用 batmanbbs 老师 的代码吧！他现在是我的老师！

老师客气了，其实论坛的前辈和后来者都是我的老师，要学的东西太多了

shduy

413191246se 发表于 2024-1-9 18:59
14行, 17 行删除即可。
请 楼主 还是试用 batmanbbs 老师 的代码吧！他现在是我的老师！

老师还收学生不？