将下面代码复制下来，另存为convert.vbs。使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此脚本文件即可。'绑定到本地计算机strComputer = "."'如果发生错误，继续执行on error resume nextSet objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")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" ThenpptApp.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 Nextnext'关闭这个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 IfNextpptApp.quit我试过了，图好像不行，但是文字都可以转换过来。虽然还需要排版，但已经事半功倍了

当然，正常情况下，是可以这样操作的： 文件->发送->microsoft word(选择大纲) 确定 That's OK第一种方式是非正常情况下所采取的

Word文档转为PPT演示文档的两种方法许多人都习惯在PowerPoint环境中制作幻灯片。如果你手头有一个现成的Word文稿讲义，就能变成PowerPoint演示文稿，而不用打开 PowerPoint重新输入文字。因为Word和PowerPoint两个软件早为你考虑周到了，只需几下简单的操作，你的一篇Word文档即可轻松转换为PowerPoint演示文稿。本文提供两种方法供您选择。·导入Word文档先在Word的大纲视图下，创建一个Word大纲文件，存盘；然后打开PowerPoint程序，单击菜单栏上的“插入”，选“幻灯片(从大纲)”，在打开的插入大纲对话框中选中刚才存盘的Word大纲文档，单击[插入]，这样，Word大纲文档就变成了PowerPoint演示文稿。二者的对应关系是：Word大纲文档的一级标题变为PowerPoint演示文稿页面的标题，Word大纲文档的二级标题变为PowerPoint演示文稿页面的第一级正文，Word大纲文档的三级标题变为PowerPoint演示文稿页面第一级正文下的主要内容，其余依次类推。这种转换方法要求你在Word大纲视图下编辑文档，对于习惯于Word页面视图的朋友来说有些不太方便，那么请看下法。·直接创建演示文稿如果你在Word的页面视图下已写好了内容或者是以前用Word编的一篇文章，想把它们制成幻灯片，就可以在Word中应用“样式”和快捷键来直接创建演示文稿。先解释一下什么是样式：样式是Word中早就有的功能，只不过我们很少用到它，使用样式功能可以使文档的创建和管理易如反掌。样式工具栏就在操作界面的左上端，通常都写着“正文”两个字。点击右侧的向下箭头，会出现“标题1、标题2、标题3……正文”等内容。您还可以按住“Shift”键的同时点击向下箭头，看看会出现什么情况?请先把你认为要作为一张幻灯片标题的地方选中，然后选择“标题1”，其他也依次类推。然后在菜单栏上选择“工具/自定义”，再在弹出的对话框中选“命令” 选项卡，从左窗口中选“所有命令”，从右窗口中找到“Present It”命令。用鼠标左键按住并拖动“Present It”至Word的菜单栏或工具栏均可。用此快捷键可直接调用PowerPoint程序，并把当前的Word文档直接转换为PowerPoint演示文稿，以大纲视图显示。点击 “PresentIt”后你会发现，用标题1样式定义过的标题全都作为独立的一页幻灯片。如果你没给Word文档定义样式，点击[Present It]后，PowerPoint会把文档的每一段落作为一张幻灯片，是不是很简单啊?以后你尽可以在你习惯的Word下编排文章，然后轻松地转为 PowerPoint演示文稿。当然，你也可以把任何以前的Word文档或你找来的文章转换为你需要的PowerPoint演示文稿。文稿转换好了以后，剩下的修饰想必你肯定自己会料理了。

谢了，挺好的！

文件->发送->microsoft word(选择大纲)great.

谢谢楼主！！！

3q