However I think you could use the following, because your errors were due to ; instead of , in figure brackets, not due to additional () (see the Note in my previous post)
Code:
.text = "(^13[0-9]{1,})^t"
.Replacement.text = "\1.^t"
.Execute Replace:=wdReplaceAll