Problem with removing single rows from a Word table using Excel VBA

[m_in_spain]

The continuing saga of getting Excel to update my word document.

After seemingly endless attempts, lots of help from here, I have found the following line of code actually deletes a (bookmarked in Word with same name) row from my word table:

If docWord.Bookmarks.Exists(xlName.Name) Then docWord.Bookmarks(xlName.Name).Range.Rows.Delete

My problem is that it deletes not only the row i have bookmarked (Bookmark is at the first typing space in the row) but also other rows below it, sometimes 2, sometimes 3. In Word i shade fill some lines to denote a different area, the above code seems to delete all lines down to the shade change.

I have tried, what seems obvious to me, i.e. change Rows to Row, and also leaving out .Range, but each time it then doesn't delete anything.

I need each bookmark to delete one row in word only. Any help much appreciated

 

[Macropod]

If docWord.Bookmarks.Exists(xlName.Name) Then docWord.Bookmarks(xlName.Name).Range.Rows(1).Delete

 

[m_in_spain]

Many thanks again. I have now split my table in word into lots of single lines, as even with the Rows (1) it still managed to delete some other rows, now they are all single row with 1 pt spacing between them it works like a dream thank you. Odd thing was before i split the rows, sometimes it deleted the row, sometimes more than one row and many times deleted nothing! Now it is solved tho, thanks again.