Sub Aņade2Comas()
' Paul Beverley - Version 14.01.21
' Aņade comas a los incisos

myEnd = Selection.End
If Selection = "." Then Selection.MoveLeft, 1
Selection.Collapse wdCollapseStart
Selection.Expand wdWord
Selection.Collapse wdCollapseStart
Selection.TypeText ", "
Selection.Start = myEnd
Selection.Expand wdWord
Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0
 Selection.MoveEnd, -1
 DoEvents
Loop
If isNumber Then
 Selection.MoveEndWhile cset:="0123456789.", Count:=wdForward
End If
Selection.Collapse wdCollapseEnd
Selection.TypeText ","
 With Selection.Find
 .Text = ", "
 .Replacement.Text = ", "
 .Forward = True
 .Wrap = wdFindContinue
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub