Удаление пустых строк из документа Word

[VSL]

Помогите, пожалуйста, удалить пустые строчки в Worde, так надоело их вручную удалять, а как написать макрос не хвататет времени читать.
Спасибо

[alibek]

Код: Выделить всё

Do
  With ThisDocument.Content.Find
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .Text = "^p^p"
    If Not .Execute() Then Exit Do
    If Not .Found Then Exit Do
    .Replacement.Text = "^p"
    .Execute Replace:=wdReplaceAll
  End With
Loop