Страницы: 1
RSS
Подсчет страниц в определённом формате в ворд с помощью макроса VBA
 
Добрый день. Нашла такой макрос, сама только начала с ними работать, поэтому пока сложно самой править, т.к. плохо понимаю, что здесь прописано.
Код
Sub PSize()
Dim A3 As Integer
Dim A4 As Integer
Dim i As Long
Dim R As Range

    A3 = 0
    A4 = 0
    Set R = ActiveDocument.Range
    For i = 1 To R.Information(wdActiveEndPageNumber)
        Set R = ActiveDocument.GoTo(What:=wdGoToPage, _
                                    Which:=wdGoToAbsolute, _
                                    Count:=i)
        Select Case R.PageSetup.PaperSize
            Case wdPaperA3
                A3 = A3 + 1
            Case wdPaperA4
                A4 = A4 + 1
        End Select
    Next
    Debug.Print "Общее число страниц А1 = " & A4 / 8+ A3 / 4

End Sub

Хотелось бы его изменить, чтобы он просматривал такие стандартные форматы, как а4, а3, а2, а1, а0
 
Елена Бубенько, и Вам Утро доброе!
Может Вам стоит поискать форум типа "Планета Word"?
 
Вероятно, но тогда уж "планета программирования в VBA", тут вроде как шарят в этом, поэтому думаю, что не совсем критично, что вопрос этот здесь.
 
Елена Бубенько, я попытался влезть в эту стихию...
Нашёл wdPaperA3, wdPaperA4...
А вот wdPaperA2, wdPaperA1, wdPaperA0 где взять?
Мой Ворд такого не понимает :qstn:  
 
Такие размеры страниц в ворде, на сколько я понимаю, можно задать только нестандартными, сейчас попробовала создать, даже а 2 не хочет=D тогда необходимость в данной вещи отпадает сама собой=D.. думала, что до а 2 точно можно=//
 
Количество листов зависит от размера и ориентации листа, для текущего
Код
activedocument.ActiveWindow.Panes(1).Pages.Count
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх