Add 0 before decimal point through VBA
Hi,
In my MS Word document, there are about 50 pages. I need to add "0" where decimal value is in this format .25 or any Number. I need VBA code.
I have tried with below, but it is time consuming is there other way of doing same.
Sub a()
With ActiveDocument
For i = 1 To .Words.Count
If .Words(i).Text = "." Then
If IsNumeric(.Words(i).Text & .Words(i + 1).Text) And .Words(i - 1).Text "0" Then
.Words(i).Text = "0" & .Words(i).Text
i = i + 2
End If
End If
Next
End With
End Sub
Thanks in advance
Regards,
Sudhir.
|