Question

word中怎么批量更改数字

我word文档里又很多数字为456、 457、 458、等等，怎么编写个宏或者替换方法，变成1、 2、 用宏应该可以，但是必须针对是带“、”号的数字，怎么写就不会了。那位大神指导下，谢谢
用的其他地方找到，带、数字也改了。不带、的数字也一起改了。
Sub shux()
Dim Rng As Range, Shu As Double
Set Rng = ActiveDocument.Content
With Rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
Do While .Execute(findtext:="[0-9.-]{1,}") '包括小数和负数
MsgBox Rng
If VBA.IsNumeric(Rng) Then
Shu = Replace(Rng, Rng, Rng + 15) '原值加15
Rng = Shu
End If
Rng.SetRange Rng.End, ActiveDocument.Content.End
Loop
End With
End Sub

Answer 1

Sub shux()
Dim Rng As Range, Shu As Double
Set Rng = ActiveDocument.Content
With Rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
Do While .Execute(findtext:="[0-9.-]{1,}、") '包括小数和负数
'MsgBox Rng
Rng = Left(Rng, Len(Rng) - 1)
If VBA.IsNumeric(Rng) Then
Shu = Replace(Rng, Rng, Rng - 455) '原值减455
Rng = Shu & "、"
End If
Rng.SetRange Rng.End, ActiveDocument.Content.End
Loop
End With
End Sub

Answer 2

直接用更改，然后写更改前后的字，用全部，就都改了。