Hi Vivka, thank you so much for the updated code, I have struggled for a long time doing all those changes manually. I was getting an error with this part part of the code...
Code:
.text = "(^13[0-9]{1;})^t"
.Replacement.text = "\1.^t"
.Execute Replace:=wdReplaceAll
so I have updated the code to this which seems to work
Code:
.text = "(^13[0-9]{1,})([ ^t])"
.Replacement.text = "\1.^t"
.Execute Replace:=wdReplaceAll