word vba如何对选中区域查找并返回值

risklin

如下代码是对全文进行千分符设置，我想改为对选中区域设置。有大神会吗？






Sub 全文数字加千分符()
'本代码旨在解决WORD中数据转化为千分位
'数据限定要求:-922,337,203,685,477.5808 到 922,337,203,685,477.5807
'转化结果1000以上数据以千分位计算,小数点右侧保留二位小数;1000以下数据不变
Dim myRange As Range, i As Byte, myValue As Currency
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
NextFind: Set myRange = ActiveDocument.Content '定义为主文档文字部分
With myRange.Find '查找
.ClearFormatting '清除格式
.Text = "[0-9]{4,15}" '4到15位数据
.MatchWildcards = True '使用通配符
Do While .Execute '每次查找成功
i = 2 '起始值为2
'如果是年份，则跳出循环
If myRange.Next(wdCharacter, 1) = "年" Then GoTo 100:

'如果是有小数点
If myRange.Next(wdCharacter, 1) = "." Then
'进行一个未知循环
While myRange.Next(wdCharacter, i) Like "#"
i = i + 1 '只要是[0-9]任意数字则累加
Wend
'重新定义RANGE对象，重新选择区域
myRange.SetRange myRange.Start, myRange.End + i - 1
End If
myValue = VBA.Val(myRange) '保险起见转换为数据,也可省略
myRange = VBA.Format(myValue, "Standard") '转为千分位格式，Standard：标准， _
即带千位分隔号和两位小数?
GoTo NextFind '转到指定行

100:
Loop
End With
Application.ScreenUpdating = True '恢复屏幕更新
End Sub

smiletwo

myRange 换成selection

risklin

smiletwo 发表于 2023-2-9 12:19
myRange 换成selection

好像不行，只能实现一个，太难了。



Sub 选中区域数字加千分符()
'本代码旨在解决WORD中数据转化为千分位
'数据限定要求:-922,337,203,685,477.5808 到 922,337,203,685,477.5807
'转化结果1000以上数据以千分位计算,小数点右侧保留二位小数;1000以下数据不变
Dim i As Byte, myValue As Currency
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕更新
NextFind:
With Selection.Find '查找
.ClearFormatting '清除格式
.Text = "[0-9]{4,15}" '4到15位数据
.MatchWildcards = True '使用通配符
Do While .Execute '每次查找成功
i = 2 '起始值为2
'如果是年份，则跳出循环
If Selection.Next(wdCharacter, 1) = "年" Then GoTo 100:
'如果是有小数点
If Selection.Next(wdCharacter, 1) = "." Then
'进行一个未知循环
While Selection.Next(wdCharacter, i) Like "#"
i = i + 1 '只要是[0-9]任意数字则累加
Wend
'重新定义RANGE对象，重新选择区域
Selection.SetRange Selection.Start, Selection.End + i - 1
End If
myValue = VBA.Val(Selection) '保险起见转换为数据,也可省略
Selection = VBA.Format(myValue, "Standard") '转为千分位格式，Standard：标准， _
即带千位分隔号和两位小数?
GoTo NextFind '转到指定行

100:
Loop
End With
Application.ScreenUpdating = True '恢复屏幕更新
End Sub

risklin

smiletwo 发表于 2023-2-9 12:19
myRange 换成selection

不行呀  只能实现一个，其他的数字无法用