无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 3230|回复: 4

[分享] 批量转化ppt和pptx文件为txt的vbs可拖PPT文件到该vbs上或直接同目录运行vbs批量转化

[复制链接]
发表于 2020-5-21 18:52:54 | 显示全部楼层 |阅读模式
本帖最后由 sairen139 于 2020-5-21 19:01 编辑

批量转化ppt和pptx文件为txt的vbs,可拖PPT文件到该vbs上或文件夹内直接运行vbs批量转化该文件夹里的所有PPT文件新生成同名的TXT文件文件!
PPT转TXT文件用vbs写的小工具PPT2TXT.vbs,将ppt文件转换为txt文本文件,便于后续的文本处理。

使用方法:将需要转换的文件通过鼠标拖拽到该vbs上,或将该vbs粘贴到文件夹然后双击运行,可以把文件夹内的所有ppt文件转换为txt文本文件 注:需安装有office。仅转换文本,不支持图表等其他非文字对象:
' PPT2TXT.vbs
' Usage:
' (1) Drag one ppt file to this file
' (2) Copy this file to one folder and run. All ppt files in the folder will be converted to txt files

On Error Resume Next
set FSO = CreateObject("Scripting.FileSystemObject")
count = 0
ArgNum = WScript.Arguments.Count
if ArgNum = 0 then
  set files = FSO.GetFolder(".").Files
else
  set files = WScript.Arguments
end if

for each file in files
  ExName = LCase(FSO.GetExtensionName(file))
  if Left(ExName,3) = "ppt" then
    set objApp = CreateObject("PowerPoint.Application")
    objApp.Visible = true
    set objPresentation = objApp.Presentations.Open(file)
    FileName = Left(file,instrrev(file,".")) & "txt"
    set TxtFile = FSO.CreateTextFile(FileName,true)
    for i = 1 to objPresentation.Slides.Count
      for j = 1 to objPresentation.Slides(i).Shapes.Count
        TxtFile.WriteLine(objPresentation.Slides(i).Shapes(j).TextFrame.TextRange.Text)
        if Err.Number <> 0 then
          Err.Clear
        end if
      next      
    next
    TxtFile.Close
    objPresentation.Close
    objApp.Quit
    set TxtFile = nothing
    set objPresentation = nothing
    set objApp = nothing     
    count = count + 1
  end if
next

set files = nothing
set FSO = nothing
if Err.Number <> 0 then
  msgbox "Failed to convert some files in all " & count & " files!" & VbCrLf & "Possible reason:" & VbCrLf & "Some files are corrupt"
else
  WScript.Echo count & " file(s) converted successfully"
end if
Err.Clear
Wscript.Quit

PPT2TXT.vbs.Zip

1.55 KB, 下载次数: 40, 下载积分: 无忧币 -2

去掉vbs后面的后缀名.Zip即可

评分

参与人数 1无忧币 +5 收起 理由
2013ertert + 5 虽然我很少转换。但是很感谢分享原创作品。.

查看全部评分

发表于 2020-5-21 23:12:07 | 显示全部楼层
感谢分享,学习
回复

使用道具 举报

发表于 2020-5-22 08:13:21 | 显示全部楼层
很厉害,也很给力。学习了,谢谢!
回复

使用道具 举报

发表于 2020-5-23 19:31:37 来自手机 | 显示全部楼层
谢谢分享
回复

使用道具 举报

发表于 2020-6-24 21:44:59 | 显示全部楼层
感谢分享,学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-3-29 21:13

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表