<tbody id="k6i0s"><option id="k6i0s"></option></tbody>
  • <input id="k6i0s"></input>

    排行榜 -

    您的位置£º首页 > PPT新手?#19979;?/a>

    怎样将PPT文件转换为Word文档?

    时间£º2012-04-13¡¡来源£º不详¡¡作者£º佚名

    Word 转换为PPT£¬也许你很容易做到£¬但是反之把PPT转换为Word你知道吗?我之前一直用一个很笨的方法£¬就是把里面的文字一?#25105;?#27573;粘出?#30784;?#25991;字少了还好说£¬要是文字多了£¬那个工作量就?#19978;?#32780;知了......

    PowerPoint 2003 中的转换

    大家可能最为常用的是下面这种方法£º(在Microsoft Office PowerPoint 2003版)

    1¡¢首先打开需要转换成中文Word文件的中文PowerPoint文件£¬然后鼠标左键?#26469;?#36873;择¡°文件¡ú发送¡úMicrosoft Word¡±命令项¡£

    2.完成选择之后£¬系统首先会出现¡°撰?#30784;?#23545;话框£¬此时应当在¡°在Microsoft Word使用的版式¡±栏中选择一?#32844;?#38754;的配置£¬然后在¡°将幻灯片添加到Microsoft Word文档¡±栏中选择将中文PowerPoint的幻灯片转换到中文Word文件时的变化方式¡£

    3.完成上述选择之后£¬接着使用鼠标左键单击¡°确定¡±按钮£¬即可启动中文Word£¬然后自动实现将中文PowerPoint文件转换到中文Word文件中£¬此时只需要在中文Word中稍微进行一些修改£¬即可完成转换工作¡£

    但是经过我多次试用£¬其转换效果是相当的不令人满意¡£

    PowerPoint 2007 中的转换

    在Microsoft Office PowerPoint 2007版中£¬这个功能依然没有得到改善¡£只是在¡°发送¡±里面却找不到Microsoft Word命令项了¡£

    微软Office 2007 的最大的失败就是对界面的改变£¬他几乎完全颠覆了我们使用多年的习惯£¬但是当你逐步了解了之后却又发现£¬根本没有实质性的改变£¬这也是为什么更多的网友不愿意接受Office 2007的理由之一¡£

    Microsoft Word命令项的确被转移了地方£¬点击¡°发布¡±¡ª¡ª点击¡°使用Microsoft Office Word创建讲义¡±?#35828;¥¡?/p>

    看到了什么?一个完全与PowerPoint 2003一样的对话框£¬甚至没有任何修饰£¬那么这个能实现PPT到Word 的转换吗?显然他与PowerPoint 2003 转换的效果是一样的£¬也以为着这一功能没有得到任何提升¡£同样是微软的办公?#25945;¨£?#22312;互换上怎么就这么难?

    一般细心的用户可能会在制作PPT的时候£¬首先使用Word创建文档£¬一式两份£¬这样以备不时之需£¬看来也是惧怕万一有人需要Word 文档£¬你再整理可能就会抓瞎¡£

    说了这么多£¬究竟有没有什么方法能够完美将PPT转换为Word文档?我只能遗憾的告诉你£¬目前还真是没有什么完美解决方案¡£所谓的完美£¬当然是转换的文档你几乎不用修改就能使用¡£

    虽然我说了上面的话£¬你也用不着马上离开£¬绝不意味着下面的方法对你没有任何作用!而这种方法恰恰是最简单的£¬也是最行之?#34892;?#30340;方法£¬不信请继续往下?#30784;?/p>

    应用程序完美转换PPT 到Word 文档


    说起来很简单£¬就是你把下面这?#26410;?#30721;文字复?#39057;½Windows 文本中£¬将文件保存为 .vbs生成一个可执行程序¡£保存在任?#25105;?#20010;地方£¬?#28909;?#26700;面¡£这?#26410;?#30721;也是我在无意中发现的£¬但使用后感觉已经很好£¬并且简单¡£


    '绑定到本地计算机

    strComputer = "."

    '如果发生错误£¬继续执行

    on error resume next

    Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    msgbox "此脚本可以批量将ppt文件中的文本转换为word文件¡£图片¡¢表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复?#39057;?#30446;录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

    '?#29992;?#19968;张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£¬把下面这一行删掉  www.ylsd.tw  ppt宝藏提供

    objDoc.close

    '如果不想弹出消息框£¬把下面这一行删掉

    msgbox "转换后的word已保存在c:\" & objFile.FileName & ".doc"

    else '没有ppt文件

    'msgbox "错误£ºc:\下没有发现ppt文件£¡"

    End If

    Next

    pptApp.quit

    怎样使用程序将PPT转换为Word 文档?

    将你需要转换的PPT文档放到C:\ 的根目录下£¬双击我们刚才生成的 .vbs 程序£¬弹出下面的对话框£¬点击¡°确定¡±¡£

    之后稍等片刻(根据PPT 文档的大小可能?#21364;?#30340;时间有所区别)¡£就会自动打开一个已经生成的Word 文档£¬怎么样£¬你看到了什么?转换完成£¬弹出下面的对话框£¬点击确定后收工¡£

    这个程序无需安装£¬直接运行£¬文件也小¡£在转换前最好将之前打开的Word 和PowerPoint程序关闭¡£

    由于本程序转换后的Word文档中文字顺序并未排版£¬因此?#34892;?#29992;户自行调整¡£但是这已经让我们事半功倍了¡£

    我要吐槽

    Copyright£º2009-2015 pptbz.com Corporation,All Rights Reserved PPT宝藏 版权所有

    粤ICP备13028522号

    Ó®²Ê²ÊƱ¿¿Æ×ô
    <tbody id="k6i0s"><option id="k6i0s"></option></tbody>
  • <input id="k6i0s"></input>
    <tbody id="k6i0s"><option id="k6i0s"></option></tbody>
  • <input id="k6i0s"></input>