爱华网怎样将PPT文件转换为Word文档? ppt模板转换word文档
应用程序完美转换PPT 到Word 文档
说起来很简单，就是你把下面这段代码文字复制到Windows 文本中，将文件保存为 .vbs生成一个可执行程序。保存在任何一个地方，比如桌面。这段代码也是我在无意中发现的，但使用后感觉已经很好，并且简单。
'绑定到本地计算机
strComputer = "."
'如果发生错误，继续执行
on error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
msgbox "此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复制到目录c:下。双击运行此文件即可。" & vbcrlf & "运行此脚本需要本机上安装了office"
'创建一个word对象
Set objWord = CreateObject("Word.Application")
'创建一个ppt对象
Set pptApp = CreateObject("PowerPoint.application")
'获得c:目录下的文件集合
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In FileList
'如果文件的扩展名是ppt
If objFile.Extension = "ppt" Then
pptApp.visible = true
'打开这个ppt文件
Set pptSelection = pptApp.Presentations.Open("c:" & objFile.FileName & "." & objFile.Extension)
'如果想让脚本处理得快些，把下面一行改为“objWord.Visible = false”,不推荐。
objWord.Visible = true
'新建一个word，以保存ppt中的文本
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
'从ppt的第一页开始循环。Slides.Count即幻灯片的数量
For i = 1 To pptSelection.Slides.Count
'从每一张ppt的第一个文本框开始循环，Shapes.Count，即每张幻灯片中文本框的数量
For j = 1 To pptSelection.Slides(i).Shapes.Count
'如果是每页的第一行，就按标题处理，变成黑体字
if i =1 then
objSelection.Font.Name = "黑体"
'把文本框中的文字添加到word中
objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
objSelection.TypeParagraph()
objSelection.Font.Name = "宋体"
end if
objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
'加一个回车
objSelection.TypeText vbcrlf
Next
next
'关闭这个ppt文件
pptSelection.close
'保存word文件。
objDoc.SaveAs("c:" & objFile.FileName & ".doc")
'如果不需要关闭word，把下面这一行删掉
objDoc.close
'如果不想弹出消息框，把下面这一行删掉
msgbox "转换后的word已保存在c:" & objFile.FileName & ".doc"
else '没有ppt文件
'msgbox "错误：c:下没有发现ppt文件！"
End If
Next
pptApp.quit
怎样使用程序将PPT转换为Word 文档?
将你需要转换的PPT文档放到C: 的根目录下，双击我们刚才生成的 .vbs 程序，弹出下面的对话框，点击“确定”。
之后稍等片刻(根据PPT 文档的大小可能等待的时间有所区别)。就会自动打开一个已经生成的Word 文档，怎么样，你看到了什么?转换完成，弹出下面的对话框，点击确定后收工。
这个程序无需安装，直接运行，文件也小。在转换前最好将之前打开的Word 和PowerPoint程序关闭。
由于本程序转换后的Word文档中文字顺序并未排版，因此尚需用户自行调整。但是这已经让我们事半功倍了。
更多阅读
怎样将mp3转换成wma---wma转换为mp3 wma转mp3在线转换
怎样将mp3转换成wma---wma转换为mp3——简介 在我们平时的生活中，我们有时候需要对音乐的格式进行一些转换，比如mp3格式的音乐转化为wma或者wma转换为mp3。 我们如何进行音乐格式的简单转换呢？小编今天给大家简单介绍一下，希望对大家有
怎样将PPT转换成word wps中ppt转换成word
怎样将PPT转换成word呢？粘贴复制？当然不是了，肯定有更省劲的办法的，大家瞅瞅来哈怎样将PPT转换成word——工具/原料PPT怎样将PPT转换成word——步骤/方法怎样将PPT转换成word 1、打开你要转换成word的PPT怎样将PPT转换成word 2、然后把
使用WinRAR将文件压缩为ZIP格式 winrar如何压缩成 zip
使用WinRAR将文件压缩为ZIP格式——简介WinRAR软件可以将程序压缩成RAR和ZIP格式，其中RAR是其默认的压缩格式。本文讲述了使用WinRAR软件将一个文件压缩为ZIP格式的过程。使用WinRAR将文件压缩为ZIP格式——工具/原料
将CDA文件转换成MP3格式 cda转换mp3格式软件
将CDA文件转换成MP3格式——简介很多高保真光碟上的歌曲是CDA格式的，以Track01.cda、Track02.cda这样的格式命名的，但这些CDA文件却只有1K，网上找来工具发现也不能将CDA格式转换成MP3或WAV格式的。但用用Windows Media Player是可以将C
如何将pdf文件转换成html文件 将html文件转换为pdf
如何将pdf文件转换成html文件——简介pdf文件是我们在工作生活中用的非常多高质量文件格式，有时我们需要将pdf转换成html网页文件，便于嵌入网页中,并且可以提取 PDF 中的图片。如何将pdf文件转换成html文件——工具/原料电脑pdf转换