적용이 안되는 이유가 궁금합니다.

적용이 안되는 이유가 궁금합니다.

QA

적용이 안되는 이유가 궁금합니다.

본문

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);
}

더 좋은 답변을 위해 필요한 추가정보를 요청해 보세요.

추가정보요청

이 질문에 댓글 쓰기 :

답변 1

무엇이 적용이 안되는 것인지요?  코드는 가능하면
 
로 감싸주세요.

 

코드는 Python인지, Javascript인지 뭔지도 명시해 주면 좋겠죠.

 

1+1을 했는데 2가 안나옵니다.  식으로 알려주세요.  무조건 안된다고 하면..

답변을 작성하시기 전에 로그인 해주세요.
전체 100,590 | RSS
QA 내용 검색

회원로그인

(주)에스아이알소프트 (06211) 서울특별시 강남구 역삼동 707-34 한신인터밸리24 서관 1404호 대표메일:admin@sir.kr
사업자등록번호:217-81-36347 대표:홍석명 통신판매업신고번호:2014-서울강남-02098호 개인정보보호책임자:김민섭(minsup@sir.kr)

© SIRSOFT