I think I have figured out what I needed to do to accomplish my objective. I borrowed and adapted the snippet of code from a SUGI paper:
http://www2.sas.com/proceedings/sugi31/066-31.pdf
data InRTF;
infile "path\filename.rtf" missover length = l end = lastobs lrecl = 2000;
input line $varying2000. l;
line=tranwrd(line, '{\field{\*\fldinst SYMBOL 179 \\f "Symbol" }}', '>=');
line=tranwrd(line, '{\super a} ' , '');
if _n_=55 or _n_=56 then delete;
run;
data _null_;
file "path\filename.rtf" dsd;
set InRTF ;
put line;
run; */