¿À·ù³»¿ë:
¼¿ ¼­½ÄÀÌ ³Ê¹« ¸¹½À´Ï´Ù.
´õ ÀÌ»ó »ç¿ëÀÚ ¼¿ Á¤ÀÇ ¾ç½ÄÀ» Ãß°¡ÇÒ¼ö ¾ø½À´Ï´Ù.
(¿¢¼¿ 2003 ÀÌÇÏ¹öÀü¿¡¼­ ¸ÅÅ©·Î ¹ÙÀÌ·¯½º Ä¡·áÇÑ ÆÄÀÏ¿¡¼­ ÀÚÁÖ ¹ß»ý)


 * ¸ÅÅ©·Î ¹ÙÀÌ·¯½º¿¡ ÀÇÇØ »ý¼ºµÈ ¼¿ ¼­½ÄÀ» »èÁ¦ÇØ¾ß ÇÕ´Ï´Ù. 
1. »õ·Î ¹®¼­¸¦ ¸¸µé¾î¼­ ½ÃÆ®¸¦ º¹»çÇØ »ç¿ëÇÏ´Â¹æ¹ý(¸Ó¸®¾ÆÇÄ)

2. ¹®¼­ÀÇ ¼¿ ¼­½ÄÀ» »èÁ¦ ÇÏ´Â¹æ¹ý


[µµ±¸]-[¸ÅÅ©·Î]-[¸ÅÅ©·Î] ¸Þ´º¸¦ Å¬¸¯ÇÕ´Ï´Ù. 
    (Office 2007Àº [º¸±â]-[¸ÅÅ©·Î])
¸ÅÅ©·Î ÀÌ¸§ ÀÔ·Â¶õ¿¡ "¼¿¼­½Ä»èÁ¦"¸¦ ÀÔ·Â ÈÄ [¸¸µé±â]¹öÆ°À» Å¬¸¯ÇÕ´Ï´Ù  
¸ÅÅ©·Î ÆíÁýÃ¢ÀÌ ¿­¸®¸é ¾Æ·¡ ÄÚµå¸¦ ºÙ¿©³Ö±â ÈÄ Ã¢À» ´Ý½À´Ï´Ù.
---------------------------------------
Dim n As Integer, yn As Byte
On Error Resume Next

For n = ActiveWorkbook.Styles.Count To 1 Step -1
    If Not (ActiveWorkbook.Styles(n).Name = "Normal") Then
        ActiveWorkbook.Styles(n).Delete
    End If
Next
--------------------------------------- 

´Ù½Ã [µµ±¸]-[¸ÅÅ©·Î]-[¸ÅÅ©·Î] ¸Þ´º( Office 2007Àº [º¸±â]-[¸ÅÅ©·Î] ¿¡¼­ 
¸ÅÅ©·Î ±ÛÀÚÀ§ÀÇ ÀÌ¹ÌÁö Å¬¸¯ )¸¦ Å¬¸¯ÇÏ¿© ¸ÅÅ©·Î Ã¢À» ¿¬ ÈÄ 
¹æ±Ý »ý¼ºÇÑ "¼¿¼­½Ä»èÁ¦" ¸ÅÅ©·Î¸¦ ½ÇÇà ½ÃÅµ´Ï´Ù.
¹®¼­ ÀúÀåÈÄ ºÒ·¯¿À±â




¡Ø ÀÌ¸§ÀÌ Áßº¹µÈ´Ù°í ³ª¿Ã ½Ã ¾Æ·¡ ÄÚµå Ãß°¡
----------------------------------
Dim tName As Name
On Error Resume Next

For Each tName In Names
    tName.Delete
Next tName
---------------------------------- 
