나눔터  
  HOME > 나눔터 > 묻고답하기 > 워드
워드
워드에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 김정환 (kimch69)

추천:  5
파일:     조회:  5924
제목:   VBA에서 찾는 값이 없으면 매크로 중단방법
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - MS-Word 버전(2007):

* 아래줄에 질문을 작성하세요 >> 

표를 찾아서, 서식을 적용하는 매크로를 만들었습니다. 그런데 문서 끝에 가니까 찾는 값이 없다고 런타임오류를 발생시키네요. 
찾기를 했을때 문서끝까지 가서 찾는 값이 없으면 매크로를 끝내고 빠져나오는 코드를 어떻게 만들면 될까요?

제가 만든 코드를 참고삼아 첨부합니다.

Sub ExParagraph()
    Dim P As Paragraph
    Debug.Print ActiveDocument.Paragraphs.Count
    For Each P In ActiveDocument.Paragraphs

        'P.Range.Select
        If Len(P.Range) = 1 Then
          P.Range.Delete
        End If
        Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.Find.ClearFormatting
     Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
         Selection.MoveDown Unit:=wdLine, Count:=2
    Next P
End Sub

 		　
[불량 게시물 신고]  
김정환흠... 제가 공부를 안 하고 올렸더니... 죄송합니다. 
이렇게 하며 되네요.

On Error GoTo errorhandler
.......
errorhandler:
Exit Sub
04-16 (15:18)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2010-04-16(14:07)
최종수정일 : 2010-04-16(14:07)