Programmatic copy/paste of textrange– (2000)

Topic

New Reply

I want to programmatically move the contents of a table
cell to a different cell. I cannot seem to find a way to
do this that does not lose the formatting information
associated with the text. For example:

With ActivePresentation.Slides(2).Shapes(2).Table
.Cell(3,1).Shape.TextFrame.TextRange.Copy
.Cell(3,3).Shape.TextFrame.TextRange.Paste
End With

This code will copy the text but not the font properties
of this text. Recording the manual cell-to-cell copy and
paste does not help as it does not record anything.

I want to run the macro in edit mode, not slide show mode.

Damon

Reply | Quote

Replies

Damon,

I don’t have PPT 2000 handy right now, but when I run your code in PPT 2002, it does work the way you’re looking for it to work – hmm, wonder if there is any difference in paste format defaults between the two versions? (don’t know much PPT so have no idea…)

Does it make any difference if you try:

With ActivePresentation.Slides(2).Shapes(2).Table
   .Cell(3, 1).Shape.TextFrame.TextRange.Copy
   .Cell(3, 3).Shape.TextFrame.TextRange.PasteSpecial ppPasteRTF
End With

Gary

Reply | Quote