MAcro to find text only on first row of table

[smiba]

Hi,

I have a macro that uses Selection.Find to locate text and then deletes the
column of the table where the text is found. How would I add the criteria to
only delete the row if the text found is in the first row?

Using Word 2003

Thanks

 

[Helmut Weber]

Hi,


Selection.Information(wdEndOfRangeRowNumber)
returns the row number where the end of the selection is.

So:

if Selection.Information(wdEndOfRangeRowNumber)= 1 then
'your code
endif

There is too: Selection.Information(wdStartOfRangeRowNumber)
--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"