Save formatted text

P

Per

Hi there.

Anoine who know a smart method to select a cell inside a
table, and copy the text into an area where the formatting
survive. I can not use the clipboard.
Please!

Per
 
H

Helmut Weber

Hi Per,
like this, only to demonstrate the principle:
---
Dim r As Range
With ActiveDocument.Tables(1).Cell(1, 5)
Set r = .Range.FormattedText
r.End = r.End - 1
Selection.Range.FormattedText = r
End With
 
Top