none
MS Word VBA 편집 화면에서 F8과 F5 실행의 최종 결과가 다를 수 있나요? RRS feed

  • 질문

  • 큰 용량의 MS Word문서에서 도형 안에 있는 text를 잘라내서 그 페이지의 가장 아래에 붙여넣기를 하는 상황입니다.

    Sub ShapeTextOut()

    Dim shp As Word.Shape

    On Error Resume Next

    Application.ScreenUpdating = False

    For i = ActiveDocument.Shapes.Count To 1 Step -1

        ActiveDocument.Shapes(i).TextFrame.TextRange.Select
        Selection.Cut
        Selection.EscapeKey
        Selection.Collapse

        If Selection.Information(wdActiveEndPageNumber) < Selection.Information(wdNumberOfPagesInDocument) Then
            Selection.GoToNext wdGoToPage
            Selection.MoveLeft
        End If

        Selection.Paste

    Next i

    Application.ScreenUpdating = True

    End Sub

    문제는 F8을 이용해 단계적으로 실행해서 얻는 결과물과 F5를 누르고 얻는 결과물이 다릅니다.

    F5로 자동실행한 결과물은 붙여넣기 되어야할 원래 text의 많은 분량이 아예 붙여넣기가 되어있지 않습니다.

    Word 자료가 1000페이지가 넘다보니 일일이 단계별로 실행해야 하는게 부담스럽기도 하고, 원칙적으로 두가지 결과물이 같지 않으니 불안하기도 합니다.

    (자료는 도형이나 표가 포함된 평범한 text이며 다른 작업과 관계없이 오직 이거 하나만 test 해도 차이가 발생합니다.)


    • 편집됨 mazia21 2016년 10월 13일 목요일 오전 12:28
    2016년 10월 13일 목요일 오전 12:27