Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Пакет Microsoft Office

  Все выпуски  

RusFAQ.ru: Пакет Microsoft Office


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Помощь пользователю ПО / Пакет Microsoft Office

Выпуск № 535
от 01.01.2008, 21:05

Администратор:Ерёмин А.А.
В рассылке:Подписчиков: 420, Экспертов: 85
В номере:Вопросов: 1, Ответов: 1

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 116228: Уважаемые эксперты! Помогите, пожалуйста: в Wordе надо курсовую работу сделать так, чтобы на каждом листе была рамка с чертежным графическим штампом внизу листа. Рамка должна находиться на расстоянии 0,7 см от края листа - сверху, снизу и справа и 20...

Вопрос № 116.228
Уважаемые эксперты! Помогите, пожалуйста: в Wordе надо курсовую работу сделать так, чтобы на каждом листе была рамка с чертежным графическим штампом внизу листа. Рамка должна находиться на расстоянии 0,7 см от края листа - сверху, снизу и справа и 20 см - слева листа. Кроме того, текст внутри рамки тоже должен иметь отступы по всем сторонам. Предполагаю, что надо начертить шаблон и потом вводить текст и каждый лист сохранять отдельно. Но это огромная работа... А можно ли задать эту рамку для всей работы? Или надо сначала распечатать только рамку со штампом, а потом вставлять в принтер листы с рамкой и печатать уже на них работу? А как же тогда номера страниц ставить? Очень жду подсказки или ссылки. Заранее благодарю.
Отправлен: 27.12.2007, 20:57
Вопрос задала: Варфоломеева Луиза Николаевна (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: rewer8
Здравствуйте, Варфоломеева Луиза Николаевна!
Я столкнулся с Вашей проблемой, когда писал диплом и у меня уже есть готовый
шаблон, с нарисованной рамкой, сообщите куда мне его прислать. А нумерация
листов осуществляется с помощью такого макроса

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

Его можно выполнять например при открытии документа Word
и перенумерация будет происходить автоматически по мере увеличения страниц
в документе.
Private Sub Document_Open()
numeration_of_pages
End Sub
Удачи!
Ответ отправил: rewer8 (статус: Студент)
Ответ отправлен: 27.12.2007, 21:37
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо за такой оперативный ответ! Шаблон с рамкой, будьте добры, пошлите на v1luiza@yandex.ru. Буду Вам очень признательна. С наступающим Новым годом!


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.66 от 23.12.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное