отступ новых абзацев по условию

[Molotoklk]

очень понравилось, что можно много уровней задать,
добавил в ваш код выравнивание, шрифт, и выбор таблицы.
есть вопрос: как настроить отступ?
и еще, сделал так, чтоб перед началом табуляция убиралась, чтоб потом не было несколько подряд, но выскакивает диалоговое окно, как от него избавится?

[Пименов Александр]

Я не знаю зачем Вам понабилось Кромсать мой код, вот Ваше форматирование улучшенное, если надо убрать табуляции я сам уберу, быстрее будет. Чтобы отформатировать заново Вашу таблицу мне пришлось всего лишь добавить одну строчку в мой код и 3 строки просто переставить.

[Пименов Александр]

Пункты выравниваются по принципу, если уровень1, то отступ 0, если уровень", то 5 мм и т.д., так сто уровень6 будет с отступом 6 мм, а уровень8 — 4 мм

[garik64]

Сообщение от Molotoklk

выскакивает диалоговое окно, как от него избавится?

Вы ж макрорекордером делали? Загляните в код и замените строчку
.Wrap = wdFindAsk
на
.Wrap = wdFindStop

Вместо запроса, что делать дальше, будет выполнять одну операцию и останавливаться. Если надо, чтобы обработало весь документ, то на

.Wrap = wdFindAll

Если строчки .Wrap нету (трудно понять, что Вы там написали) - вставьте подходящую в блок задания условий.

[Molotoklk]

Александр,
почему это вам показалось, что я кромсал ваш код? Макрос работает без сбоев, это радует, я просто вписал туда несколько строк для форматирования. Вписал как смог на основе записанных самим Вордом, чтобы лишний раз не беспокоить по мелочам....
Извините если вас это разозлило. Еще раз большое спасибо, сам бы я не спраился!!!!!!

[garik64]

Сообщение от Пименов Александр

Я не знаю зачем Вам понабилось Кромсать мой код

Странная претензия. Здесь вообще-то люди помогают друг другу программировать

[Пименов Александр]

Я не разозлился, если нужно расписать код поэтапно и почему так работает пишите мне на почту или контактируйте в МайлАгенте быстрее будет и эффективнее.....

[Пименов Александр]

Совет: Код скомпилированный Word на 90% следует рассматривать как пример.... И надо понимать куда его вставлять, то есть понять код программы.........

[Molotoklk]

Сообщение от garik64

замените строчку
.Wrap = wdFindAsk
на
.Wrap = wdFindStop
...

попробовал, не получилось, а вот
.Wrap = wdFindContinue
помогло

[Molotoklk]

Алксандр, а еще очень приятно удивило, что уровень определяется даже для строк где нет пробела после точки)))