• 双面邪王:倾世冷妃霸龙床免费阅读,双面邪王:倾世冷妃霸龙床免费下载,双面邪王:倾世冷妃霸龙床最新章节阅读 2018-03-28
  • 研学旅游:用心触摸非物质文化遗产 2018-03-28
  • 折翼(翅膀)最新章节,折翼(翅膀)小说下载 2018-03-28
  • 首钢进季后赛完成重建首年目标:体系初建 未来可期 2018-03-28
  • 建设美丽西藏保护好世界上最后一方净土 2018-03-28
  • 山东深入推进食品安全市县创建工作 再出实招 2018-03-28
  • 专家:人工智能将开启“智慧教育”新模式 2018-03-28
  • 西安唐都医院原副院长李谨革两周前坠楼身亡唐都医院副院长-西安新闻 2018-03-28
  • 银行业资产扩张增速继续放缓 2018-03-28
  • 百姓满意才算工作到位 2018-03-28
  • 江南古镇传统民俗迎“立夏” 2018-03-28
  • 重生最强女帝,重生最强女帝在线阅读,重生最强女帝最新章节全文免费阅读,夜北, 846.第846章 打不过它 2018-03-28
  • 奥沙利文单赛季奖金历史第二 冲击百万镑纪录 2018-03-28
  • iPhone被完全破解!苹果手机不再安全 2018-03-28
  • 三十五年春运路,把爱带回家 2018-03-28
  • 客服中心
    客服工作时间

    周一至周五

    8:30 - 17:00

    客服团队
    QQ客服
    联系电话

    13153367614

    管理资料下载网是国内权威专业的PPT模板下载网址,提供2017年工作总结PPT模板,商务汇报动态PPT模板,海量原创精品PPT模板素材下载。

    腾讯分分彩免费计划
    搜索  
    您当前的位置:腾讯分分彩免费计划 > PPT教程 > PPT基础教程 > ppt2007教程 > 如何将ppt转换成word文档

    如何将ppt转换成word文档

    腾讯分分彩免费计划 www.woaigeyan.com PPT名称:如何将ppt转换成word文档

    相关链接: 毕业答辩ppt 学生会换届 换届大会 纯色ppt 转正述职

    更新时间:2014-06-13 22:58:08

    所属分类:ppt2007教程

     Pptword都是微软旗下最著名的办公软件之一,有时候我们需要把ppt转换成word文档。那么我们应该怎么做呢?下面就由当热ppt小编为大家带来方法和技巧。

    我们使用脚本把PPT转换为Word 文档。

    在桌面上新建一个文本文档,将下面的代码复制进去:

     

    '绑定到本地计算机

    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转换成word文档

    指定好要保存文件的位置,在文件名框中输入任意名称+vbs扩展名,然后单击“保存”按钮

    如何将ppt转换成word文档

    此时会在桌面上生成vbs脚本文件,将要转换的PPT演示文稿放到C盘根目录,并执行vbs脚本文件

    弹出以下提示对话框,直接单击“确定”按钮即可

    如何将ppt转换成word文档

    最后自动打开转换好的Word 文档并弹出以下提示对话框,单击“确定”按钮

    如何将ppt转换成word文档

    以上就是如何将ppt转换成word文档教程。