Delete line in word

Hi, I have written a small macro that pulls data from excel to populate a letter with data (eg name, address, and some selected paragraphs). here is an example of my code:

VB Code:

wordarray = Array(addressline1, addressline2, addressline3, addressline4, postcode, Policynumber, Yourref, ourref, date, salutation, para1, para2, para3, para4, signed, position) 
 
wrd.Activedocument.Fields(1).Select
    With wrd.Selection
    .InsertAfter Text:=Addressee
    End With
 
   For wrdroutine = 0 To 15
    wrd.Selection.NextField.Select
    With wrd.Selection
    .InsertAfter Text:=wordarray(wrdroutine)
    End With
 
Next
    
    End

My problem is, sometimes para1 may not be applicable, and the same for the rest of the paragraphs. So I could have a letter that will have para2, para3 & para5. This will leave blank spaces were para1 & para4 are. Is there a way so that if para = "" (in this case para1 & para4) then it will delete that line where that are supposed to be input and the one below to bring the text up so there will not be 3 blank lines between the next paragraph entere don the letter?

I hope this makes sense!

many thanks :thumb:

I'm not quite sure how your code works (I assume you have a number of fields in a document, but I don't know what the fields are). Anyway...

In your For Next loop can you do

VB Code:

Set f = wrd.Selection.NextField
If wordarray(wrdroutine) = "" Then f.Delete

thanks for that, will give that ago, not sure where to fit it in, but will try! thanks :thumb:

VB Code:

wordarray = Array(addressline1, addressline2, addressline3, addressline4, postcode, Policynumber, Yourref, ourref, Date, salutation, para1, para2, para3, para4, signed, position)
 
  wrd.Activedocument.Fields(1).Select
  With wrd.Selection
    .InsertAfter Text:=Addressee
  End With
 
  Dim f As Field
 
  For wrdroutine = 0 To 15
    Set f = wrd.Selection.NextField
    wrd.Selection.NextField.Select
    With wrd.Selection
      If wordarray(wrdroutine) = "" Then
        f.Delete
      Else
        .InsertAfter Text:=wordarray(wrdroutine)
      End If
    End With
  Next
    
  End

thanks alot, much appreciated