alisia
Макрос уже пробовала? Я тас совсем из виду упустил вставляемые объекты (аля твой логотип). Можно это делать "по уму", тока мне лень щас че-то вспоминать да в хэлпе копаться, поэтому просто предложу вариант, который работает, ну а то, что он не максимально эффективен - дык я ж и не на оценку вроде как пишу:
Цитата:
* *Sub Макрос1()
* *Const Nrow = 10
* *Const Ncolumn = 5
* *Dim iRowHeight(1 To Nrow)
* *Set Shablon = ActiveWorkbook
* *Name = Shablon.Worksheets(2).Cells(1, 2)
* *Npage = Shablon.Worksheets(2).Cells(1, 1)
* *For i = 1 To Nrow
* * *iRowHeight(i) = Shablon.Worksheets(1). _
* * * Rows(i).RowHeight
* *Next i
* *Set Newbook = Workbooks.Add
* *Shablon.Worksheets(1).Activate
* *Range(Cells(1, 1), Cells(Nrow, Ncolumn)).Select
* *Selection.Copy
* *For j = 1 To Ncolumn
* * Newbook.Worksheets(1).Columns(j).ColumnWidth = _
* * *Shablon.Worksheets(1).Columns(j).ColumnWidth
* *Next j
* *For k = 0 To Npage - 1
* * For i = 1 To Nrow
* * *Newbook.Worksheets(1).Rows(Nrow * k + i). _
* * * RowHeight = iRowHeight(i)
* * Next i
* * Newbook.Worksheets(1).Paste Destination:= _
* * *Newbook.Worksheets(1).Cells(Nrow * k + 1, 1)
* * Newbook.Worksheets(1).HPageBreaks.Add Before:= _
* * *Rows(Nrow * (k + 1) + 1)
* *Next k
* *Newbook.SaveAs Filename:=Name
* *End Sub
|
На этот раз я посторался разбить длинные строки с помощью переносов. Если че не так *- пиши...
