Need help on Macro 03- Find text - if text is blank then remove line

[simpleonline1234]

I have a macro that I am working on right now and it daunting.

I need to be able to find text on the document and if the value next to the word is blank then delete the entire line and move the next line up.

This is what I have coded so far but it doesn't do anything



any ideas on how to get this one working?

Thanks

Dim RemoveLines As Field
For Each RemoveLines In ActiveDocument.Fields
  If RemoveLines.Type = wdFieldCharacter Then
   
  End If
Next RemoveLines

[macropod]

Hi simpleonline,

There is no such thing as .Type = wdFieldCharacter for a Word field.

Perhaps you could explain a bit more about what kind of fields you're working with and what you mean by 'if the value next to the word is blank'. It also makes a big difference if the lines you refer to are separate paragraphs, as Word's concept of a line is affected by the current printer driver (which it uses to lay out the text on the page). Hence, you can get different results with different printers if you're working with lines within a paragraph.