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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.03.2011, 14:50   #1
D_e_n_n
Пользователь
 
Регистрация: 29.01.2008
Сообщений: 30
По умолчанию удаление абзацев

мне необходимо удалить 1-й и 2-ой пустые абзацы в ворде в начале всех листов, как сделать ума не приложу
Изображения
Тип файла: jpg абзацы.jpg (2.4 Кб, 113 просмотров)

Последний раз редактировалось D_e_n_n; 10.03.2011 в 14:58. Причина: добавил скрин
D_e_n_n вне форума Ответить с цитированием
Старый 10.03.2011, 15:07   #2
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию

как определить пустые абзацы в ворде в начале всех листов, или в середине листа

удаление абзаца приведет к сдвигу более поздних абзацев

поплывут заголовки , сдвинутся в неопределенном направлении рисунки, таблицы и т.д.

каждый пустой абзац для чего-то вводился в ручном режиме

можете потерять оформление
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 10.03.2011, 16:38   #3
D_e_n_n
Пользователь
 
Регистрация: 29.01.2008
Сообщений: 30
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
как определить пустые абзацы в ворде в начале всех листов, или в середине листа

удаление абзаца приведет к сдвигу более поздних абзацев

поплывут заголовки , сдвинутся в неопределенном направлении рисунки, таблицы и т.д.

каждый пустой абзац для чего-то вводился в ручном режиме

можете потерять оформление
как раз наоборот они все портят
D_e_n_n вне форума Ответить с цитированием
Старый 10.03.2011, 17:20   #4
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию

попробуйте на дубле файла

Код:
Sub del_par() '''удаление пустых параграфов
Dim j1, j2

j1 = Word.ActiveDocument.Paragraphs.Count
j2 = 0
Do While j1 > 0
If Len(Word.ActiveDocument.Paragraphs(j1).Range.Text) < 3 Then
j2 = j2 + 1
Debug.Print "="; j1; j2;
Word.ActiveDocument.Paragraphs(j1).Range.Delete
End If
j1 = j1 - 1

Loop

End Sub
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 10.03.2011, 18:33   #5
D_e_n_n
Пользователь
 
Регистрация: 29.01.2008
Сообщений: 30
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
попробуйте на дубле файла

Код:
Sub del_par() '''удаление пустых параграфов
Dim j1, j2

j1 = Word.ActiveDocument.Paragraphs.Count
j2 = 0
Do While j1 > 0
If Len(Word.ActiveDocument.Paragraphs(j1).Range.Text) < 3 Then
j2 = j2 + 1
Debug.Print "="; j1; j2;
Word.ActiveDocument.Paragraphs(j1).Range.Delete
End If
j1 = j1 - 1

Loop

End Sub
спасибо, лихо все работает!
D_e_n_n вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перемещение абзацев внутри ячейки piatka Microsoft Office Word 6 18.05.2010 18:57
Текстовый файл. Подсчитать в нем количество слов, символов, абзацев. Xeon332 Помощь студентам 3 24.12.2009 01:23
Удаление RX artemavd БД в Delphi 1 14.06.2009 19:24