한글 문서 내의 모든 미주에 적용될 스타일을 변경시켜주는 매크로입니다.
한글 2010SE+ 최신패치버젼에서 작성되고 동작 확인하였습니다.
다른 버전에서는 오류발생할 수 있습니다.
function OnScriptMacro_scr미주스타일변경()
{
s=InputBox("미주에 적용할 스타일 번호를 적어주세요(1-9,0). 예)2, 3, 4", "미주스타일변경")
if(s>9||s<0||s==null){alert("스타일 번호를 입력하지 않거나 잘못된 스타일 번호입니다.");return;};
var cc=HeadCtrl;
do{
if(cc.CtrlID=="en"){
ret=setPosBySet(cc.GetAnchorPos(0));
Run("MoveNextPosEx");
Run("SelectAll");
Run("StyleShortcut"+s);
}
cc=cc.Next;
} while(cc)
}
function InputBox(prompt, title) {
if ( prompt === undefined ) prompt = '';
if ( title === undefined ) title = '';
var script = new ActiveXObject('MSScriptControl.ScriptControl');
script.language = 'vbscript';
return script.eval('inputbox("' + prompt + '","' + title + '")');
}
function alert(s){
XHwpMessageBox.String=s;
XHwpMessageBox.DoModal();
}
scr미주스타일변경.msr