Attribute VB_Name = "modRenameFiles"
Option Explicit

' Àü¿ª º¯¼ö
Public userSelectionType As Integer
Private Const DUP_COL As Long = 16     ' Áߺ¹´Ü¾î ¸ñ·Ï ½ÃÀÛ ¿­(P)

' =================================================================================================
' 1: Æú´õ/ÆÄÀÏ ¸ñ·Ï °¡Á®¿À±â (¼û±èÆú´õ, .tmp Á¦¿Ü ¹Ý¿µ)
' =================================================================================================
Sub p001_Æú´õ¼±ÅÃ(control As IRibbonControl)
    Dim fso As Object, sourceFolder As Object, subFolder As Object, fileItem As Object
    Dim folderPath As String, sheetName As String
    Dim wb As Workbook, ws As Worksheet
    Dim i As Long
    Dim fileNameWithoutExt As String, fileExt As String

    Set wb = ActiveWorkbook
    If wb Is Nothing Then
        MsgBox "ÀÛ¾÷À» ½ÇÇàÇÒ ¿¢¼¿ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.", vbExclamation
        Exit Sub
    End If

    userSelectionType = 0
    userSelectionType = UI_Choose("ÀÛ¾÷ À¯Çü ¼±ÅÃ", "À̸§À» ¹Ù²Ü ´ë»óÀ» °í¸£¼¼¿ä.", Array("Æú´õ", "ÆÄÀÏ", "Æú´õ ¹× ÆÄÀÏ"))

    If userSelectionType = 0 Then
        MsgBox "ÀÛ¾÷ÀÌ Ãë¼ÒµÇ¾ú½À´Ï´Ù.", vbInformation
        Exit Sub
    End If

    With Application.FileDialog(msoFileDialogFolderPicker)
        .title = "±âÁØ Æú´õ¸¦ ¼±ÅÃÇϼ¼¿ä."
        If .Show <> -1 Then
            MsgBox "Æú´õ¸¦ ¼±ÅÃÇÏÁö ¾Ê¾Æ ÀÛ¾÷À» Ãë¼ÒÇÕ´Ï´Ù.", vbExclamation
            Exit Sub
        End If
        folderPath = .SelectedItems(1)
    End With

    Application.ScreenUpdating = False

    Select Case userSelectionType
        Case 1: sheetName = "Æú´õ"
        Case 2: sheetName = "ÆÄÀÏ"
        Case 3: sheetName = "Æú´õ¹×ÆÄÀÏ"
    End Select

    Application.DisplayAlerts = False
    On Error Resume Next
    wb.Sheets(sheetName).Delete
    On Error GoTo 0
    Application.DisplayAlerts = True

    Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ws.name = sheetName

    Call CreateMacroButtons(ws)
    Call SetupHeaders(ws)

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set sourceFolder = fso.GetFolder(folderPath)
    ws.Range("A2").value = sourceFolder.name
    ws.Hyperlinks.Add anchor:=ws.Range("B2"), Address:=folderPath, TextToDisplay:=folderPath

    i = 4

    ' Æú´õ ¸ñ·Ï °¡Á®¿À±â
    If userSelectionType = 1 Or userSelectionType = 3 Then
        For Each subFolder In sourceFolder.SubFolders
            ' ¼û±è Æú´õ Á¦¿Ü (vbHidden = 2)
            If (subFolder.Attributes And vbHidden) = 0 Then
                ws.cells(i, "B").value = "  " & subFolder.name
                ws.cells(i, "C").value = "Æú´õ"
                i = i + 1
            End If
        Next subFolder
    End If

    ' ÆÄÀÏ ¸ñ·Ï °¡Á®¿À±â
    If userSelectionType = 2 Or userSelectionType = 3 Then
        For Each fileItem In sourceFolder.files
            ' .tmp ÆÄÀÏ ¹× ¿¢¼¿ ÀÓ½ÃÆÄÀÏ(~$) Á¦¿Ü
            If InStr(1, fileItem.name, ".tmp", vbTextCompare) = 0 And Left(fileItem.name, 2) <> "~$" Then
                fileExt = fso.GetExtensionName(fileItem.path)
                fileNameWithoutExt = fso.GetBaseName(fileItem.path)
                ws.cells(i, "B").value = "  " & fileNameWithoutExt
                ws.cells(i, "C").value = fileExt
                i = i + 1
            End If
        Next fileItem
    End If

    Call ApplyDataFormatting(ws)
    Application.ScreenUpdating = True
    MsgBox "'" & sheetName & "' ½ÃÆ®¿¡ ¸ñ·Ï »ý¼ºÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù.", vbInformation
End Sub

Public Sub p001_¸ñ·Ï»ý¼º()
    p001_Æú´õ¼±Åà Nothing
End Sub

' =================================================================================================
' 2: ´Ü¾î ÃßÃâ ¹× À̸§ Á¶ÇÕ
' =================================================================================================
Public Sub p002_À̸§°¡Á®¿À±â()
    Dim wb As Workbook, ws As Worksheet, part As Variant
    Dim lastRow As Long, i As Long, j As Long, lastCol As Long
    Dim originalName As String, nameParts() As String, keyword As String

    Set wb = ActiveWorkbook
    If wb Is Nothing Then Exit Sub
    Set ws = wb.ActiveSheet
    If Not IsValidSheet(ws) Then Exit Sub

    Application.ScreenUpdating = False

    lastRow = ws.cells(ws.rows.Count, "B").End(xlUp).row
    If lastRow < 4 Then
        Application.ScreenUpdating = True
        MsgBox "¸ñ·ÏÀÌ ¾ø½À´Ï´Ù. ¸ÕÀú [1 ¸ñ·Ï »ý¼º]À» ´©¸£¼¼¿ä.", vbExclamation
        Exit Sub
    End If
    lastCol = ws.cells(2, ws.Columns.Count).End(xlToLeft).Column
    If lastCol < 6 Then lastCol = 10
    If Application.WorksheetFunction.CountA(ws.Range(ws.cells(3, 6), ws.cells(3, lastCol))) = 0 Then
        Application.ScreenUpdating = True
        MsgBox "3Çà F¿­ºÎÅÍ(´Ü¾îÀÔ·Â1~) ãÀ» ´Ü¾î¸¦ ÀÔ·ÂÇÑ µÚ [2 ´Ü¾î ÃßÃâ]À» ´©¸£¼¼¿ä." & vbCrLf & _
               "¿¹: º¸°í¼­, 2026 ¡æ À̸§¿¡¼­ ±× ´Ü¾î°¡ µç ºÎºÐ¸¸ »Ì¾Æ D¿­¿¡ Á¶ÇÕÇÕ´Ï´Ù.", vbInformation
        Exit Sub
    End If
    For i = 4 To lastRow
        originalName = Trim(ws.cells(i, "B").value)
        nameParts = Split(ReplaceCharsWithSpace(originalName), " ")

        For j = 6 To lastCol
            keyword = ws.cells(3, j).value
            If keyword <> "" Then
                ws.cells(i, j).ClearContents
                For Each part In nameParts
                    If InStr(1, part, keyword, vbTextCompare) > 0 Then
                        ws.cells(i, j).value = part
                        Exit For
                    End If
                Next part
            End If
        Next j
        Call UpdateCombinedName(ws, i)
    Next i

    For j = 6 To lastCol
        If ws.cells(3, j).value <> "" Then ws.cells(3, j).Interior.color = RGB(144, 238, 144)
    Next j

    Call ApplyDataFormatting(ws)
    Application.ScreenUpdating = True
End Sub

' =================================================================================================
' 3: ´Ü¾îÀÔ·Â Ãß°¡
' =================================================================================================
Public Sub p_´Ü¾îÀÔ·ÂÃß°¡()
    Dim ws As Worksheet, lastCol As Long

    Set ws = ActiveSheet
    If Not IsValidSheet(ws) Then Exit Sub

    lastCol = ws.cells(2, ws.Columns.Count).End(xlToLeft).Column
    If lastCol < 5 Then lastCol = 5
    
    lastCol = lastCol + 1
    ws.cells(2, lastCol).value = "´Ü¾îÀÔ·Â" & (lastCol - 5)
    ws.Columns(lastCol).NumberFormat = "@"
    ws.cells(3, lastCol).Interior.ColorIndex = xlNone
    
    With ws.Range(ws.cells(3, 1), ws.cells(3, lastCol))
        .Font.Bold = True
        .Interior.color = RGB(173, 216, 230)
        .Borders.LineStyle = xlContinuous
    End With
    ws.cells(3, lastCol).Interior.ColorIndex = xlNone

    Call ApplyDataFormatting(ws)
End Sub

' =================================================================================================
' 4: À̸§ ¼öµ¿ ¼³Á¤
' =================================================================================================
Public Sub p003_À̸§»õ·Î¼³Á¤()
    Dim wb As Workbook, ws As Worksheet
    Dim lastRow As Long, i As Long, j As Long, lastCol As Long
    Dim keyword As String

    Set wb = ActiveWorkbook
    If wb Is Nothing Then Exit Sub
    Set ws = wb.ActiveSheet
    If Not IsValidSheet(ws) Then Exit Sub

    Application.ScreenUpdating = False

    lastRow = ws.cells(ws.rows.Count, "B").End(xlUp).row
    If lastRow < 4 Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
    lastCol = ws.cells(2, ws.Columns.Count).End(xlToLeft).Column
    If lastCol < 6 Then lastCol = 10

    For j = 6 To lastCol
        keyword = ws.cells(3, j).value
        If keyword <> "" Then
            ws.cells(3, j).Interior.color = RGB(255, 255, 224)
            If Application.WorksheetFunction.CountA(ws.Range(ws.cells(4, j), ws.cells(lastRow, j))) = 0 Then
                ws.Range(ws.cells(4, j), ws.cells(lastRow, j)).value = keyword
            End If
        End If
    Next j

    For i = 4 To lastRow
        Call UpdateCombinedName(ws, i)
    Next i

    Call ApplyDataFormatting(ws)
    Application.ScreenUpdating = True
End Sub

' =================================================================================================
' 5: À̸§ º¯°æ (¼öÁ¤º» - ÇÙ½É ¹ö±× ¼öÁ¤)
' =================================================================================================
Public Sub p004_À̸§º¯°æ()
    Dim wb As Workbook, ws As Worksheet, fso As Object
    Dim folderPath As String, oldName As String, newName As String, fileExt As String
    Dim oldPath As String, newPath As String
    Dim lastRow As Long, i As Long, successCount As Long, failCount As Long
    Dim skipCount As Long, finalNewName As String
    Dim invalidChars As String, c As String, k As Integer
    Dim foundFile As String, isFolder As Boolean

    Set wb = ActiveWorkbook
    If wb Is Nothing Then Exit Sub
    Set ws = wb.ActiveSheet
    If Not IsValidSheet(ws) Then Exit Sub
    Set fso = CreateObject("Scripting.FileSystemObject")

    On Error Resume Next
    If ws.Range("B2").Hyperlinks.Count > 0 Then
        folderPath = ws.Range("B2").Hyperlinks(1).Address
    Else
        folderPath = Trim(ws.Range("B2").value)
    End If
    On Error GoTo 0

    If folderPath = "" Or Not fso.FolderExists(folderPath) Then
        MsgBox "±âÁØ Æú´õ °æ·Î°¡ À¯È¿ÇÏÁö ¾Ê½À´Ï´Ù.", vbCritical
        Exit Sub
    End If

    lastRow = ws.cells(ws.rows.Count, "B").End(xlUp).row
    If lastRow < 4 Then
        Application.ScreenUpdating = True
        Exit Sub
    End If

    If UI_Choose("À̸§ º¯°æ È®ÀÎ", lastRow - 3 & "°³ Ç׸ñÀÇ À̸§À» D¿­(À̸§ º¯°æ) °ªÀ¸·Î ½ÇÁ¦ º¯°æÇÕ´Ï´Ù. ½ÃÀÛÇÒ±î¿ä?" & vbCrLf & "(°á°ú´Â E¿­¿¡ Ç¥½ÃµË´Ï´Ù)", Array("À̸§ º¯°æ ½ÃÀÛ", "Ãë¼Ò")) <> 1 Then Exit Sub

    Application.ScreenUpdating = False
    successCount = 0: failCount = 0: skipCount = 0
    invalidChars = "\/:*?""<>|"

    For i = 4 To lastRow
        ws.cells(i, "E").ClearContents
        ws.cells(i, "E").Interior.ColorIndex = xlNone

        ' B¿­ ¿øº» À̸§ (¾Õ °ø¹é 2Ä­ Á¦°Å)
        oldName = Trim(ws.cells(i, "B").value)
        newName = Trim(ws.cells(i, "D").value)
        fileExt = Trim(ws.cells(i, "C").value)
        isFolder = (LCase(fileExt) = "Æú´õ")

        ' [°ËÁõ 1] »õ À̸§ ºñ¾îÀÖÀ½
        If newName = "" Then
            ws.cells(i, "E").value = "½ÇÆÐ: »õ À̸§ ¾øÀ½"
            ws.cells(i, "E").Interior.color = RGB(255, 200, 200)
            failCount = failCount + 1
            GoTo NextItem
        End If

        ' [°ËÁõ 2] »õ À̸§¿¡ ±ÝÁö¹®ÀÚ Æ÷ÇÔ
        For k = 1 To Len(invalidChars)
            c = Mid(invalidChars, k, 1)
            If InStr(newName, c) > 0 Then
                ws.cells(i, "E").value = "½ÇÆÐ: ±ÝÁö¹®ÀÚ '" & c & "' Æ÷ÇÔ"
                ws.cells(i, "E").Interior.color = RGB(255, 200, 200)
                failCount = failCount + 1
                GoTo NextItem
            End If
        Next k

        ' [ÇÙ½É ¼öÁ¤] ½ÇÁ¦ µð½ºÅ©¿¡¼­ ¿øº» ÆÄÀÏ/Æú´õ ã±â
        foundFile = FindActualFileName(fso, folderPath, oldName, fileExt, isFolder)

        If foundFile = "" Then
            ws.cells(i, "E").value = "½ÇÆÐ: ¿øº» ¾øÀ½ ¶Ç´Â ºñ½ÁÇÑ À̸§ÀÌ ¿©·¯ °³"
            ws.cells(i, "E").Interior.color = RGB(255, 200, 200)
            failCount = failCount + 1
            GoTo NextItem
        End If

        ' È®ÀåÀÚ Ã³¸®
        If Not isFolder And fileExt <> "" Then
            finalNewName = newName & "." & fileExt
        Else
            finalNewName = newName
        End If

        If Not UI_ValidFolderName(finalNewName) Then
            ws.cells(i, "E").value = "½ÇÆÐ: »ç¿ëÇÒ ¼ö ¾ø´Â ÆÄÀÏ À̸§"
            ws.cells(i, "E").Interior.color = RGB(255, 200, 200)
            failCount = failCount + 1
            GoTo NextItem
        End If
        oldPath = folderPath & "\" & foundFile
        newPath = folderPath & "\" & finalNewName

        ' [°ËÁõ 3] µ¿ÀÏ À̸§ÀÌ¸é °Ç³Ê¶Ù±â
        If StrComp(oldPath, newPath, vbTextCompare) = 0 Then
            ws.cells(i, "E").value = "°Ç³Ê¶Ü: µ¿ÀÏ À̸§"
            ws.cells(i, "E").Interior.color = RGB(255, 255, 200)
            skipCount = skipCount + 1
            GoTo NextItem
        End If

        ' [°ËÁõ 4] ´ë»ó À̸§ÀÌ ÀÌ¹Ì Á¸Àç (´ë¼Ò¹®ÀÚ º¯°æ Á¦¿Ü)
        If isFolder Then
            If fso.FolderExists(newPath) And StrComp(oldPath, newPath, vbTextCompare) <> 0 Then
                ws.cells(i, "E").value = "½ÇÆÐ: µ¿ÀÏ À̸§ Æú´õ ÀÌ¹Ì Á¸Àç"
                ws.cells(i, "E").Interior.color = RGB(255, 200, 200)
                failCount = failCount + 1
                GoTo NextItem
            End If
        Else
            If fso.FileExists(newPath) And StrComp(oldPath, newPath, vbTextCompare) <> 0 Then
                ws.cells(i, "E").value = "½ÇÆÐ: µ¿ÀÏ À̸§ ÆÄÀÏ ÀÌ¹Ì Á¸Àç"
                ws.cells(i, "E").Interior.color = RGB(255, 200, 200)
                failCount = failCount + 1
                GoTo NextItem
            End If
        End If

        ' ½ÇÁ¦ À̸§ º¯°æ
        On Error Resume Next
        Name oldPath As newPath
        If Err.Number = 0 Then
            ws.cells(i, "E").value = "¼º°ø"
            ws.cells(i, "E").Interior.color = RGB(200, 255, 200)
            ' B¿­¿¡ »õ À̸§ ¹Ý¿µ (°ø¹é 2Ä­ À¯Áö)
            ws.cells(i, "B").value = "  " & newName
            successCount = successCount + 1
        Else
            ws.cells(i, "E").value = "½ÇÆÐ: " & Err.Description
            ws.cells(i, "E").Interior.color = RGB(255, 200, 200)
            failCount = failCount + 1
        End If
        Err.Clear
        On Error GoTo 0
NextItem:
    Next i
    Application.ScreenUpdating = True
    MsgBox "¼º°ø: " & successCount & "°³ / ½ÇÆÐ: " & failCount & "°³ / °Ç³Ê¶Ü: " & skipCount & "°³", vbInformation
End Sub

' =================================================================================================
' 5: Áߺ¹´Ü¾î »èÁ¦ (2´Ü°è)
'   1ȸÂ÷: B¿­ À̸§µéÀ» ºóÄ­¡¤±¸ºÐ¹®ÀÚ·Î ³ª´² 2°³ ÀÌ»ó À̸§¿¡ °øÅëÀ¸·Î µé¾î ÀÖ´Â ´Ü¾î¸¦ P~R¿­¿¡ Á¤¸®
'          (P ´Ü¾î / Q Æ÷ÇÔ À̸§ ¼ö / R »èÁ¦ ¿©ºÎ 'O')  ¡æ ³²±æ ´Ü¾î´Â R¿­ÀÇ O¸¦ Áö¿î´Ù
'   2ȸÂ÷: R¿­ÀÌ OÀÎ ´Ü¾î¸¦ °¢ À̸§¿¡¼­ Á¦°ÅÇÏ°í, ÇÑ À̸§ ¾È¿¡¼­ ¹Ýº¹µÇ´Â ´Ü¾îµµ 1°³¸¸ ³²°Ü D¿­(À̸§ º¯°æ)¿¡ ±â·Ï
'          ¡æ [6 À̸§ º¯°æ]À¸·Î ½ÇÁ¦ Àû¿ë
' =================================================================================================
Public Sub p005_Áߺ¹´Ü¾î»èÁ¦()
    Dim ws As Worksheet, lastRow As Long, i As Long, r As Long
    Dim dict As Object, seen As Object, parts() As String, W As Variant, keys As Variant
    Dim n As Long, selCount As Long, changed As Long, newName As String, origName As String, ext As String
    Set ws = ActiveSheet
    If Not IsValidSheet(ws) Then Exit Sub
    lastRow = ws.cells(ws.rows.Count, "B").End(xlUp).row
    If lastRow < 4 Then
        MsgBox "¸ñ·ÏÀÌ ¾ø½À´Ï´Ù. ¸ÕÀú [1 ¸ñ·Ï »ý¼º]À» ´©¸£¼¼¿ä.", vbExclamation, "Áߺ¹´Ü¾î »èÁ¦"
        Exit Sub
    End If

    ' ---- 2ȸÂ÷: ¸ñ·ÏÀÌ ÀÖ°í Àû¿ë ÀüÀÌ¸é »èÁ¦ Àû¿ë (O ´Ü¾î »èÁ¦ + ¹Ýº¹ ´Ü¾î Á¤¸®) ----
    If ws.cells(3, DUP_COL).value = "Áߺ¹ ´Ü¾î" And ws.cells(4, DUP_COL).value <> "" And ws.cells(2, DUP_COL).value <> "Àû¿ëµÊ" Then
        DupApply ws, lastRow, False
        Exit Sub
    End If

    ' ---- 1ȸÂ÷: °øÅë ´Ü¾î ¸ñ·Ï ¸¸µé±â ----
    Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = vbTextCompare
    For i = 4 To lastRow
        parts = Split(ReplaceCharsWithSpace(Trim$(CStr(ws.cells(i, "B").value))), " ")
        Set seen = CreateObject("Scripting.Dictionary")
        seen.CompareMode = vbTextCompare
        For Each W In parts
            If Len(W) > 0 And Not seen.Exists(CStr(W)) Then
                seen.Add CStr(W), 1
                If dict.Exists(CStr(W)) Then dict(CStr(W)) = dict(CStr(W)) + 1 Else dict.Add CStr(W), 1
            End If
        Next W
    Next i

    Application.ScreenUpdating = False
    ws.Range(ws.cells(2, DUP_COL), ws.cells(ws.rows.Count, DUP_COL + 2)).Clear
    ws.cells(2, DUP_COL).value = ""
    ws.cells(3, DUP_COL).value = "Áߺ¹ ´Ü¾î"
    ws.cells(3, DUP_COL + 1).value = "Æ÷ÇÔ À̸§ ¼ö"
    ws.cells(3, DUP_COL + 2).value = "»èÁ¦(O)"
    keys = SortDictKeysByValue(dict)
    r = 4
    For i = LBound(keys) To UBound(keys)
        If dict(keys(i)) >= 2 Then
            ws.cells(r, DUP_COL).value = keys(i)
            ws.cells(r, DUP_COL + 1).value = dict(keys(i))
            ws.cells(r, DUP_COL + 2).value = "O"
            r = r + 1: n = n + 1
        End If
    Next i
    With ws.Range(ws.cells(3, DUP_COL), ws.cells(3, DUP_COL + 2))
        .Font.Bold = True
        .Interior.color = RGB(255, 230, 153)
        .Borders.LineStyle = xlContinuous
        .HorizontalAlignment = xlCenter
    End With
    If n > 0 Then
        With ws.Range(ws.cells(4, DUP_COL), ws.cells(3 + n, DUP_COL + 2))
            .Borders.LineStyle = xlContinuous
            .Font.name = "¸¼Àº °íµñ"
        End With
        ws.Range(ws.cells(4, DUP_COL + 1), ws.cells(3 + n, DUP_COL + 2)).HorizontalAlignment = xlCenter
    End If
    ws.Columns(DUP_COL).ColumnWidth = 18
    ws.Columns(DUP_COL + 1).ColumnWidth = 11
    ws.Columns(DUP_COL + 2).ColumnWidth = 8
    If n > 0 Then
        CreateDupApplyButton ws
    Else
        On Error Resume Next
        ws.Shapes("btnDupApply").Delete
        On Error GoTo 0
    End If
    Application.ScreenUpdating = True
    If n = 0 Then
        MsgBox "2°³ ÀÌ»óÀÇ À̸§¿¡ °øÅëÀ¸·Î µé¾î ÀÖ´Â ´Ü¾î°¡ ¾ø½À´Ï´Ù." & vbCrLf & _
               "(ÇÑ À̸§ ¾ÈÀÇ ¹Ýº¹ ´Ü¾î Á¤¸®´Â [5 Áߺ¹´Ü¾î »èÁ¦]¸¦ ÇÑ ¹ø ´õ ´©¸£¼¼¿ä)", vbInformation, "Áߺ¹´Ü¾î »èÁ¦"
        ws.cells(4, DUP_COL).value = "(¾øÀ½)"
        ws.cells(4, DUP_COL + 2).value = ""
    Else
        MsgBox "¿©·¯ À̸§¿¡ °øÅëÀ¸·Î µé¾î ÀÖ´Â ´Ü¾î " & n & "°³¸¦ P~R¿­¿¡ Á¤¸®Çß½À´Ï´Ù (¸¹ÀÌ ³ª¿Â ¼ø)." & vbCrLf & vbCrLf & _
               "¡¤ Áö¿ï ´Ü¾î´Â R¿­ 'O' ±×´ë·Î µÎ°í, ³²±æ ´Ü¾î´Â R¿­ÀÇ O¸¦ Áö¿ì¼¼¿ä." & vbCrLf & _
               "¡¤ ±×´ÙÀ½ [5 Áߺ¹´Ü¾î »èÁ¦]¸¦ ´Ù½Ã ´©¸£¸é D¿­(À̸§ º¯°æ)¿¡ Á¤¸®µÈ À̸§ÀÌ µé¾î°©´Ï´Ù.", vbInformation, "Áߺ¹´Ü¾î »èÁ¦"
    End If
End Sub


' [v2.6] Ç¥ À§ ¹öÆ° [O »èÁ¦ Ç׸ñ¸¸ »èÁ¦] : R¿­ÀÌ 'O'ÀÎ ´Ü¾î¸¸ À̸§¿¡¼­ Áö¿î´Ù (ÇÑ À̸§ ¾ÈÀÇ ¹Ýº¹ ´Ü¾î´Â ±×´ë·Î)
'        ±âÁ¸Ã³·³ [5 Áߺ¹´Ü¾î »èÁ¦]¸¦ ÇÑ ¹ø ´õ ´©¸£¸é O ´Ü¾î »èÁ¦ + ¹Ýº¹ ´Ü¾î Á¤¸®¸¦ ÇÔ²² ÇÑ´Ù.
Public Sub p005_Áߺ¹´Ü¾îÀû¿ë()
    Dim ws As Worksheet, lastRow As Long
    Set ws = ActiveSheet
    If Not IsValidSheet(ws) Then Exit Sub
    lastRow = ws.cells(ws.rows.Count, "B").End(xlUp).row
    If ws.cells(3, DUP_COL).value <> "Áߺ¹ ´Ü¾î" Or ws.cells(4, DUP_COL).value = "" Or ws.cells(4, DUP_COL).value = "(¾øÀ½)" Then
        MsgBox "Áߺ¹ ´Ü¾î ¸ñ·ÏÀÌ ¾ø½À´Ï´Ù. ¸ÕÀú [5 Áߺ¹´Ü¾î »èÁ¦]¸¦ ´­·¯ ¸ñ·ÏÀ» ¸¸µå¼¼¿ä.", vbExclamation, "Áߺ¹´Ü¾î »èÁ¦"
        Exit Sub
    End If
    If lastRow < 4 Then Exit Sub
    DupApply ws, lastRow, True
End Sub

' 2ȸÂ÷(Àû¿ë): R¿­ 'O' ´Ü¾î¸¦ °¢ À̸§¿¡¼­ Á¦°ÅÇÏ°í D¿­(À̸§ º¯°æ)¿¡ ±â·Ï. onlyMarked=False ¸é ÇÑ À̸§ ¾ÈÀÇ ¹Ýº¹ ´Ü¾îµµ 1°³¸¸ ³²±è
Private Sub DupApply(ByVal ws As Worksheet, ByVal lastRow As Long, ByVal onlyMarked As Boolean)
    Dim dict As Object, seen As Object, parts() As String, W As Variant
    Dim i As Long, r As Long, selCount As Long, changed As Long, newName As String, origName As String
    Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = vbTextCompare
    r = 4
    Do While ws.cells(r, DUP_COL).value <> ""
        If UCase$(Trim$(CStr(ws.cells(r, DUP_COL + 2).value))) = "O" Then
            dict(CStr(ws.cells(r, DUP_COL).value)) = 1
            selCount = selCount + 1
        End If
        r = r + 1
    Loop
    If selCount = 0 Then
        If onlyMarked Then
            MsgBox "R¿­¿¡ 'O'·Î Ç¥½ÃµÈ ´Ü¾î°¡ ¾ø½À´Ï´Ù. Áö¿ï ´Ü¾îÀÇ R¿­¿¡ O ¸¦ ÀûÀº µÚ ´Ù½Ã ´©¸£¼¼¿ä.", vbExclamation, "Áߺ¹´Ü¾î »èÁ¦"
            Exit Sub
        End If
        If UI_Choose("Áߺ¹´Ü¾î »èÁ¦", "R¿­¿¡ 'O'·Î Ç¥½ÃµÈ ´Ü¾î°¡ ¾ø½À´Ï´Ù." & vbCrLf & "ÇÑ À̸§ ¾È¿¡¼­ ¹Ýº¹µÇ´Â ´Ü¾î¸¸ Á¤¸®ÇÒ±î¿ä?", Array("¹Ýº¹ ´Ü¾î¸¸ Á¤¸®", "Ãë¼Ò")) <> 1 Then Exit Sub
    End If
    Application.ScreenUpdating = False
    For i = 4 To lastRow
        origName = Trim$(CStr(ws.cells(i, "B").value))
        parts = Split(ReplaceCharsWithSpace(origName), " ")
        Set seen = CreateObject("Scripting.Dictionary")
        seen.CompareMode = vbTextCompare
        newName = ""
        For Each W In parts
            If Len(W) > 0 Then
                If Not dict.Exists(CStr(W)) And (onlyMarked Or Not seen.Exists(CStr(W))) Then
                    If Not seen.Exists(CStr(W)) Then seen.Add CStr(W), 1
                    newName = newName & IIf(newName = "", "", " ") & W
                End If
            End If
        Next W
        If newName = "" Then newName = origName          ' ÀüºÎ Áö¿öÁö¸é ¿ø·¡ À̸§ À¯Áö
        ws.cells(i, "D").value = newName
        If StrComp(newName, ReplaceCharsWithSpace(origName), vbTextCompare) <> 0 Then
            changed = changed + 1
            ws.cells(i, "E").value = "Áߺ¹´Ü¾î Á¤¸® ¡æ À̸§ º¯°æ ´ë±â"
            ws.cells(i, "E").Interior.color = RGB(255, 242, 204)
        Else
            ws.cells(i, "E").value = ""
            ws.cells(i, "E").Interior.ColorIndex = xlNone
        End If
    Next i
    ws.cells(2, DUP_COL).value = "Àû¿ëµÊ"
    ws.cells(2, DUP_COL).Font.color = RGB(0, 128, 0)
    Call ApplyDataFormatting(ws)
    Application.ScreenUpdating = True
    MsgBox "¼±Åà ´Ü¾î " & selCount & "°³¸¦ Áö" & IIf(onlyMarked, "¿ö", "¿ì°í ¹Ýº¹ ´Ü¾î¸¦ Á¤¸®ÇØ") & " D¿­(À̸§ º¯°æ)¿¡ ³Ö¾ú½À´Ï´Ù." & vbCrLf & _
           "¹Ù²ï À̸§: " & changed & "°³ / Àüü " & (lastRow - 3) & "°³" & vbCrLf & vbCrLf & _
           "D¿­À» È®ÀΡ¤¼öÁ¤ÇÑ µÚ [6 À̸§ º¯°æ]À» ´©¸£¸é ½ÇÁ¦·Î ¹Ù²ò´Ï´Ù." & vbCrLf & _
           "(´Ù½Ã [5 Áߺ¹´Ü¾î »èÁ¦]¸¦ ´©¸£¸é ¸ñ·ÏÀ» »õ·Î ¸¸µì´Ï´Ù)", vbInformation, "Áߺ¹´Ü¾î »èÁ¦"
End Sub

' Áߺ¹ ´Ü¾î Ç¥(P~R) À§¿¡ [O »èÁ¦ Ç׸ñ¸¸ »èÁ¦] ¹öÆ° ¸¸µé±â (1Çà, ±âÁ¸ ¹öÆ° 6°³¿Í °ãÄ¡Áö ¾Ê°Ô)
Private Sub CreateDupApplyButton(ByVal ws As Worksheet)
    Dim s As Shape, L As Single
    On Error Resume Next
    ws.Shapes("btnDupApply").Delete
    On Error GoTo 0
    L = ws.Columns(DUP_COL).Left
    If L < 5 + 6 * 116 + 10 Then L = 5 + 6 * 116 + 10
    Set s = ws.Shapes.AddShape(msoShapeRoundedRectangle, L, 6, 150, 30)
    s.name = "btnDupApply"
    UI_StyleButton s, "O »èÁ¦ Ç׸ñ¸¸ »èÁ¦", "p005_Áߺ¹´Ü¾îÀû¿ë", False, RGB(255, 149, 0), RGB(255, 255, 255)
End Sub

' Dictionary Å°¸¦ °ª ³»¸²Â÷¼øÀ¸·Î Á¤·Ä
Private Function SortDictKeysByValue(ByVal dict As Object) As Variant
    Dim keys As Variant, vals As Variant, i As Long, j As Long, tk As Variant, tv As Variant
    keys = dict.keys: vals = dict.items
    For i = LBound(keys) To UBound(keys) - 1
        For j = i + 1 To UBound(keys)
            If vals(i) < vals(j) Then
                tv = vals(i): vals(i) = vals(j): vals(j) = tv
                tk = keys(i): keys(i) = keys(j): keys(j) = tk
            End If
        Next j
    Next i
    SortDictKeysByValue = keys
End Function

' =================================================================================================
' º¸Á¶ ÇÁ·Î½ÃÀúµé
' =================================================================================================

' [½Å±Ô] ½ÇÁ¦ µð½ºÅ©¿¡¼­ ¿øº» ÆÄÀÏ/Æú´õ ã±â
' B¿­ À̸§Àº ReplaceCharsWithSpace·Î º¯ÇüµÉ ¼ö ÀÖÀ¸¹Ç·Î ½ÇÁ¦ ÆÄÀϸí°ú ¸ÅĪ ÇÊ¿ä
Private Function FindActualFileName(fso As Object, folderPath As String, oldName As String, fileExt As String, isFolder As Boolean) As String
    Dim folder As Object, entries As Object, item As Object
    Dim candidate As String, cleanOld As String, matchCount As Long
    Set folder = fso.GetFolder(folderPath)
    If isFolder Then
        Set entries = folder.SubFolders
    Else
        Set entries = folder.files
    End If
    cleanOld = ReplaceCharsWithSpace(oldName)
    For Each item In entries
        If isFolder Then
            candidate = item.name
        Else
            If StrComp(fso.GetExtensionName(item.path), fileExt, vbTextCompare) <> 0 Then GoTo NextExact
            candidate = fso.GetBaseName(item.path)
        End If
        If StrComp(candidate, oldName, vbTextCompare) = 0 Then
            FindActualFileName = item.name
            Exit Function
        End If
NextExact:
    Next item
    For Each item In entries
        If isFolder Then
            candidate = item.name
        Else
            If StrComp(fso.GetExtensionName(item.path), fileExt, vbTextCompare) <> 0 Then GoTo NextCandidate
            candidate = fso.GetBaseName(item.path)
        End If
        If StrComp(ReplaceCharsWithSpace(candidate), cleanOld, vbTextCompare) = 0 Then
            matchCount = matchCount + 1
            FindActualFileName = item.name
        End If
NextCandidate:
    Next item
    If matchCount <> 1 Then FindActualFileName = ""
End Function

Private Sub CreateMacroButtons(ws As Worksheet)
    Dim s As Shape, i As Long, names As Variant, captions As Variant, actions As Variant
    names = Array("btnFolderSelect", "btnApplyWords", "btnAddWord", "btnResetName", "btnDupWords", "btnRename")
    captions = Array("1 ¸ñ·Ï »ý¼º", "2 ´Ü¾î ÃßÃâ", "3 ÀÔ·Â Ãß°¡", "4 À̸§ Á¶ÇÕ", "5 Áߺ¹´Ü¾î »èÁ¦", "6 À̸§ º¯°æ")
    actions = Array("p001_¸ñ·Ï»ý¼º", "p002_À̸§°¡Á®¿À±â", "p_´Ü¾îÀÔ·ÂÃß°¡", "p003_À̸§»õ·Î¼³Á¤", "p005_Áߺ¹´Ü¾î»èÁ¦", "p004_À̸§º¯°æ")
    ws.rows(1).RowHeight = 42
    For i = 0 To 5
        On Error Resume Next
        ws.Shapes(CStr(names(i))).Delete
        On Error GoTo 0
        Set s = ws.Shapes.AddShape(msoShapeRoundedRectangle, 5 + i * 116, 6, 108, 30)
        s.name = CStr(names(i))
        UI_StyleButton s, CStr(captions(i)), CStr(actions(i)), i = 5
    Next i
End Sub

Private Sub SetupHeaders(ws As Worksheet)
    ws.Columns("D:Z").NumberFormat = "@"

    ws.Range("A2").value = "Æú´õ¸í"
    ws.Range("F2").value = "´Ü¾îÀÔ·Â1"
    ws.Range("G2").value = "´Ü¾îÀÔ·Â2"
    ws.Range("H2").value = "´Ü¾îÀÔ·Â3"
    ws.Range("I2").value = "´Ü¾îÀÔ·Â4"
    ws.Range("J2").value = "´Ü¾îÀÔ·Â5"

    ws.Range("A3").value = "No."
    ws.Range("B3").value = "À̸§"
    ws.Range("C3").value = "Á¤º¸"
    ws.Range("D3").value = "À̸§ º¯°æ"
    ws.Range("E3").value = "°á°ú"

    With ws.Range("A3:J3")
        .Font.Bold = True
        .Interior.color = RGB(173, 216, 230)
        .Borders.LineStyle = xlContinuous
    End With

    ws.Range("F3:J3").Interior.ColorIndex = xlNone
End Sub

Private Sub ApplyDataFormatting(ws As Worksheet)
    Dim lastRow As Long, lastCol As Long, r As Long
    lastRow = ws.cells(ws.rows.Count, "B").End(xlUp).row
    lastCol = ws.cells(2, ws.Columns.Count).End(xlToLeft).Column
    If lastCol < 5 Then lastCol = 5

    If lastRow >= 4 Then
        For r = 4 To lastRow
            If r Mod 2 <> 0 Then
                ws.Range(ws.cells(r, 1), ws.cells(r, lastCol)).Interior.color = RGB(245, 248, 252)
            Else
                ws.Range(ws.cells(r, 1), ws.cells(r, lastCol)).Interior.ColorIndex = xlNone
            End If
        Next r
        ws.Range("A4").value = 1
        If lastRow > 4 Then ws.Range("A4:A" & lastRow).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1   ' [¼öÁ¤] Ç׸ñ 1°³¸é DataSeries ¿À·ù
    End If
    ws.Range(ws.Columns(1), ws.Columns(lastCol)).AutoFit
End Sub

Private Sub UpdateCombinedName(ws As Worksheet, rowNum As Long)
    Dim combinedName As String
    Dim j As Long, lastCol As Long

    lastCol = ws.cells(2, ws.Columns.Count).End(xlToLeft).Column
    If lastCol < 6 Then Exit Sub

    combinedName = ""
    For j = 6 To lastCol
        If ws.cells(rowNum, j).value <> "" Then
            combinedName = combinedName & ws.cells(rowNum, j).value & " "
        End If
    Next j

    ws.cells(rowNum, "D").value = Trim(combinedName)
End Sub

Private Function ReplaceCharsWithSpace(text As String) As String
    Dim CleanText As String, specialChars As String, i As Long
    specialChars = "_-.,()[]{}!@#$%^&+="
    CleanText = text
    For i = 1 To Len(specialChars)
        CleanText = Replace(CleanText, Mid(specialChars, i, 1), " ")
    Next i
    Do While InStr(CleanText, "  ") > 0
        CleanText = Replace(CleanText, "  ", " ")
    Loop
    ReplaceCharsWithSpace = Trim(CleanText)
End Function

Private Function IsValidSheet(ws As Worksheet) As Boolean
    If ws.name = "Æú´õ" Or ws.name = "ÆÄÀÏ" Or ws.name = "Æú´õ¹×ÆÄÀÏ" Then
        IsValidSheet = True
    Else
        MsgBox "ÀÌ ¸ÅÅ©·Î´Â 'Æú´õ', 'ÆÄÀÏ', 'Æú´õ¹×ÆÄÀÏ' ½ÃÆ®¿¡¼­ ½ÇÇàÇØ¾ß ÇÕ´Ï´Ù.", vbExclamation
        IsValidSheet = False
    End If
End Function