The following command would be quite close to your current macro.
You may give it a try:
{Ctrl Shift Left}{Wrap}
{CopySelection}{Wrap}
{ReplaceAllClipboard}
wholeWord = "n"
matchCase = "n"
preserveCase = "n"
findWhat = "."
replaceWith = "{period}"
{/ReplaceAllClipboard}{Wrap}
{ReplaceAllClipboard}
wholeWord = "n"
matchCase = "n"
preserveCase = "n"
findWhat = ","
replaceWith = "{comma}"
{/ReplaceAllClipboard}{Wrap}
{ReplaceAllClipboard}
wholeWord = "n"
matchCase = "n"
preserveCase = "n"
findWhat = "{period}"
replaceWith = ","
{/ReplaceAllClipboard}{Wrap}
{ReplaceAllClipboard}
wholeWord = "n"
matchCase = "n"
preserveCase = "n"
findWhat = "{comma}"
replaceWith = "."
{/ReplaceAllClipboard}{Wrap}
{Paste}{Wrap}
{NoSpacing}