Attribute VB_Name = "Module1"
Sub FormatAllTables()

    Dim tbl As Table
    Dim i As Long
    
    ' 모든 표 반복
    For Each tbl In ActiveDocument.Tables
        
        ' 표 크기를 문서 폭의 80%로 설정
        tbl.PreferredWidthType = wdPreferredWidthPercent
        tbl.PreferredWidth = 80
        
        ' ===== 헤더 행 서식 =====
        With tbl.Rows(1)
            
            ' 행 높이 1cm 고정
            .HeightRule = wdRowHeightExactly
            .Height = CentimetersToPoints(1)
            
            ' 배경색 RGB(200,200,200)
            .Shading.BackgroundPatternColor = RGB(200, 200, 200)
            
            ' 가로 가운데 정렬
            .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            
            ' 세로 가운데 정렬
            .Cells.VerticalAlignment = wdCellAlignVerticalCenter
            
        End With
        
        ' ===== 일반 행 서식 =====
        If tbl.Rows.Count > 1 Then
            For i = 2 To tbl.Rows.Count
                With tbl.Rows(i)
                    
                    ' 가로 가운데 정렬
                    .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
                    
                    ' 세로 가운데 정렬
                    .Cells.VerticalAlignment = wdCellAlignVerticalCenter
                    
                End With
            Next i
        End If
        
    Next tbl

    MsgBox "모든 표 서식 적용 완료"

End Sub
