Delete Whole Line [Resolved]

[Bombdrop]

Hi all im trying to delete a whole line in a document if a element of an array has no value

my code at present just place "46" there due to me using VBKeyDelete, so what do i do to replace the ,marker by completley deleting the line???

'Loop Through the array placing in the address info
    For intLoop = 1 To UBound(vntAddress)
        'See if the Array elemnt has a value
        If Len(vntAddress(intLoop)) Then
            objRange.Find.Execute FindText:="<Address Line " & intLoop & ">", Forward:=True, _
                replacewith:=vntAddress(intLoop), Replace:=wdReplaceAll
        Else
            objRange.Find.Execute FindText:="<Address Line " & intLoop & ">", Forward:=True, _
                replacewith:=vbKeyDelete, Replace:=wdReplaceAll
        End If 'Len(vntAddress(intLoop))
    Next 'intloop

Thanks

[Ecniv]

Replace the line with "" instead of the vbdelete key.


Vince

[Bombdrop]

thanks mate thought of that just leveas a blank space i wish to physically remove the line if there is no information to place within it.

thanks anyway

[si_the_geek]

once the selection is on the right line, you can use this:

wdApp.Selection.Expand wdLine
  wdApp.Selection.Delete Unit:=wdCharacter, Count:=1

I'm not sure if you can replace wdApp.Selection with objRange

[Bombdrop]

Thanks SI great works a treat

'Loop Through the array placing in the address info
        For intLoop = 1 To UBound(vntAddress)
            'See if the Array elemnt has a value
            If Len(vntAddress(intLoop)) Then
                objRange.Find.Execute FindText:="<Address Line " & intLoop & ">", Forward:=True, _
                    replacewith:=vntAddress(intLoop), Replace:=wdReplaceAll
            Else
                 objRange.Find.Execute FindText:="<Address Line " & intLoop & ">", Forward:=True ', _
                    'replacewith:="", Replace:=wdReplaceAll
                    objRange.Select
                      Application.Selection.Expand wdLine
                      Application.Selection.Delete Unit:=wdCharacter, Count:=1
 
            End If 'Len(vntAddress(intLoop))
        Next 'intloop

THANKS!!!!!