기존 개요를 아래와 같은 형식
한글에 다른 개요 선택시 바꿀 수 있는 개요로 적용하고 싶은데 어떻게 하면 바꿀 수 있을가요?
1. 1. 1.
1. 1. 1. 1.
1. 1. 1. 1. 1.
.....
Excel 32bit VBA , HwpCtrl 로 개요 작성
Dim OutlineNumberAction As HwpAction
Dim SecDefSet As HwpParameterSet
Dim OutlineShapeSet As HwpParameterSet
Set OutlineNumberAction = HwpCtrl1.CreateAction(“OutlineNumber”)
Set SecDefSet = OutlineNumberAction.CreateSet(“SecDef”)
OutlineNumberAction.GetDefault SecDefSet
SecDefSet.SetItem(“ApplyClass”, 24);
SecDefSet.SetItem(“ApplyTo”, 3);
Set OutlineShapeSet = SecDefSet.Item(“OutlineShape”)
OutlineShapeSet.SetItem “UseInstWidthLevel0”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel1”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel2”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel3”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel4”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel5”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel6”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel7”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel8”, 1
OutlineShapeSet.SetItem “UseInstWidthLevel9”, 1
OutlineShapeSet.SetItem “StrFormatLevel0”, “^1.”
OutlineShapeSet.SetItem “StrFormatLevel1”, “^1.^2”
OutlineShapeSet.SetItem “StrFormatLevel2”, “^1.^2.^3”
OutlineShapeSet.SetItem “StrFormatLevel3”, “^1.^2.^3.^4”
OutlineShapeSet.SetItem “StrFormatLevel4”, “^1.^2.^3.^4.^5”
OutlineShapeSet.SetItem “StrFormatLevel5”, “^1.^2.^3.^4.^5.^6”
OutlineShapeSet.SetItem “StrFormatLevel6”, “^1.^2.^3.^4.^5.^6.^7”
OutlineShapeSet.SetItem “StrFormatLevel7”, “^1.^2.^3.^4.^5.^6.^7.^8”
OutlineShapeSet.SetItem “StrFormatLevel8”, “^1.^2.^3.^4.^5.^6.^7.^8.^9”
OutlineShapeSet.SetItem “StrFormatLevel9”, “^1.^2.^3.^4.^5.^6.^7.^8.^9.^:”
OutlineShapeSet.SetItem “NewList”, 0
OutlineNumberAction.Execute SecDefSet
한글 스크립트에서 적용된 내용을 VBA 에서 적용해봤는데…
개요는 다음 레벨 이런 것 까지 잘 되는데
스타일이 원하는 타입으로 먹히지 않는 것 같습니다.
뭔가를 놓친 것 같은데 알려주시면 감사하겠습니다.