# 개요 다른 버전 (스타일?)으로 어떻게 바꿀 수 있을가요?

**URL:** <https://forum.developer.hancom.com/t/topic/751>\
**Category:** 한글 컨트롤\
**Created:** [6월 26, 2023, 5:21오전 UTC](https://forum.developer.hancom.com/t/topic/751 "2023-06-26T05:21:17Z")\
**Posts on this page:** 2\
**Page:** 1

<div class="post-metadata">

**Author:** ![1owt4k](https://avatars.discourse-cdn.com/v4/letter/1/aca169/32.png) [@1owt4k](https://forum.developer.hancom.com/u/1owt4k)\
**Post date:** [6월 26, 2023, 5:21오전 UTC](https://forum.developer.hancom.com/t/topic/751/1 "2023-06-26T05:21:17Z")

</div>

기존 개요를 아래와 같은 형식  
한글에 다른 개요 선택시 바꿀 수 있는 개요로 적용하고 싶은데 어떻게 하면 바꿀 수 있을가요?

 ![한글 개요변경희망](https://us1.discourse-cdn.com/flex016/uploads/hancom_dev_forum/original/1X/a12583b05253a154c07accd88c3d5c7dae7f3695.jpeg)

1. 
2. 
  1. 

```
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 에서 적용해봤는데..  
개요는 다음 레벨 이런 것 까지 잘 되는데  
스타일이 원하는 타입으로 먹히지 않는 것 같습니다.  
뭔가를 놓친 것 같은데 알려주시면 감사하겠습니다.

---

<div class="post-metadata">

**Author:** ![jjeong](https://avatars.discourse-cdn.com/v4/letter/j/3bc359/32.png) [@jjeong](https://forum.developer.hancom.com/u/jjeong)\
**Post date:** [6월 28, 2023, 1:47오전 UTC](https://forum.developer.hancom.com/t/topic/751/2 "2023-06-28T01:47:40Z")

</div>

안녕하세요!

제가 VBA로는 한글컨트롤을 사용해보지 않아서 첨부해주신 코드로 테스트는 못해보지만

OutlineShapeSet.SetItem “NumFormatLevel0, 0  
OutlineShapeSet.SetItem “NumFormatLevel1, 0  
OutlineShapeSet.SetItem “NumFormatLevel2, 0  
OutlineShapeSet.SetItem “NumFormatLevel3, 0  
OutlineShapeSet.SetItem “NumFormatLevel4, 0  
OutlineShapeSet.SetItem “NumFormatLevel5, 0  
OutlineShapeSet.SetItem “NumFormatLevel6, 0  
OutlineShapeSet.SetItem “NumFormatLevel7, 0  
OutlineShapeSet.SetItem “NumFormatLevel8, 0  
OutlineShapeSet.SetItem “NumFormatLevel9, 0

을 추가하고 한번 테스트 해보시면 될 듯 합니다.

추가로 궁금한 점 있으시면 언제든지 문의주세요.