удаление абзацев

[D_e_n_n]

мне необходимо удалить 1-й и 2-ой пустые абзацы в ворде в начале всех листов, как сделать ума не приложу

[shanemac51]

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

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

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

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

можете потерять оформление

[D_e_n_n]

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

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

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

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

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

можете потерять оформление

как раз наоборот они все портят

[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]

Сообщение от 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

спасибо, лихо все работает!