Sub Test() ActiveShape.Text.ExportToFile "C:\Temp.txt", 2, 4, cdrParagraphIndexing ActiveShape.Text.ImportFromFile "C:\Temp.txt", 1, cdrParagraphIndexingEnd Sub