Excel vba удалить пустые строки в Word

Question

Так как я нахожу и заменяю из Excel VBA в Word, я должен удалить пустые / пустые строки в Word.

Это мой текущий код:

Sub xyz()

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdRng As Word.Range

Set wdApp = CreateObject("word.application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(Cur_dir_var & "\!Automatisering gegevens template.docx")
For Each wdRng In wdDoc.StoryRanges



'~~> Find 'n replace
With wdRng.Find
                .Text = "<Project naam>"
                .Replacement.Text = Project_naam_var
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll

                .Text = "<Klant>"
                .Replacement.Text = Klant_var
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
End With

Next wdRng

'~~> Save as
wdDoc.SaveAs2 Filename:=Cur_dir_var & "\" & Worksheets("Algemeen").Range("B3").Value & " Automatisering gegevens.docx"

'~~> Quit
    wdApp.Quit

'~~> Clean up
Set wdApp = Nothing: Set wdDoc = Nothing: Set wdRng = Nothing
End Sub

Я хотел быудалить все пустые строки в моем документе Word. Как я могу сделать это наилучшим из возможных способов и внедрить его в мой текущий код?

Заранее спасибо !!

ПРИМЕР:

<netwerk1_naam_var>
<netwerk1_merk_var>
<netwerk1_type_var>
<netwerk1_ip_var>
<netwerk1_subnet_var>
<netwerk1_Username_var>
<netwerk1_Password_var>
<netwerk1_MAC_var>
<ENTER>
<netwerk2_naam_var>
<netwerk2_merk_var>
<netwerk2_type_var>
<netwerk2_ip_var>
<netwerk2_subnet_var>
<netwerk2_Username_var>
<netwerk2_Password_var>
<netwerk2_MAC_var>
<ENTER>