如何用代码把每段末尾的单词加粗并标红

zldccmx

蜀中草莽

zldccmx 发表于 2023-3-1 13:43
只是想知道如何修改正则

正则 搞不懂啊

zzpsx

zldccmx

zzpsx 发表于 2023-3-1 15:45

第4句，引号中应该是空格

zldccmx

zzpsx 发表于 2023-3-1 15:45

1. r = InStrRev(P.Range.Text, " ")

复制代码

zzpsx

Sub word段末单词标红()
Dim P As Paragraph
For Each P In ActiveDocument.Paragraphs
r = InStrRev(P.Range.Text, " ")
k = 0
For j = Len(P.Range.Text) To 1 Step -1
Select Case Asc(Mid(P.Range.Text, j, 1))
Case 65 To 90, 97 To 122
Exit For
Case Else
k = k + 1
End Select
Next
ActiveDocument.Range(P.Range.Start + r, P.Range.End - k).Font.ColorIndex = wdRed
Next
End Sub
附件2.rar (16.53 KB, 下载次数: 3)

2023-3-6 07:02 上传

点击文件名下载附件

这个附件测试好像有问题。

zldccmx

zzpsx 发表于 2023-3-6 07:03
Sub word段末单词标红()
Dim P As Paragraph
For Each P In ActiveDocument.Paragraphs

1. Case 65 To 90, 97 To 122, 48 To 57

复制代码

zldccmx

增加了段末为数字的情况处置。

zzpsx

zldccmx 发表于 2023-3-6 08:28
增加了段末为数字的情况处置。

高手，可否把完整的代码文本复制到这里，谢谢了。

zldccmx

zzpsx 发表于 2023-3-6 11:51
高手，可否把完整的代码文本复制到这里，谢谢了。

把你贴出来的代码中的case语句替换掉就好了