🚀 go-pugleaf

> This also works. Does VB have ItemByRange?

yes

> myCells = app.selection[0];
> start = myCells.cells[0];
> end = myCells.cells[-1];
> myCells.cells.itemByRange(start, end).texts[0].appliedParagraphStyle = "table entry"

mySelCells.Cells.ItemByRange(mySelCells.Cells.Item(1), 
mySelCells.Cells.Item(-1)).Texts.Item(1).AppliedParagraphStyle = _ 
 
myDoc.ParagraphStyles.Item("qqq")

err.number = 438
"Object doesn't support this property or method"

this works:

mySelCells.Cells.ItemByRange(mySelCells.Cells.Item(1), 
mySelCells.Cells.Item(-1)).Item(1).Texts.ItemByRange( _
                             mySelCells.Cells.FirstItem.Texts.Item(1), _
                             mySelCells.Cells.LastItem.Texts.Item(1) _ 
 
     ).Item(1).AppliedParagraphStyle = _ 
                                          myDoc.ParagraphStyles.Item("qqq")

but style all cells in rows :(

if table is (5,5) and selection is (2,2)-(4,4)
style will be applied to:
(2,2)-(5,2)
(3,3)-(5,3)
(1,4)-(4,4)

_____
_###_
_###_
_###_
_____

will be:

_____
_$$$$
$$$$$
$$$$_
_____

only workaround is to style in For...Next and narrow selection to cells in row and apply style to this sub-selection

robin