miroshnik542 Сообщение 04/08/2007 09:36 Копия темы
VBA, Word – Нужна помощь! . Есть куча документов Ворд, в них полно пустых отступов и двойных абзацев.
Как их убрать, можно ли макрос какой-нибудь написать? В лом вручную редактировать, времени жаль.

Пожалуйста подскажите, если кто знает...

urag Сообщение 04/08/2007 09:46 Копия темы
.
Эдит, найти и заменить...

shupruta Сообщение 04/08/2007 09:51 Копия темы
.
Двойные абзацы можно убрать примерно таким макросом (навскидку):

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p»
.Replacement.Text = "^p»
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

если тма еще какие-то отступы есть левые, то надо смотреть комбинации по аналогии с "^p^p», которые надо заменять (например, несколько пробелов -> один пробел, пробел-абцац – > абзац и т.д.). Плюс можно макрос несколько раз применить – с первого раза не всегда все отступы уберутся. Но все равно – времени кучу сэкономишь :-), обобенно, если пропишешь в макросе пакетную обработку файлов по всем своим документам (например, из определенного каталога).

Удачи! :-)

textmaker Сообщение 04/08/2007 10:58 Копия темы
.
Бог мой... :))
Все делается функциями Формат-Абзац-Отступ и Интервал (пометить весь текст и установить нужное) – двойные абзацы.
Двойные пробелы: Правка – Заменить: двойные пробелы на один (до тех пор, пока не исчезнут).

shupruta Сообщение 04/08/2007 20:31 Копия темы
.
Чел хотел автоматически обработать более 100 документов ;)...замучаешься каждый раз исправлять через меню (тем более, что вариаций того, что исправлять было достаточно много...как выяснилось) :)
смысл, оказывается, был в том, стобы не открывать и не редактировать эти файлы вообще :)