word里面怎么达到货币分割效果？
发布网友
发布时间：2022-04-21 02:20
共2个回答
热心网友
时间：2022-06-17 07:42
Dim rng As Range
Set rng = ActiveDocument.Range
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute(findtext:="[0-9]{1,}[!年月日]", MatchWildcards:=True)
rng.SetRange rng.Start, rng.End - 1
rng = Format(rng, "##,###.00")
rng.SetRange rng.End, ActiveDocument.Range.End
Loop
End With
End Sub
热心网友
时间：2022-06-17 07:42
