Ручная вставка разрыва страницы

@filippokx2015 · Регистрация: 23.09.2015

Студворк — интернет-сервис помощи студентам

А кто нить сможет псевдо-код на язык VBA хотя бы в общих чертах перевести

Взять последнюю страницу
Если кол-строк ровно 20(значит на последний странице голый футер)
Взять предпоследнюю страницу
Вставить разрыв страницы в позиции ( посл строка - 4 )

Выручайте =)

@Alex_Gur · 23.09.2015, 13:09

Сообщение от filippokx2015

А кто нить сможет псевдо-код на язык VBA хотя бы в общих чертах перевести

Вот несколько примеров работы с параметрами страны в Word (надеюсь, эти коды дадут Вам общее направление):

Для программного (с помощью макроса) определения количества страниц в активном документе можно использовать следующую процедуру:

Visual Basic
1
2
3
Public Sub Pages1()
    MsgBox (ActiveDocument.ActiveWindow.Panes(1).Pages.Count)
End Sub

В объектной модели Word коллекция Pages (Страницы) подчинена объекту Pane (Панель).
Поскольку панель в активном документе обычно одна, то для обращения к коллекции Pages можно использовать родительский объект Panes(1).

Выделение текста второй страницы активного документа. Может быть, не самое красивое решение, но работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub Page1()
    Dim Type1 As Integer
    Dim i As Integer
    Dim a As Integer
    Dim b As Integer
    i = 0
 
    For Each Rectangle1 In ActiveDocument.ActiveWindow.Panes(1).Pages(1).Rectangles
        ' Pages(2) - это вторая страница активного документа
        
        Type1 = Rectangle1.RectangleType
        If Type1 = 0 Then
            Select1 = Rectangle1.Range.Text
            If i = 0 Then
                a = Rectangle1.Range.Start
            End If
            i = i + 1
            b = Rectangle1.Range.End
        End If
    Next [Rectangle1]
    ActiveDocument.Range(a, b).Select
End Sub

@Alex_Gur · 23.09.2015, 14:26

Попробуйте, пожалуйста, такой макрос:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Page2()
    Dim CountPages As Integer
    Dim Count1 As Integer
    Dim Count2 As Integer
    CountPages = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
    Count1 = ActiveWindow.Panes(1).Pages(CountPages).Rectangles.Count
    If CountPages > 1 Then
        Count2 = ActiveWindow.Panes(1).Pages(CountPages - 1).Rectangles.Count
    End If
    If Count1 = 20 Then
        ActiveWindow.Panes(1).Pages(CountPages - 1).Rectangles(Count2 - 4).Range.Select
        Selection.InsertBreak Type:=wdPageBreak
    End If
End Sub

Если будут вопросы - пишите.

@Alex_Gur · 23.09.2015, 14:49

А если на предпоследней странице меньше 4-х строк, то что тогда делать?

@filippokx2015 · 23.09.2015, 15:55 **[ТС]**

Прощу прощения за глупый вопрос , в Excel этот код пройдет ? =)

@Alex_Gur · 23.09.2015, 16:07

Сообщение от filippokx2015

Прощу прощения за глупый вопрос , в Excel этот код пройдет ? =)

Вопрос - отнюдь не глупый. В Excel с этим делом будет сложнее.
Вам нужен такой макрос для Excel?

@filippokx2015 · 23.09.2015, 16:34 **[ТС]**

Да макрос требуется только для EXcel

@Alex_Gur · 23.09.2015, 17:08

К сожалению, как работать со страницами в Excel, я не знаю.
Будем ждать решения других экспертов.

@Alex_Gur · 23.09.2015, 20:15

Для Excel попробуйте использовать такой макрос (его нужно разместить в модуле группы Modules, как в прилагаемом файле):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub Page2()
    Dim CountPages As Integer 'общее количество страниц при печати
    Dim CountRow As Integer 'общее количество строк
    Dim CountCol As Integer 'общее количество столбцов
    Dim Count1 As Integer 'количество страниц по вертикали
    Dim Count2 As Integer 'количество страниц по горизонтали
    Dim CountLastPageRow As Integer 'номер строки нижней части предпоследней страницы по вертикали
    Dim CountLastPageCol As Integer 'номер столбца правой части предпоследней страницы по горизонтали
    CountPages = Worksheets(1).PageSetup.Pages.Count
    CountRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
    CountCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
    Count1 = ActiveSheet.HPageBreaks.Count
    Count2 = ActiveSheet.VPageBreaks.Count
    CountLastPageRow = ActiveSheet.HPageBreaks(ActiveSheet.HPageBreaks.Count).Location.Row - 1
    CountLastPageCol = ActiveSheet.VPageBreaks(ActiveSheet.VPageBreaks.Count).Location.Column - 1
    If Count1 > 1 Then
        If (CountRow - CountLastPageRow) = 20 Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(CountLastPageRow - 4, 1)
        End If
    End If
End Sub

@Alex_Gur · 23.09.2015, 20:19

Также прошу Вас обратить внимание на то, что, если файл Excel в ширину (по вертикали) не умещается на страницу, то это будет, наверно, не очень хорошо.
Добавил проверку на количество страниц в ширину:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Sub Page2()
    Dim CountPages As Integer 'общее количество страниц при печати
    Dim CountRow As Integer 'общее количество строк
    Dim CountCol As Integer 'общее количество столбцов
    Dim Count1 As Integer 'количество страниц по вертикали
    Dim Count2 As Integer 'количество страниц по горизонтали
    Dim CountLastPageRow As Integer 'номер строки нижней части предпоследней страницы по вертикали
    Dim CountLastPageCol As Integer 'номер столбца правой части предпоследней страницы по горизонтали
    CountPages = Worksheets(1).PageSetup.Pages.Count
    CountRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
    CountCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
    Count1 = ActiveSheet.HPageBreaks.Count
    Count2 = ActiveSheet.VPageBreaks.Count
    CountLastPageRow = ActiveSheet.HPageBreaks(ActiveSheet.HPageBreaks.Count).Location.Row - 1
    CountLastPageCol = ActiveSheet.VPageBreaks(ActiveSheet.VPageBreaks.Count).Location.Column - 1
    If Count2 = 1 Then
        If Count1 > 1 Then
            If (CountRow - CountLastPageRow) = 20 Then
                ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(CountLastPageRow - 4, 1)
            End If
        End If
    Else
        MsgBox "Файл не умещается в ширину на страницу. Количество страниц в ширину: " & Count2
    End If
End Sub

@filippokx2015 · 29.09.2015, 12:23 **[ТС]**

Alex_Gur спасибо вам огромнейшее!!!
Макрос заработал , подправил буквально пару цифр
Вы мой спаситель=)

Добавлено через 1 час 28 минут
Столкнулся с проблемой
При добавление разрыва сраницы HPageBreaks.Count почему то не увеличивается , то новый разрыв не попадает в коллекцию
и соответственно в цикле for each hpb in ActiveSHeet.HPageBreaks его пропускает ((
почему так?

@Alex_Gur · 29.09.2015, 12:46

Сообщение от filippokx2015

Столкнулся с проблемой
При добавление разрыва сраницы HPageBreaks.Count почему то не увеличивается , то новый разрыв не попадает в коллекцию
и соответственно в цикле for each hpb in ActiveSHeet.HPageBreaks его пропускает ((
почему так?

А где Вы добавляете страницы?
Приведите, пожалуйста, Ваш макрос.

————————-
Удобной и приятной работы в MS Office!
Если Вам помогли рекомендации наших экспертов, пожалуйста, не забывайте поблагодарить их с помощью кнопки «Спасибо».

@filippokx2015 · 29.09.2015, 13:17 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
Option Explicit
 
Const FIRST_ROW& = 28
Const FIRST_COL$ = "J"
Const LAST_COL$ = "P"
Const ITOGO_COL$ = "I"
 
Sub CreatePageSubtotals()
Dim iPageNum&, viewState, hpb As HPageBreak, iRow1&, iRow2&
Dim count_pages As Variant
Dim totalRow As Variant
Dim a As Integer
 
Dim fl As Boolean
Dim rowI As Integer
 
 
Dim R As Range, zoom
Dim wR As Range, Row As Range, C As Range, _
      HrAlg, CurH, NewH
Dim Ar As Range
Dim breakcount As Integer
Dim temp As Double
 
breakcount = ActiveSheet.HPageBreaks.Count
 
Dim CountPages As Integer '????? ?????????? ??????? ??? ??????
    Dim CountRow As Integer '????? ?????????? ?????
    Dim CountCol As Integer '????? ?????????? ????????
    Dim Count1 As Integer '?????????? ??????? ?? ?????????
    Dim Count2 As Integer '?????????? ??????? ?? ???????????
    Dim CountLastPageRow As Integer '????? ?????? ?????? ????? ????????????? ???????? ?? ?????????
    Dim CountLastPageCol As Integer '????? ??????? ?????? ????? ????????????? ???????? ?? ???????????
    CountPages = Worksheets(1).PageSetup.Pages.Count
    CountRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
    CountCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
    Count1 = ActiveSheet.HPageBreaks.Count
    Count2 = ActiveSheet.VPageBreaks.Count
    CountLastPageRow = ActiveSheet.HPageBreaks(ActiveSheet.HPageBreaks.Count).Location.Row - 1
    CountLastPageCol = ActiveSheet.VPageBreaks(ActiveSheet.VPageBreaks.Count).Location.Column - 1
    If Count2 = 1 Then
        If Count1 > 1 Then
            If (CountRow - CountLastPageRow) < 23 Then
                ActiveSheet.HPageBreaks.Add Before:=Cells(CountLastPageRow - 5, 1)
            End If
        End If
    Else
        
    End If
    
    breakcount = ActiveSheet.HPageBreaks.Count
 
 
'Stop
 
rowI = 0
 
'zoom = ActiveSheet.PageSetup.zoom
'ActiveSheet.ResetAllPageBreaks
'ActiveSheet.PageSetup.zoom = zoom
 
Set R = Range("ÈòîãèÏîäïèñè")
  Set R = R.Offset(-1, 0).Resize(R.Rows.Count + 1, R.Columns.Count)
  R.Rows.PageBreak = xlPageBreakNone
  For Each wR In R.Rows
    If wR.PageBreak = xlPageBreakAutomatic Then
      'R.Rows.PageBreak = xlPageBreakManual
      rowI = R.Rows.Row
      'rowI = 1
    End If
  Next
 
 
 
      
' ' àâòîôèò
'Application.ScreenUpdating = False
'Application.EnableEvents = False
'Application.Calculation = xlCalculationManual
'
'
'
'  totalRow = Range("totalRow").Row
'
'  Set R = Range("B24:B" & totalRow - 1)
'
'  Set wR = Application.Intersect(R, R.Worksheet.UsedRange)
'
'  For Each Row In wR.Rows
'    CurH = Row.RowHeight
'    NewH = CurH
'    For Each C In Row.Cells
'      If C.MergeCells And C.WrapText And C.Column = C.MergeArea.Column Then
'        Set Ar = C.MergeArea
'        HrAlg = C.HorizontalAlignment
'        Ar.MergeCells = False
'        Ar.HorizontalAlignment = xlCenterAcrossSelection
'        Ar.Rows.AutoFit
'        If NewH < Ar.RowHeight Then
'          NewH = Ar.RowHeight
'        End If
'        Ar.MergeCells = True
'        Ar.HorizontalAlignment = HrAlg
'      End If
'    Next
'    Row.RowHeight = NewH
'    Next
 
 
totalRow = Range("totalRow").Row
fl = False
 
For a = 28 To totalRow
 
 Cells(a, 10).Value = Cells(a, 10).Value
 Cells(a, 11).Value = CDbl(Cells(a, 11).Value)
 Cells(a, 13).Value = CDbl(Cells(a, 13).Value)
 Cells(a, 15).Value = CDbl(Cells(a, 15).Value)
 Cells(a, 16).Value = CDbl(Cells(a, 16).Value)
Next
 
 
 
count_pages = ActiveWorkbook.Sheets.HPageBreaks.Count + 1
 
If count_pages = 1 Then
  Exit Sub
End If
 
totalRow = Range("totalRow").Row
 
viewState = ActiveWindow.View
ActiveWindow.View = xlPageBreakPreview
iRow1 = FIRST_ROW
For Each hpb In ActiveSheet.HPageBreaks
    iPageNum = iPageNum + 1
    iRow2 = hpb.Location.Row - 1
    
    If iRow2 >= totalRow + 20 Then
    
    fl = True
    Exit For
    
    End If
    
    If iRow2 >= totalRow Then
    
    iRow2 = rowI
    
    End If
    
    
'    If iRow2 = R.Rows.Row - 1 Then
'        R.Rows.PageBreak = xlPageBreakNone
'    End If
    
    Rows(iRow2).Insert
    Rows(iRow2 + 1).PageBreak = xlPageBreakManual
    Cells(iRow2, ITOGO_COL) = "Èòîãî ïî ñòðàíèöå " & iPageNum & ":"
    'Cells(iRow2, "J") = "Èòîãî ïî ñòðàíèöå " & iPageNum & ":"
    Range(Cells(iRow2, FIRST_COL), Cells(iRow2, LAST_COL)).FormulaR1C1 = _
        "=SUBTOTAL(9,R[" & iRow1 - iRow2 & "]C:R[-1]C)"
    Rows(iRow2).Font.Bold = True
    Rows(iRow2).Font.Size = 6
    
    Range("I" & iRow2).Select
    With Selection
        .Font.Size = 6
        .HorizontalAlignment = xlRight
    End With
    
    Cells(iRow2, 12).Value = "X"
    Cells(iRow2, 14).Value = "X"
    
    iRow1 = iRow2 + 1
    
Next
 
If fl = False Then
 
'Cells(iRow2, 11).Value = "X"
Cells(iRow2, 12).Value = "X"
Cells(iRow2, 14).Value = "X"
 
iRow2 = totalRow + iPageNum
Rows(iRow2).Insert
Cells(iRow2, ITOGO_COL) = "Èòîãî ïî ñòðàíèöå " & iPageNum + 1 & ":"
With Range(Cells(iRow2, FIRST_COL), Cells(iRow2, LAST_COL))
    .FormulaR1C1 = "=SUBTOTAL(9,R[" & iRow1 - iRow2 & "]C:R[-1]C)"
    .NumberFormat = "0.00"
End With
Range(iRow2 & ":" & iRow2 + 1).Font.Bold = True
Range(iRow2 & ":" & iRow2 + 1).Font.Size = 6
 
Range("I" & iRow2).Select
With Selection
    .Font.Size = 6
    .HorizontalAlignment = xlRight
End With
 
 
 
Cells(iRow2, 12).Value = "X"
Cells(iRow2, 14).Value = "X"
'Cells(iRow2, 14).Value = "X"
End If
 
' --> ïîäìåíà äàííûõ â ôóòåðå. Äîáàâëåíî À. Æàëóäêîâûì
ActiveSheet.PageSetup.RightFooter = "Ñòðàíèöà " & "&P" & " Òîâàðíàÿ íàêëàäíàÿ ¹ " & Cells(23, 6).Value & " îò " & Cells(23, 8).Value
' <-- Âñòàâêà ëîãèêè îáðàáîòêè ôóòåðà çàâåðøåíà
 
 
'zoom = ActiveSheet.PageSetup.zoom
'ActiveSheet.ResetAllPageBreaks
'ActiveSheet.PageSetup.zoom = zoom
 
'iRow2 = iRow2 + 1
'Cells(iRow2, ITOGO_COL) = "Âñåãî ïðèõîä:"
'With Range(Cells(iRow2, FIRST_COL), Cells(iRow2, LAST_COL))
'    .FormulaR1C1 = "=SUBTOTAL(9,R[" & FIRST_ROW - iRow2 & "]C:R[-1]C)"
'    .NumberFormat = "0.00"
'End With
 
ActiveWindow.View = viewState
 
'--------------------------------------------------------->
 
'------------------------------------------------------------<
  
 
 
 
'Âñåãî ïðèõîä:
End Sub
 
Sub del_pic()
    ActiveSheet.Shapes.Range(Array("Ðèñóíîê 1")).Select
    Selection.Delete
End Sub
 
Sub text_del()
    Cells(1, 1).Select
    Selection.Clear
End Sub
 
 
 
 
 
'Sub setHeader()
'Cells(1, 1).Value = "Óâåäîìëåíèå! Äåíåæíîå òðåáîâàíèå ïî îïëàòå íèæåóêàçàííûõ ïîñòàâëåííûõ òîâàðîâ óñòóïëåíî Ïîñòàâùèêîì ÏÀÎ  «Ïðîìñâÿçüáàíê» (ÎÃÐÍ 1027739019142) íà îñíîâàíèè Ãåíåðàëüíîãî äîãîâîðà îá îáùèõ óñëîâèÿõ ôàêòîðèíãîâîãî îáñëóæèâàíèÿ ïîñòàâîê âíóòðè Ðîññèè îò" + Chr(34) + "02" + Chr(34) + "ìàðòà 2010ã. ¹ 070-ÂÐ-47-10, â ñâÿçè ñ ýòèì îïëàòó òîâàðîâ íåîáõîäèìî îñóùåñòâëÿòü  èñêëþ÷èòåëüíî â ïîëüçó ßðîñëàâëüñêèé ô-ë ÏÀÎ" + Chr(34) + "Ïðîìñâÿçüáàíê" + Chr(34) + "ïî ñëåäóþùèì ðåêâèçèòàì: ÈÍÍ/ÊÏÏ 7744000912 / 760402001, êîð/ñ÷åò 30101810300000000760; ÁÈÊ 047888760, ñ÷åò ¹ 47402810532000846601"
'End Sub

Добавлено через 42 секунды
Страницы я не добавляю , в самом начале банально проверяю кол-во разрывов до и после добавления нового , как было 16 так и осталось

@Alex_Gur · 29.09.2015, 14:59

Увы, причину этой проблемы я Вам подсказать не могу. Может быть, еще кто из экспертов знает?

Добавлено через 16 минут
Мне кажется, что выражение

Visual Basic
1
ActiveSheet.HPageBreaks.Count

вообще работает не очень устойчиво.

@NikitaSSL · 30.09.2015, 09:07

А где можно прочитать про работу со страницами в Excel?

@Alex_Gur · 30.09.2015, 09:27

Я тут написал об этом в своем блоге:
https://www.cyberforum.ru/blog... g3776.html
Добро пожаловать в блог!

Если будут вопросы или дополнения - пишите, пожалуйста, там.

@NikitaSSL · 30.09.2015, 09:27

Большое спасибо. Ознакомлюсь.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@filippokx2015 0 / 0 / 0 Регистрация: 23.09.2015 Сообщений: 8

	Ручная вставка разрыва страницы 23.09.2015, 12:18. Показов 13494. Ответов 16 Метки нет (Все метки) А кто нить сможет псевдо-код на язык VBA хотя бы в общих чертах перевести Взять последнюю страницу Если кол-строк ровно 20(значит на последний странице голый футер) Взять предпоследнюю страницу Вставить разрыв страницы в позиции ( посл строка - 4 ) Выручайте =) 0

@Alex_Gur 47 / 47 / 6 Регистрация: 28.04.2015 Сообщений: 160 Записей в блоге: 4
	23.09.2015, 14:49
	А если на предпоследней странице меньше 4-х строк, то что тогда делать? 0

@filippokx2015 0 / 0 / 0 Регистрация: 23.09.2015 Сообщений: 8
	23.09.2015, 15:55 [ТС]
	Прощу прощения за глупый вопрос , в Excel этот код пройдет ? =) 0

@filippokx2015 0 / 0 / 0 Регистрация: 23.09.2015 Сообщений: 8
	23.09.2015, 16:34 [ТС]
	Да макрос требуется только для EXcel 0

@Alex_Gur 47 / 47 / 6 Регистрация: 28.04.2015 Сообщений: 160 Записей в блоге: 4
	23.09.2015, 17:08
	К сожалению, как работать со страницами в Excel, я не знаю. Будем ждать решения других экспертов. 0

@filippokx2015 0 / 0 / 0 Регистрация: 23.09.2015 Сообщений: 8
	29.09.2015, 12:23 [ТС]
	Alex_Gur спасибо вам огромнейшее!!! Макрос заработал , подправил буквально пару цифр Вы мой спаситель=) Добавлено через 1 час 28 минут Столкнулся с проблемой При добавление разрыва сраницы HPageBreaks.Count почему то не увеличивается , то новый разрыв не попадает в коллекцию и соответственно в цикле for each hpb in ActiveSHeet.HPageBreaks его пропускает (( почему так? 0

@NikitaSSL 0 / 0 / 0 Регистрация: 29.09.2015 Сообщений: 7
	30.09.2015, 09:07
	А где можно прочитать про работу со страницами в Excel? 0

@Alex_Gur 47 / 47 / 6 Регистрация: 28.04.2015 Сообщений: 160 Записей в блоге: 4
	30.09.2015, 09:27
	Я тут написал об этом в своем блоге: https://www.cyberforum.ru/blog... g3776.html Добро пожаловать в блог! Если будут вопросы или дополнения - пишите, пожалуйста, там. 1

@NikitaSSL 0 / 0 / 0 Регистрация: 29.09.2015 Сообщений: 7
	30.09.2015, 09:27
	Большое спасибо. Ознакомлюсь. 0