0
0
1
| 1 | Sub ExportText() |
| 2 | Dim oPres As Presentation |
| 3 | Dim oSlides As Slides |
| 4 | Dim oSld As Slide 'Slide Object |
| 5 | Dim oShp As Shape 'Shape Object |
| 6 | Dim iFile As Integer 'File handle for output |
| 7 | iFile = FreeFile 'Get a free file number |
| 8 | Dim PathSep As String |
| 9 | Dim FileNum As Integer |
| 10 | Dim sTempString As String |