Hello all,
I would like to paste a shape into all the table cells.
I have put a shape in the first cell in the table.
How can I copy this shape into all the cells?
Sub CopyPasteShape()
Dim oTable As Table, oCell As Cell
For Each oTable In ActiveDocument.Tables
For Each oCell In oTable.Range.Cells
'ActiveDocument.Shapes.Range(Array("Rectangle 6")).Select
' Selection.PasteAndFormat (wdPasteDefault)
'ActiveDocument.Shapes.Range(Array("Rectangle 7")).Select
'Selection.PasteAndFormat (wdPasteDefault)
Next oCell
Next oTable
End Sub
thanks for any advice
sam