ppt怎样转换成word
1.ppt怎样转换成word
请将以下代码复制到记事本里面并另存为：PPT转WORD.vbs，然后将需要转的PPT和这个程序文件同时复制到C盘根目录下，双击运行即可全程自动转成word，保存在c盘根目录里：PPT转WORD.vbs，祝您好运！ ———————————————————————————— '绑定到本地计算机 strComputer = "." '如果发生错误，继续执行 on error resume next Set 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" 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。
2.怎么把ppt变成word的文档
方法一、利用大纲视图
打开PPT演示文稿，单击“大纲”，在左侧“幻灯片/大纲”任务窗格的“大纲”选项卡里单击一下鼠标，按“Ctrl+A”组合键全选内容，然后使用“Ctrl+C”组合键或右键单击在快捷菜单中选择“复制”命令，将内容粘贴到Word里。这种方法会把原来幻灯片中的行标、各种符号原封不动复制下来。
方法二、利用“发送”功能转换
打开要转换的PPT幻灯片，单击“文件→发送→Microsoft Word”菜单命令。然后选择“只使用大纲”单选按钮，并单击“确定”按钮，等一会就发现整篇PPT文档在一个Word文档里被打开。在转换后会发现Word有很多空行。在Word里用替换功能全部删除空行可按“Ctrl+H”打开“替换”对话框，在“查找内容”里输入“^p^p”，在“替换为”里输入“^p”，多单击几次“全部替换”按钮即可。（“^”可在英文状态下用“Shift+6”键来输入）。
方法三、利用“另存为”直接转换
打开需要转换的幻灯片，点击“文件”→“另存为”，然后在“保存类型”列表框里选择保存为“rtf”格式。现在用Word打开刚刚保存的rtf文件，使用这种方法需要对文档进行适当的编辑
方法四、利用软件转换
用PPT文件转word文档：pptconverttodoc1.0绿色版绿色版，本程序可以将PPT文件的所有文字内容（包括幻灯片和备注）提取成WORD文档，该文件保存于PPT文件所在目录，若PPT文件名为“XXX.ppt”，则转换获得的WORD文档的文件名将是“XXX.ppt.Convertor.doc”。本程序转换后的WORD文档中文字顺序排列，并未排版，因此尚需用户自行调整。
本程序无需安装，直接运行。最好将之前运行的WORD和POWERPOINT程序均关闭。将欲操作的PPT文件拖入程序，按程序界面中的“开始”按钮即可。操作过程中幻灯片和Word文档自行活动，不必担心。转换时间视幻灯片文字多少而定，一般1至2分钟搞定。转换结束后程序自动退出。
转换前可以选择获是否在得的Word文档中添加分隔标志文字。若选择添加，则分隔标志文字的格式为：PageNo.X：表明其后的文字源于第X张幻灯片；WordsFromSlide：表明其后的文字源于幻灯片页面；WordsFromNotePage：表明其后的文字源于备注页面.