Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2011, 20:10   #1
Molotoklk
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 36
По умолчанию отступ новых абзацев по условию

здравствуйте, столкнулся с задачей отредактировать оглавление документа. подскажите, можно ли как-нибудь сделать, чтобы отступ определялся автоматически?
чтобы например у названия главы отступ был 1 см,
Название раздела - 2 см, название пункта - 3см.
и еще, чтобы до конца строки автоматически проставлялись точки. Заранее большое спасибо!
Вложения
Тип файла: zip пример как есть и как должно быть.zip (202.5 Кб, 20 просмотров)

Последний раз редактировалось Molotoklk; 29.09.2011 в 20:14.
Molotoklk вне форума Ответить с цитированием
Старый 29.09.2011, 21:50   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

А почему Вы вообще создаете оглавление вручную?
Я вижу, в документе определены стили 1 ЗАГОЛОВОК 1, 1.1 Заголовок 2 и т.д. Они использованы как стили заголовков в основном документе? То есть, нумерация заголовков в документе автоматическая?
Если да, то создавайте оглавление командой Вставка - Оглавление и указатели - Оглавление (так в Ворд 2000). Там можно настроить отступы, заполнение точками и пр.
Если нет, то рекомендую потратить некоторое время на присвоение заголовкам упомянутых стилей. Потом, в случае правки документа, оглавление не придется переделывать вручную. И появится возможность автоматически нумеровать таблицы и рисунки, включая номер главы, выносить номер и название раздела в колонтитул и другое, в общем, создать документ, который выглядит профессионально и удобен для последующего редактирования.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 30.09.2011, 09:31   #3
Molotoklk
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 36
По умолчанию

дело в том, что все пункты оглавления - это названия отдельных документов, причем разных типов файлов, а разделы и главы - это названия папок, в которых они лежат))) с помощью сторонней программы мы получили файл, который выдает дерево каталогов и файлов из указанной папки, и написали макрос, который сортирует этот список и удаляет расширения. а теперь задаемся вопросом, можно ли и отступы сделать автоматически?
office - 2010. Заранее благодарен))
Molotoklk вне форума Ответить с цитированием
Старый 07.10.2011, 16:57   #4
garik64
Форумчанин
 
Регистрация: 09.07.2009
Сообщений: 111
По умолчанию

То есть ещё на этапе подготовки вы знаете, какой документ будет главой, а какой - разделом. Что же мешает ещё тогда присвоить им разные стили? А если что-то (религия? ) всё же мешает, можно проверять каждую строку на количество точек в начале.

1) Ищем начало строки (то, что после абзаца)
2) Выделяем диапазон до пробела (до начала текста)
3) В выделенном считаем количество точек. Три точки до пробела - присваиваем стиль3, две точки - стиль2 и т.д.
4) Повторяем на следующей строке
5) и т.д.

Ну а уж в стилях указать параметры: отступы, точки в конце.
garik64 вне форума Ответить с цитированием
Старый 07.10.2011, 20:20   #5
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Вообще-то это не очень сложно.
Форматировать заголовки можно по принципу определения кол-ва цифр разделенных точками, по этому параметру определить уровень заголовка и стиль, а вместо точек использовать табуляцию с заполнением.
Могу код написать, но чуть позже.........
Пименов Александр вне форума Ответить с цитированием
Старый 19.10.2011, 11:13   #6
Molotoklk
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 36
По умолчанию

с помощью табуляции я уже сделал чтобы точки в конце строки ставились, так что вряд ли получится.....
Molotoklk вне форума Ответить с цитированием
Старый 19.10.2011, 12:54   #7
garik64
Форумчанин
 
Регистрация: 09.07.2009
Сообщений: 111
По умолчанию

Цитата:
Сообщение от Molotoklk Посмотреть сообщение
с помощью табуляции я уже сделал чтобы точки в конце строки ставились, так что вряд ли получится.....
Считать точки надо в промежутке от начала строки до пробела, которого в конце строки нет.
garik64 вне форума Ответить с цитированием
Старый 19.10.2011, 19:52   #8
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Вот макрос форматирования Вашего оглавления на основе документа Оглавление как есть. Макрос называется Creat_colPuncts.
Можете форматировать документы в моем документе, если будете использовать другой шаблон, то перекопируйте код из ThisDocument и класс cls_PunktContent в Ваш шаблон.
Чтобы макрос работал корректно достаточно установить курсор в любой ячейке форматируемой таблицы и выполнить макрос Creat_colPuncts.
В нем отключена функция выделения уровня пункта цветом, если захотите выделять пункты оглавнения цветом чтобы видеть уровень пункта напишите, я скажу как добавить эту функцию.
Вложения
Тип файла: doc Оглавление как есть.doc (212.5 Кб, 13 просмотров)
Пименов Александр вне форума Ответить с цитированием
Старый 19.10.2011, 19:55   #9
Molotoklk
Пользователь
 
Регистрация: 24.09.2011
Сообщений: 36
По умолчанию

Спасибо!!!!
Molotoklk вне форума Ответить с цитированием
Старый 19.10.2011, 20:00   #10
Пименов Александр
Форумчанин
 
Регистрация: 17.11.2010
Сообщений: 222
По умолчанию

Если будут вопросы пишите
Пименов Александр вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Убрать отступ jokingly HTML и CSS 4 28.05.2011 01:09
макрос для абзацев Genis Microsoft Office Word 4 13.04.2011 13:33
удаление абзацев D_e_n_n Microsoft Office Word 4 10.03.2011 18:33
Перемещение абзацев внутри ячейки piatka Microsoft Office Word 6 18.05.2010 18:57
Текстовый файл. Подсчитать в нем количество слов, символов, абзацев. Xeon332 Помощь студентам 3 24.12.2009 01:23