function OnScriptMacro_족보흔적제거v1()
{
//1. 수식의 표식 제거
//2. 문제번호 앞 빈 수식 제거
//3. 표식있는 빈 수식 제거
//4. 미주에서 누름틀 제거
//5. 문제번호 앞에 "zb"표식제거
//6. 묶음빈칸 제거
//7. 선택지12345그림을 원문자로 바꾸기

   var ec=HeadCtrl;
   var hc=HeadCtrl;
   var set=CreateSet("ShapeObject");

  
   do{
      if(ec.CtrlID=="eqed"){   
         set = ec.Properties;
         String=set.Item("String");
         str1=String.search("\$");
         if(str1==0){
            DeleteCtrl(ec);//빈수식제거
         }
         astr=String.search("from"); 
         if(astr==0){
            DeleteCtrl(ec);//표식있는 빈수식제거
         }
         set.SetItem("String", jok(set.Item("String")));     
         ec.Properties=set;
      }
      ec=ec.Next;
   } while(ec)

   do{
      if(hc.CtrlID=="en"){
         HAction.GetDefault("Goto", HParameterSet.HGotoE.HSet);
         with (HParameterSet.HGotoE)
         {
         HSet.SetItem("DialogResult", 31);
         SetSelectionIndex = 5;
         }
         HAction.Execute("Goto", HParameterSet.HGotoE.HSet);
         Run("MoveSelPrevWord");
         txt=GetTextFile("TEXT", "saveblock");
         if(txt="1. zb"){txt="ok"+","+txt
            Run("Delete");
         }
         MovePos(12,0,0);
      }
      hc=hc.Next;
   }while(hc)

   HAction.GetDefault("DeleteCtrls", HParameterSet.HDeleteCtrls.HSet);
   with (HParameterSet.HDeleteCtrls)
   {
      CreateItemArray("DeleteCtrlType", 1);
      DeleteCtrlType.Item(0) = 17;   //누름틀제거
   }
   HAction.Execute("DeleteCtrls", HParameterSet.HDeleteCtrls.HSet);

   HAction.GetDefault("AllReplace", HParameterSet.HFindReplace.HSet);
   with (HParameterSet.HFindReplace)
   {
      Direction = FindDir("AllDoc");
      FindString = "^r";   //묶음빈칸제거
      ReplaceString = " ";
      ReplaceMode = 1;
      IgnoreMessage = 1;
      FindType = 1;
   }
   HAction.Execute("AllReplace", HParameterSet.HFindReplace.HSet);

   j1 = 7451;
   j2 = 7778;
   j3 = 7905;
   j4 = 7839;
   j5 = 7867;

   var cc=HeadCtrl;

   do{
      if(cc.CtrlID=="gso")
      {   
         set = cc.Properties;

         if(set.ItemExist("ShapeDrawImageAttr"))
         {  
            subset=set.Item("ShapeDrawImageAttr");
            spath=GetBinDataPath(subset.Item("FileName"));
            spath=spath.replace(/\\/g, "\\\\");

            if(fileSize(spath)==j1)
            {
               ret=SetPosBySet(cc.GetAnchorPos(0));
               HAction.Run("MoveSelRight");
               w_fn("①");
            }

            if(fileSize(spath)==j2)
            {
               ret=SetPosBySet(cc.GetAnchorPos(0));
               HAction.Run("MoveSelRight");
               w_fn("②");
            }

            if(fileSize(spath)==j3)
            {
               ret=SetPosBySet(cc.GetAnchorPos(0));
               HAction.Run("MoveSelRight");
               w_fn("③");
            }

            if(fileSize(spath)==j4)
            {
               ret=SetPosBySet(cc.GetAnchorPos(0));
               HAction.Run("MoveSelRight");
               w_fn("④");
            }

            if(fileSize(spath)==j5)
            {
               ret=SetPosBySet(cc.GetAnchorPos(0));
               HAction.Run("MoveSelRight");
               w_fn("⑤");
            }
         }
      }
      cc=cc.Next;
   }while(cc)
}

function jok(st){
   if(astr>0){
      bstr=st.substring(0,astr);
      st=bstr;
      st=st.replace(/\n*\r*/g, "");//표식제거
   }
   return st;
}

function fileSize(p){
   var myFSO = new ActiveXObject("Scripting.FileSystemObject");
   var filePath = p;
   var theFile = myFSO.getFile(filePath);
   return  theFile.size;
}

function w_fn(www)
{
   HAction.GetDefault("InsertText", HParameterSet.HInsertText.HSet);
   HParameterSet.HInsertText.Text = www;
   HAction.Execute("InsertText", HParameterSet.HInsertText.HSet);
}