你好，我想在十进制值之前插入零，但它被跳过并进入循环，下面的过程被创建找到错误

Question

Public Sub addzerobfrdecimal()     

cleanfnd
Selection.find。执行findtext: ="((。[0-9]{1，}[])"， MatchWildcards:=True, Forward:=True
St = select . range。Start
ed = select . range。
结束ActiveDocument。范围(圣,ed)。选择
如果Select .find.found则
Select .find.found。执行findtext: ="((。][0 - 9]{1,}[])",ReplaceWith: ="0 1",取代:= wdReplaceOne
选择。移动字符，1
select .find。执行findtext: ="((。[0-9]{1，}[])"， MatchWildcards:=True, Forward:=True
Else
MsgBox "无法找到发生事件"， vbCritical
End If
End Sub

Answer 1

在我看来，你所需要的只是一个通配符查找/替换在哪里:

Find = ([!0-9])(.[0-9])
Replace = 102

你甚至不需要一个宏…