求大佬指点！！！如何改善word中这段VBA代码

2024-11-30 16:40:42 310 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Word文档中LaTeX公式与文本垂直对齐的实用技巧本文详细解析了Word文档中LaTeX公式与文本垂直对齐的实用技巧，包括段落设置、公式编辑器配置、VBA宏批量处理等解决方案。针对常见的基线对齐问题，提供了字体搭配建议和跨平台兼容性处理方法，帮助用户实现专业级的文档排版效果。阅读详情

想实现的功能是：在文档中查找到类似“同比增加XXX万/亿”的表述都自动标红，目前这段代码只能实现“同比增加XXX”标红，无法将单位“万/亿”一起标红，问了ai一直解决不了，求大佬指教！

示例文本：

同比增加2222万，同比增加11万，同比增加111万,同比减少234万，同比增加1亿，同比增加0.16亿

同比增加2亿，同比增加1.23亿，同比增加1500万，同比减少23万，同比增加235亿

同比增加500万，显示出良好的增长趋势。

同比增加1.5亿，这对公司来说是一个重大里程碑

使用的版本是：WPS 12.1.0.18912

代码如下：

Sub Highlight同比增加()
Dim oRange As Range
Dim found As Boolean
Dim startPos As Long
Dim endPos As Long
Dim searchText As String
Dim char As String

' 设置查找文本
searchText = "同比增加"

' 获取文档内容范围
Set oRange = ActiveDocument.Content

' 查找“同比增加”
With oRange.Find
.Text = searchText & "*"
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWildcards = True
End With

' 开始查找
found = oRange.Find.Execute

' 循环查找并标红
Do While found
' 获取当前找到的位置
startPos = oRange.Start
endPos = oRange.End

' 扩展范围到包含数字和单位
Do
char = Mid(ActiveDocument.Content.Text, endPos + 1, 1)
If char Like "[0-9.]" Or char = "万" Or char = "亿" Then
endPos = endPos + 1
Else
Exit Do
End If
Loop

' 标红完整范围
oRange.SetRange Start:=startPos, End:=endPos - 1
oRange.Font.Color = RGB(255, 0, 0)

' 移动到下一个搜索位置
oRange.Start = endPos + 1
found = oRange.Find.Execute
Loop
End

' 提示完成
MsgBox "已成功标红所有相关内容！", vbInformation
End Sub