미주의 뒤 장식문자 바꾸기

한글 오토메이션
1

IDHwpAction dact = hwpXDoc.CreateAction(“FootnoteOption”);
IDHwpParameterSet dset = dact.CreateSet();
dact.GetDefault(dset);
IDHwpParameterSet fnset = dset.CreateItemSet(“FootnoteShape”, “FootnoteShape”);
fnset.SetItem(“Suffix”, 46);
dset.SetItem(“ApplyTo”, 2);
dset.SetItem(“ApplyClass”, 28);
dact.Execute(dset);

C# 에서 위와 같이 시도해 보았는 데, 안되는 군요.
미주를 하나 만든후 빠져 나와서 해도 안됩니다.

IDHwpParameterSet fnset = dset.CreateItemSet(“FootnoteShape”, “FootnoteShape”); 을
IDHwpParameterSet fnset = dset.CreateItemSet(“EndnoteShape”, “EndnoteShape”);로

바꾸어 해도 안됩니다. ㅠㅠ

포럼에 검색을 해봐도 마땅한 자료가 없네요.
기본 장식 문자 1) 을 1. 으로 바꾸고 싶습니다.
도와 주세요.

2

아래 코드는 매크로 코드입니다.

c# 코드 변환은 가능 하실거라 생각합니다.

function OnScriptMacro_script1()
{
	var enAction;
	var enSet;
	var enSubSet;

	var ctrl = HeadCtrl;
	while (ctrl != null)
	{
		if (ctrl.CtrlID == "en")
		{
			enAction = CreateAction("FootnoteOption");
			enSet = enAction.CreateSet();
			enAction.GetDefault(enSet);

			enSubSet = enSet.Item("EndnoteShape");
			enSubSet.SetItem("Suffix", 46);

			enSet.SetItem("EndnoteShape", enSubSet);
			enSet.SetItem("ApplyTo", 2);
			enSet.SetItem("ApplyClass", 28);

			enAction.Execute(enSet);
		}
		ctrl = ctrl.Next;
	}
}

미주 뒷 장식 변경

//——————————————

위 방식 말고 아래 코드와 같이 할 수 있습니다.

function OnScriptMacro_script1()
{
	var ctrl = HeadCtrl;
	while (ctrl != null)
	{
		if (ctrl.CtrlID == "en")
		{
			HAction.GetDefault("FootnoteOption", HParameterSet.HSecDef.HSet);
			with (HParameterSet.HSecDef)
			{
				EndnoteShape.Suffix = 46;
				EndnoteShape.LineLength = 42520;
				HSet.SetItem("ApplyTo", 2);
				HSet.SetItem("ApplyClass", 28);
			}
			HAction.Execute("FootnoteOption", HParameterSet.HSecDef.HSet);

		}
		ctrl = ctrl.Next;
	}
}
1개의 좋아요
3

와! 훌륭한 코드입니다.

감사합니다. 큰 도움이 되었습니다.^^