Delete Whole Line in Word

[bombdropVB]

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:="Line " & intLoop & ">", Forward:=True, _                 replacewith:=vntAddress(intLoop), Replace:=wdReplaceAll         Else             objRange.Find.Execute FindText:="Line " & intLoop & ">", Forward:=True, _                 replacewith:=vbKeyDelete, Replace:=wdReplaceAll         End If 'Len(vntAddress(intLoop))     Next 'intloop

thanks

 

[bombdropVB]

Sorry The code looks like so

    '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

 

[TonyJollans]

Hi bombdropVB,

If the Selection is in the line you want to delete, you can do ..

[blue]ActiveDocument.Bookmarks("\Line").Range.Delete[/blue]

But note, this only works with the Selection - not any other Range object.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

 

[bombdropVB]

Thanks mate but this sorted my problem out got it from another board but thanks anyway

        '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