怎样完整地将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
怎么把PPT内容转成WORD档PPT2007:将PPT中的文字转换成Word文档的4种方法
1.利用“大纲”视图
在大纲视图中可手工保持幻灯片中的文字内容
打开PPT演示文稿,单击“大纲”,在左侧“幻灯片/大纲”任务窗格的“大纲”选项卡里单击一下鼠标,按“Ctrl+A”组合健全选内容,然后使用“Ctrl+C”组合键或右键单击在快捷菜单中选择“复制”命令,然后粘贴到Word里 。
小提示:
这种方法会把原来幻灯片中的行标、各种符号原封不动的复制下来 。
2.利用“发送”功能巧转换
打开要转换的PPT幻灯片,单击“文件”→“发送”→“Microsoft Word”菜单命令 。
然后选择“只使用大纲”单选按钮并单击“确定”按钮,等一会就发现整篇PPT文档在一个Word文档里被打开 。
小提示:
在转换后会发现Word有很多空行 。在Word里用替换功能全部删除空行可按“Ctrl+H”打开“替换”对话框,在“查找内容”里输入“^p^p”,在“替换为”里输入“^p”,多单击几次“全部替换”按钮即可 。(“^”可在英文状态下用“Shift+6”键来输入 。)
3.利用“另存为”直接转换
打开需要转换的幻灯片,点击“文件”→“另存为”,然后在“保存类型”列表框里选择存为“rtf”格式 。现在用Word打开刚刚保存的rtf文件,再进行适当的编辑即可实现转换 。
4.PPTConverttoDOC软件转换
PPTConverttoDOC是绿色软,解压后直接运行,在运行之前请将Word和PPT程序都关闭 。
选中要转换的PPT文件,直接拖曳到“PPTConverttoDOC”程序里 。
单击工具软件里的“开始”按钮即可转换,转换结束后程序自动退出 。
小提示:
如果选中“转换时加分隔标志”,则会在转换好的word文档中显示当前内容在原幻灯片的哪一页 。
转换完成后即可自动新建一个Word文档,显示该PPT文件中的所有文字
如何将PPT文件转换成word文件你吧PPT切换到大纲视图 然后把大纲里边的内容复制 然后粘贴到WORD里边就行了 我觉得你应该是想要这些文字的东西了吧 这个办法可以办到 如果你还想要图片的话 就再吧图片单独复制出来 然后贴到WORD里边就行了 祝你成功 。。。还有 通过改变后缀名不能转换成WORD
如何将ppt转换为word文档?打开PPT,点菜单的“文件”,在下拉出来的选项中选择“发送”,再向右指向“microsoft office word”,在弹出的窗口中,选择一下备注的位置,确定后,就会弹同word,开始转换,完成后,在word中新起名字保存即可 。
怎么将 ppt文字转换成word【如何将ppt转换成希沃课件,如何将ppt转换成图片格式的文件】如果页数不多,你可以直接复制粘贴到word即可完成,但是基本都是文本框的格式 。如果非常多页,只能建议导出pdf,然后用pdf再ocr转word 。
- 国有企业有编制吗,如何判断一个企业是不是国企
- 声音管理器总是弹出来,声音管理器图标如何删除
- 怎么制作游戏软件教程,怎么制作游戏
- 腾达路由器怎么恢复出厂设置后如何设置,如何恢复路由器出厂设置?
- 花束制作要点,手工制作花束教程
- 外卖评价30字通用,外卖评价20字
- 电脑怎么进入编程模式,如何设置快捷指令
- 移动硬盘无法读取怎么修复,u盘如何加密
- 塌的组词和拼音,塌的组词和拼音部首
- ppt翻译功能怎么用,ppt翻译成英文