1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub DeleteAllStyles() Dim stlStyle As Style Dim I I = 0 On Error Resume Next For I = 0 To 402 ActiveWorkbook.Styles.Item(I).Delete Next MsgBox ActiveWorkbook.Styles.Count End Sub | cs |
'개발 > 기타' 카테고리의 다른 글
| [VS Code] 유용한 플러그인 소개 (0) | 2019.01.18 |
|---|---|
| [VBA] Office 리본 메뉴 한글명 사용하기 (0) | 2019.01.16 |
| [VBA] Word 목차 만들기 & 업데이트 (0) | 2019.01.16 |
| [VBA]Word CustomDocumentProperties 추가 (0) | 2019.01.16 |
| [형상관리툴] Git 정보 (0) | 2019.01.16 |
