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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

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

	Ручная вставка разрыва страницы 23.09.2015, 12:18. Показов 13438. Ответов 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