You just need a couple of minor tweaks.

To get the name and file type correct in the SaveAs dialog box, add these two lines after the With Dialogs(wdDialogFileSaveAs) statement:

        .Name = "NameOfTitle.txt"
        .Format = wdFormatText
To fix the RunCount, add this section after the existing Find/Replace:

        baseFile.Range.Find.Execute _
            FindText:="RunCount=" & Chr(34) & "4" & Chr(34), _
            MatchCase:=False, _
            ReplaceWith:="RunCount=" & Chr(34) & Len(replaceText) + 1 & Chr(34), _
            Replace:=wdReplaceAll
That replaces the "4" with one greater than the length of the string used to replace "XYZ".

I did download your Title.prtl file and tested the code with it. As best I can tell without the Adobe software, it works.