如何轻松的把Word文档转换成PPT演示文稿.pdf

《如何轻松的把Word文档转换成PPT演示文稿.pdf》由会员分享，可在线阅读，更多相关《如何轻松的把Word文档转换成PPT演示文稿.pdf（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-最新资料推荐-1/6 如何轻松的把 Word 文档转换成 PPT 演示文稿 如何轻松的把 Word 文档转换成 PPT 演示文稿 张小建 江苏省栟茶高级中学 江苏 南通 226406 信息技术的迅猛发展提高了生产、生活的效率，也促进了学校教学方法与教学方式的改革。本文旨在解决教师把编写在 Word 文档里的教案制成 PPT 演示文稿时既费时又费力的困境，谈谈笔者在工作中的一些思考与体会，希望对读者朋友有所帮助和启发。Microsoft Word 也能通过执行文件菜单里的发送命令转化成 PPT，但不能达到预期的效果,特别是理科里常用的表格、公式、图片等不能正常转换。这一困难可用 VBA 来解决

2、。1 遇到的问题 问题一：PPT 演示文稿由一张张幻灯片组成，在转化的过程中如何自动分割成一张张的幻灯片？问题二：Word 文档中非文本对象（如表格、公式、图片等）如何处理？问题三：字体、字号、颜色、在 PPT 中文本的自动换行及自定义动画的设置？2 问题的解决 2.1 问题一的解决 在 Word 文档里编制教案时，就要设置好一个模板。按需要设置好本节课的标题、一级小标题、二级小标题、内容等段落文字的格式，并命名为教案 章、教案 节、教案 小节、内容 等。编制教案时按这些格式排版即可。在设计程序时可以在遇到一级小标题的格式时就新建一张新的幻灯片，且让一级小标题始终在幻灯片的最上端；在文本对象的

3、行数超过 12 行时也自动新建一张幻灯片。2.2 问题二的解决 在 VBA 程序运行时，非文本对象可能出现不可识别的问题。在工作中经过不断摸索实践发现最简便的方法是在 word 里编制教案时把这些非文本对象的版式 设置为嵌入型，且单独一行，不与文本对象混排，如图 1.图 1 2.3 问题三的解决 字体一般选择黑体，字号为 24，颜色课标题和一级小标题选深红色、二级小标题和内容为深蓝色。文本一般 28 个字就换行。3 程序设计 Sub word 转成 ppt()铁锹儿 vba 程序之 Word 转化成 ppt 幻灯片 MsgBox 请先打开 ppt 程序！请用铁锹儿规定样式对 Word 排版，插

4、入的图片或文本框的版式为嵌入型或否则不得转化！+Chr$(CharCode:=13)+公式必须为单独一行（段）或含有公式的这一行包括文字全用公式写！Dim wdp As Paragraph,wdr As Range,s As String,i As Integer,tx As Integer Set objpptapp=CreateObject(PowerPoint.application)创 建 一 个 ppt 对 象 objpptapp.Visible=True objpptapp.Presentations.Add WithWindow:=msoTrue -最新资料推荐-3/6 添 加

5、一 个 Presentations（演 示 文 稿）Set pptPres=objpptapp.ActivePresentation 激活 Dim pptSlide tx=1 shapes 对象个数的初始值 i=0 记录幻灯片个数 hhshu=0 记录文本框的行数 For Each wdp In ActiveDocument.Paragraphs 按 Word 文档内的 Paragraphs 做个循环 Set wdr=wdp.Range yshi=wdp.Style.NameLocal 取出文本格式 s=CStr(wdr.Text)l=Asc(s)wdr.Select Selection.Co

6、py copy 所 选 择 的 内 容 tx_bl=12 一个幻灯片 shapes 的总数 If yshi=教案 节 Then jie=wdr.Text If yshi=教案 节 Or yshi=教案 章 Or tx=tx_bl Then If i 0 Then 幻灯片里有内容时进行下面的程序 对 shapes 对象进行位置、格式设置及自定义动画 zs_shapes=pptSlide.Shapes.Count For ttx=2 To zs_shapes With pptSlide.Shapes(ttx)bb=35*(ttx-1+hhshu).IncrementTop bb 向下平移 End

7、With Set shpFirst=pptSlide.Shapes(ttx)Set effNew=pptPres.Slides(i).TimeLine.MainSequence.AddEffect _ (Shape:=shpFirst,effectId:=msoAnimEffectBlinds)设置自定义动画 If pptSlide.Shapes(ttx).Type=msoTextOrientationHorizontal Then 若 shapes 对 象 为 文 本 框 做 如 下 处 理 With pptSlide.Shapes(ttx).TextFrame.TextRange If L

8、en(Trim(.Text)30 Then For char_chdu=30 To Len(.Text)Step 30 文本框超过 30 字符就换行 .Characters(Start:=char_chdu,Length:=0).Text=Chr$(CharCode:=13)+hhshu=hhshu+0.8 记录行数 Next char_chdu End If With.Font 设置字体格式 .Size=24 .Name=宋 体 .Bold=True .Color.RGB=RGB(0,0,255)End With End With End If Next ttx End If i=pptPr

9、es.Slides.Count+1 遇到段落格式为教案 节、教案 章、tx=tx_bl 时新建一张 PPT Set pptSlide=pptPres.Slides.Add(i,12)hhshu=0 If tx tx_bl Or yshi=教案 节 Then pptSlide.Shapes.Paste tx=2 ElseIf tx=tx_bl-最新资料推荐-5/6 Then pptSlide.Shapes.AddTextbox(msoTextOrientationHorizontal,0,0,500,25)_.TextFrame.TextRange.Text=jie 保证每张幻灯片顶端都有一级小

10、标题的内容 chdu=Len(jie)pptSlide.Shapes(1).TextFrame.TextRange.Characters(Start:=7,Length:=1).Text=pptSlide.Shapes.Paste tx=3 End If With pptSlide.Shapes(1).TextFrame.TextRange With.Font .Size=28 .Name=华文行楷 .Bold=True .Color.RGB=RGB(255,0,0)End With End With ElseIf(l 13 And l 11)Then 非空行时把 Word 内容复制到 PPT pptSlide.Shapes.Paste tx=tx+1 记录 shapes 个数 End If Next wdp End Sub 4 对 PPT 进行调整和完善 利用上述方法自动转换后还不能直接用于演示，还必须根据教学设计的思路进行必要的调整，主要是对非文本对象的调整。5 结束语 Microsoft Office 里提供的 VBA 能让用户解决工作中出现的各种问题，扩展了 office 的功能。其实我们教师只要熟悉几个常用对象的属性、方法及常用的判断、循环语句。充分利用好宏录制和 office 帮助，您一定会受益匪浅。