Dim oPages As Pages Dim NoPage As Long Dim oRects As Rectangles Dim NoRect As Long Dim oLines As Lines Dim NoLine As Long With ActiveDocument.ActiveWindow.Panes(1) Set oPages = .Pages With oPages For NoPage = 1 To .Count Debug.Print "Page " & NoPage & " : "; With .Item(NoPage) Set oRects = .Rectangles With oRects For NoRect = 1 To .Count Debug.Print , "Rectangle " & NoRect & " : "; With .Item(NoRect) Select Case .RectangleType Case WdRectangleType.wdLineBetweenColumnRectangle Debug.Print "ligne qui sépare des colonnes" Case WdRectangleType.wdMarkupRectangle Debug.Print "bulle de commentaires" Case WdRectangleType.wdMarkupRectangleButton Debug.Print "indicateur (...) dans bulle de commentaires quand existe texte supplémentaire dans commentaire" Case WdRectangleType.wdPageBorderRectangle Debug.Print "bordure de page" Case WdRectangleType.wdSelection Debug.Print "espace occupé par un outil de sélection" Case WdRectangleType.wdShapeRectangle Debug.Print "espace occupé par une forme" Case WdRectangleType.wdSystem Debug.Print "(système) réservé" Case WdRectangleType.wdTextRectangle Set oLines = .Lines With oLines Debug.Print "espace occupé par du texte : " & .Count & " lignes :" For NoLine = 1 To .Count Debug.Print , , "Ligne " & NoLine & " : " & Len(.Item(NoLine).Range.Text) & " caractère(s)" Next NoLine End With End Select End With Next NoRect End With End With Next NoPage End With End With
Public Function BlankPageSelection() For Each C In Selection.Characters If (C <> vbCr And C <> vbTab And C <> vbFormFeed And C <> " ") Then BlankPageSelection = False Exit Function End If Next BlankPageSelection = True End Function Public Sub DeleteBlankPage() NbPages = ActiveDocument.ActiveWindow.Panes(1).Pages.Count For i = 1 To NbPages Selection.GoTo wdGoToPage, wdGoToNext, , i Selection.GoTo What:=wdGoToBookmark, Name:="\page" If BlankPageSelection Then Selection.Delete i = i - 1 NbPages = NbPages - 1 End If Next End Sub
Do While i <= NbPages ... i = i + 1 Loop
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question