|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.05.2009, 08:23 | #1 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Работа с несколькими документами одновременно
Есть такая ситуация.
У меня есть 10 файлов, в которых нужно установить одинаковые параметры страницы и одинаковые коллонтитулы. Можно ли одним движением руки сделать параметры страницы одинаковыми для всех 10 файлов, ну и чтобы с колонтитулами было тоже все чики-пики? Я на эту тему еще ничего не искал и не смотрел. |
26.05.2009, 09:15 | #2 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
На будущее для таких случаев нужно использовать шаблон.
Сделать можно, но не одним движением руки, а нексколькими. Для этого нужно знать, откуда брать колонтитулы и размеры страницы.
Лучше день потерять — потом за пять минут долететь!©
|
26.05.2009, 09:23 | #3 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
|
26.05.2009, 09:26 | #4 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Может и напишу. Но нужно знать, что вы хотите видеть в колонтитулах и какие поля вы хотите установить.
Лучше день потерять — потом за пять минут долететь!©
|
26.05.2009, 21:45 | #5 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
|
27.05.2009, 10:13 | #6 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Откройте в Word все документы, в которых требуется установить колонтитулы и поля. Должны быть открыты только эти документы и никакие другие. Макрос нужно поместить в Normal.dot.
Код:
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 27.05.2009 в 10:57. |
02.06.2009, 21:30 | #7 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Не во всех случаях работает. Вот файл, где не работает.
|
02.06.2009, 22:07 | #8 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Конечно, не работает, потому что в документе несколько разделов. Попробуйте сделать сами, чтобы работало вне зависимости от количества разделов в документе.
Подсказка: Цикл перечисления For Each … Next и коллекция Sections
Лучше день потерять — потом за пять минут долететь!©
|
03.06.2009, 20:23 | #9 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Sub SetHeadersFootersAndMargins()
'Устанавливаем границы страницы для всего документа With oDoc.PageSetup .LeftMargin = CentimetersToPoints(2.5) .RightMargin = CentimetersToPoints(1.5) .TopMargin = CentimetersToPoints(1) .BottomMargin = CentimetersToPoints(1) End With Next End Sub Вот эта часть не работает в представленном файле. Если я создаю новый документ и делаю в нем разрывы разделов, то работает, а вот в этом документе не работает. |
03.06.2009, 20:43 | #10 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Busine2009, все-таки вы очень ленивый.
Почитайте справку и завтра мне скажете, почему эта часть не работает.
Лучше день потерять — потом за пять минут долететь!©
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одновременная работа с несколькими портами через ServerSocket | Sane2k | Работа с сетью в Delphi | 16 | 06.03.2009 17:24 |
Запуск своего приложения одновременно с другим | Sauronb|4 | Общие вопросы Delphi | 1 | 19.10.2008 18:45 |
Одновременно делать 2 действия(showmessage и ShellEzecute) | Ozerich | Общие вопросы Delphi | 2 | 29.08.2008 08:16 |
Изменять файл нескольким пользователям одновременно | asale | Microsoft Office Excel | 2 | 20.04.2008 23:49 |
сохранить ланные в файл и распечатать одновременно. | CaHeK | Общие вопросы Delphi | 5 | 07.04.2008 21:41 |