title: Clear new lines in Docx VBA
body: <p>I need to delete all of new lines if is consecutive, i know macros in excel but not in word, how can i read the value of an entire line?</p>
  
  <p>I read all the lines in the doc with this:</p>
  
  <pre><code>For i = 1 To 10
      Selection.MoveDown Unit:=wdLine, Count:=1
  Next i
  </code></pre>
  
  <p>Is there other way of read each line or how to know the total lines in a word to put this in the for?</p>
  
  <p>Thanks</p>