当+(加号)碰上input&Excel测量文本长度

data GHDD;
xxx="+86";
sss=input(xxx,best.);
run;

proc sql noprint;
select strip(name)||" $"||strip(put(max(length),best.)) into:maxlen1 separated by " " from dictionary.columns
where upcase(libname)="WORK" and upcase(memname) in ("TU_T_SCR" "TU_TARGET")
and type="char" and upcase(name) not in ("RECORDDATE")
group by name
having count(name)>1;
run;

%let data_set = sashelp.class;
%let dsid = %sysfunc (open(&data_set));
%let cdate =%sysfunc(attrn(&dsid,crdte));
%let rc=%sysfunc(close(&dsid));
%let cdtcn =%sysfunc(datepart(&cdate));
%put &cdtcn;

proc contents data=raw.dm(keep=subject) noprint out=date(keep=crdate);
run;
proc sql noprint;
    select distinct put(datepart(crdate),yymmddn8.) into:crdate trimmed from date;
run;
%put &crdate.;

Sub FileSave()
    Selection.WholeStory
    Selection.Font.NameFarEast = "宋体"
    Selection.Font.NameAscii = "Times New Roman"
    Selection.HomeKey Unit:=wdStory
    Do
        Selection.Find.ClearFormatting
        Selection.Find.Execute findtext:="^#"
        If Selection.Find.Found = True Then Selection.Font.Name = "Arial"
    Loop Until Selection.Find.Found = False
    Selection.HomeKey Unit:=wdStory
    ActiveDocument.Save
End Sub