Все фрагменты с этой темой VBA

LiuShen's Avatar

LiuShen / 快速提取所有ppt中的文本内容

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 11 months ago
利用visual basic将PPT中的所有文本提取出来
Convert PPT TXT VBA
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
Новее Позже

Работает на Opengist ⋅ Load: 20ms⋅

Русский
⋅ 个人主页 ⋅ 站长博客