[VBA] Word 목차 만들기 & 업데이트

Sub InsTOC()
On Error GoTo ErrHandler
   
    Selection.TypeText "Contents"
    Selection.Style = ActiveDocument.Styles("Summary")
   
    ActiveDocument.Styles("목차 1").Font = ActiveDocument.Styles("목차_대제목").Font
    ActiveDocument.Styles("목차 1").ParagraphFormat = ActiveDocument.Styles("목차_대제목").ParagraphFormat
       
    ActiveDocument.Styles("목차 2").Font = ActiveDocument.Styles("목차_중제목").Font
    ActiveDocument.Styles("목차 2").ParagraphFormat = ActiveDocument.Styles("목차_중제목").ParagraphFormat
   
   
    With ActiveDocument
        .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
            LowerHeadingLevel:=2, IncludePageNumbers:=True, AddedStyles:="Title1,1,Title2,2"
        .TablesOfContents(1).TabLeader = wdTabLeaderDots
    End With
 
Exit Sub
ErrHandler:
    MsgBox Err.Description
   
End Sub
 
 
 
Sub UpdTOC()
On Error GoTo ErrHandler
    ActiveDocument.Styles("목차 1").Font = ActiveDocument.Styles("목차_대제목").Font
    ActiveDocument.Styles("목차 1").ParagraphFormat = ActiveDocument.Styles("목차_대제목").ParagraphFormat
       
    ActiveDocument.Styles("목차 2").Font = ActiveDocument.Styles("목차_중제목").Font
    ActiveDocument.Styles("목차 2").ParagraphFormat = ActiveDocument.Styles("목차_중제목").ParagraphFormat
   
    ActiveDocument.TablesOfContents(1).Update
 
 
    '''' 2013.06.26  TablesOfContents 가 윤고딕에서 정상적으로 표시되지 않아서 아래 코드 추가
    Dim i As Integer
    For i = 1 To ActiveDocument.Bookmarks.Count
        If ActiveDocument.Bookmarks(i).Name = "ContentsUpdate" Then
       
            ActiveDocument.Bookmarks(i).Select
            Selection.Font.Name = ActiveDocument.Styles("목차_대제목").Font.Name
            Exit For
        End If
    Next
 
Exit Sub
ErrHandler:
    MsgBox Err.Description
   
End Sub