27.12.2007, 21:37
общий
это ответ
Здравствуйте, Варфоломеева Луиза Николаевна!
Я столкнулся с Вашей проблемой, когда писал диплом и у меня уже есть готовый
шаблон, с нарисованной рамкой, сообщите куда мне его прислать. А нумерация
листов осуществляется с помощью такого макроса
<code>
Public Sub numeration_of_pages()
For i = 1 To ThisDocument.Tables.Count
ThisDocument.Tables(i).Cell(6, 9).Range = CStr(i)
ThisDocument.Tables(i).Cell(6, 10).Range = ThisDocument.Tables.Count
Next i
End Sub
</code>
Его можно выполнять например при открытии документа Word
и перенумерация будет происходить автоматически по мере увеличения страниц
в документе.
Private Sub Document_Open()
numeration_of_pages
End Sub
Удачи!