comportements de mise en boucle Incohérence Pour boucle vba

Question

J'ai écrit une macro pour la suppression de MS Word 2010 pages comme suit-

Sub deleteAlternatePages() 
    CurrentPage = Selection.Information(wdActiveEndPageNumber) 
    TotalPages = Selection.Information(wdNumberOfPagesInDocument) 

    maxLoop = TotalPages - 1 

    Dim loopCtr As Integer 
    loopCtr = (maxLoop/2) 

    For i = 1 To loopCtr 
     boolDelete = Selection.Information(wdActiveEndPageNumber) 
     Call deleteOnePage 
     CurPage = Selection.Information(wdActiveEndPageNumber) 
     Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1 
    Next 

End Sub 

La boucle ne fonctionne pas correctement quand je lance la macro de mot. Mais, fonctionne correctement lorsque je débogue le code.

Answer 1

Ceci est juste une intuition, mais je parie que vous supprimez des pages que vous n'avez pas l'intention de? Au lieu de boucle UP, boucle arrière

For i =loopCtr to 1 step -1 

Dans votre boucle, si vous avez supprimé une page, le reste des pages se déplacer une page et les numéros des pages incorrectes que vous continuez à les vérifier avant. Si vous supprimez d'abord à la fin, les pages à l'avant ne seront pas gâchées avec