[워드-vba] 표의 크기를 창의 크기에 자동으로 맞춤

MS워드는 사용할 일이 거의 없는데, 다른 분이 MS워드로 만든 자료를 이용하려다보니 이런것도 공부하게 된다.
문서 안에 있는 모든 표의 크기를 "창의 크기에 자동으로 맞춤"으로 맞추는 일을 하는 VBA이다. 오피스튜터와 책을 참고해서 만들었다.

Sub ExParagraph()
 Do
   Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.Find.ClearFormatting

    On Error GoTo errorhandler
            
     Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
         Selection.MoveDown Unit:=wdLine, Count:=2
 Loop

errorhandler:
Exit Sub

  
End Sub

참.... 해보니 편하긴한데........ 어렵다 ㅜㅜ