View Single Post
  #2   Report Post  
Posted to microsoft.public.word.tables,microsoft.public.word.vba.general
Jay Freedman
 
Posts: n/a
Default For Each Cell in Range jumps out of range?

Hi Ed,

I'm not sure where (if anywhere) this is documented, but you can't assign a
table column to a range. A Word range always starts in the first cell and
goes left to right to the end of the row, then to the first cell in the next
row and across -- just like the order you'd see if you tabbed from cell to
cell. The column of cells, if you could assign it, would be seen as a
discontinuous series of subranges, something VBA doesn't support. The user
interface does some magic to let you select a column, but VBA doesn't get
the use of that.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

Ed wrote:
I have selected four cells in a single column and set a range to
them. Then I want to iterate through each cell of the range. The
first pass works fine, and affects the top cell of the selected
cells. The next pass, though, affects the cell to the right of the
top cell, which is not supposed to be included in the range! Why
does this jump out of the range I've set?

Ed

Dim rng As Range
Dim cll As Cell
Set rng = Selection.Range
rng.HighlightColorIndex = wdBrightGreen
' Highlight affects only selected cells,
' indicating range is set properly.
For Each cll In rng.Cells
' Do Stuff
Next cll