突然要进行word的vba操作,真心不适应,可以删除word的页面
bug:每次删除的时候都是重新计算页码,所以说需要计算好每次删除后的页面页码
Sub kk1206190933()
Dim wNum As Integer
Dim wPag As Integer
'Dim arr(5) As Integer, i As Variant
With Selection
wPag = .Information(wdNumberOfPagesInDocument)
'For wNum = Int(wPag / 3) * 3 To 3 Step -3
arr = Array(91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, 201, 201, 201, 203, 204, 207, 209, 209, 209, 210, 215, 218, 218, 218, 218, 218, 221, 221, 222, 224, 226, 226, 226, 226, 226, 226, 226, 234, 238, 285, 285, 288, 288, 333, 575, 575, 575, 583, 583, 583, 583, 583, 584, 584, 584, 584, 584, 584, 587, 588, 588, 588, 593, 599, 599)
For i = 0 To UBound(arr)
.GoTo wdGoToPage, , arr(i)
.Bookmarks("\Page").Range.Delete
' Next
' MsgBox arr(i)
Next i
End With
End Sub