Hi Ronit,
The following construction works fairly fast:
With Selection
.TypeText "one"
.MoveRight Unit:=wdCell
.TypeText "two"
.MoveRight Unit:=wdCell
.TypeText "three"
.MoveRight Unit:=wdCell
.TypeText "four"
.MoveRight Unit:=wdCell
End With
You may also be able to use:
For i = 1 To 4
ActiveDocument.Tables(1).Cell(1, i).Range.InsertBefore "test" & i
Next i
Hope this helps
Regards,
Doug Robbins - Word MVP
Please post any response to the Newsgroups so that other may benefit
therefrom or contribute thereto.
Quote:
> How can I add text to a row in a table with many cells in only one
sentence?
> I tryed sending tabs between the words and it doesn't work.
> I know that there is another way that is with:
> .Selection.TypeText Text:=pintTabs
> .Selection.MoveRight unit:=wdCell
> but I'm looking for a faster way
> Thank you very much in advance,
> Ronit Kadosh