한글 스크립트 분석 오류 - hangeul seukeulibteu bunseog olyu

https://m.cafe.daum.net/hwp-script-db/bSM9/19?listURI=%2Fhwp-script-db%2FbSM9

이 글을 보고 적용해 보고 싶어서 노력하고 있는데 잘 안 되네요. 

작성글대로 엑셀로 파일을 만들고 불러온 다음에 적용을 누르면 

유튜브 동영상처럼 

59줄(마지막줄)에 개체가 필요하다고 나오네요. 

제가 뭐를 잘못하고 있는 걸까요? 링크글에서 한글만 지우고 붙여넣은 스크립트입니다. 

function OnScriptMacro_script1()

{ 

HAction.GetDefault("FindDlg", HParameterSet.HFindReplace.HSet);

HAction.Execute("FindDlg", HParameterSet.HFindReplace.HSet);

HAction.GetDefault("AllReplace", HParameterSet.HFindReplace.HSet);

with (HParameterSet.HFindReplace)

{

MatchCase = 0;

AllWordForms = 0;

SeveralWords = 0;

UseWildCards = 0;

WholeWordOnly = 0;

AutoSpell = 0;

Direction = FindDir("AllDoc");

IgnoreFindString = 0;

IgnoreReplaceString = 0;

FindString = "{{처음말}}";

ReplaceString = "{{바꿀말}}";

ReplaceCharShape.ShadeColor = RGBColor(217, 217, 9);

ReplaceMode = 1;

IgnoreMessage = 1;

HanjaFromHangul = 0;

FindJaso = 0;

FindRegExp = 0;

FindStyle = "";

ReplaceStyle = "";

FindType = 1;

}

HAction.Execute("AllReplace", HParameterSet.HFindReplace.HSet);

}