That is achived via the call to the ParseNumSeq function found in the TabulateUndefinedKeyTerms macro. Change:
Code:
StrOut = StrOut & strFnd & vbTab & Replace(Replace(ParseNumSeq(StrPages, "&"), ",", ", "), " ", " ") & vbCr
to:
Code:
StrOut = StrOut & strFnd & vbTab & Replace(Replace(ParseNumSeq(StrPages, "and"), ",", ", "), " ", " ") & vbCr