Convert PowerPoint Presentations to Word Document Based on VB6.0
　　CHEN Jun-min
　　(Jiangxi College of Foreign Studies, Nanchang 330099, China)
　　Abstract: Presentation will PowerPint convert Word documents, is in the ordinary course of their work is often a class of problems encountered. This paper introduces the function and use of Office comes and free online software conversion method, and the limitations inherent in these methods; then elaborated using VB6.0 programming, breaking limitations, to achieve image synchronization conversion, generated Word document.
　　Key words: VB6.0; PowerPoint; Word; Office
　　 我们在日常办公过程中，经常会碰到这样的情况，首先做好了PowerPoint演示文稿，以供讲座、上课使用，而同时又要将这些演示文稿的内容做成Word文档，按照某种格式进行排版、打印装订成册。如果在Word中重新录入，既麻烦又浪费时间；如果在两者之间，通过一块块地复制、粘贴，也相当费事。
　　PowerPoint程序和Word程序同属于Office办公软件，软件本身自带了几种转换方式，如“大纲”视图转换、“发送”功能转换、“另存为”转换，网上也能免费下载“PPTConverttoDOC”转换软件，但这些转换方式，都存在各种局限，其中最典型的局限是无法将图片同步转换。
　　1 常规转换方法及各种局限
　　1.1 利用“大纲”视图
　　打开PowerPint演示文稿，单击“大纲”，在左侧"幻灯片/大纲”任务窗格的“大纲”选项卡里单击一下鼠标，按"Ctrl+A"组合健全选内容，然后使用"Ctrl+C"组合键或右键单击在快捷菜单中选择“复制”命令，然后粘贴到Word文档中。
　　1.2 利用“发送”功能转换
　　打开要转换的PowerPint演示文稿，单击“文件”→“发送”→"MicrosoftWord"菜单命令。然后选择“只使用大纲”单选按钮并单击“确定”按钮，等一会就发现整篇PowerPint演示文稿在一个Word文档里被打开。
　　1.3 利用“另存为”直接转换
　　打开需要转换的PowerPint演示文稿，点击“文件”→“另存为”，然后在“保存类型”列表框里选择存为"rtf"格式，再用Word打开刚刚保存的rtf文件。
　　1.4 PPTConverttoDOC软件转换
　　PPTConverttoDOC可以从网上免费下载，解压后直接运行，在运行之前请将Word和PPT程序都关闭。选中要转换的PowerPint演示文稿，直接拖曳到"PPTConverttoDOC"程序里。单击工具软件里的“开始”按钮即可转换，转换结束后程序自动退出。
　　各种转换方式的局限：前三种方法，只能复制“大纲”内容，而有一些不是大纲的文字则不能复制。第四种方法，软件是网上免费下载的，可能会有木马。更主要的，它们的都不能同步转换图片，这是我们在办公过程中所不能忍受的。利用VB6.0编程，可以突破这些局限。
　　2 VB6.0实现转换的主要过程
　　2.1 对象引用与变量定义
　　利用VB6.0编程方式对Word与PowerPoint操作，首先必须引用Word对象库和PowerPoint对象库，如Office 2003的Microsoft Word 11.0 Object Library和Microsoft PowerPoint 11.0 Object Library，然后新建一个PowerPoint程对象和Word程序对象，打开待转换的PowerPoint演示文稿和新建一个Word文档，其代码如下：
　　Set pptApp = New PowerPoint.Application ‘新建PowerPoint程序对象
　　pptApp.Visible = True ‘设置PowerPoint应用程序为可见
　　Set pptPre = pptApp.Presentations.Open（“待转换的PowerPoint演示文稿路径”）‘打开待转换的PowerPoint演示文稿
　　Set objword =New Word.Application‘新建Word程序对象
　　objword.Visible = True‘设置Word应用程序为可见
　　Set objdoc = objword.Documents.Add() ‘新建一个Word文档对象
　　2.2 文本转换与图片转换
　　一个PowerPoint的演示文稿是由多张幻灯片（Slide）组成，而一张幻灯片又是由多个形状（Shape）组成，如文本框、表格、图片等。这样，一个PowerPoint的演示文稿，就可以看成一个二维数组，语法格式为：
　　PowerPoint演示文稿对象名。Slides（幻灯片序号）。Shapes（Shape序号）
　　其中，Slides是幻灯片数组名，Shapes是一张幻灯片中的形状数组名。
　　程序的关键是要判断哪些Shape对象是文本框，哪些不是文本框。如是文本框类型的对象，提取其中的文字，写入到Word文档中，而不是文本框对象的，无论是表格还是图片，统一转换为图片，复制并粘贴到Word文档。
　　判断Shape对象是否是文本框，主要看它的HasTextFrame属性，如它的值是msoTrue,则是文本框，否则就不是。
　　其代码如下：
　　For i = 1 To pptPre.Slides.Count
　　For j = 1 To pptPre.Slides(i).Shapes.Count ‘用双重循环访问PPT文稿
　　‘判断Shape对象是否是文本框
　　If pptPre.Slides(i).Shapes(j).HasTextFrame = msoTrue Then
　　 ‘是文本框
　　Selection.TypeText ptPre.Slides(i).Shapes(j).TextFrame.TextRange.Text
Else
　　 ‘不是文本框
　　 pptPre.Slides(i).Shapes(j).Copy ‘复制Shape对象的内容
　　 Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine‘以增强元文件的形式粘贴到Word文档中
　　 Selection.TypeText vbLf & vbLf ‘插入两行，以免图片将文本分割
　　 End If
　　Next
　　Next
　　2.3 退出程序、释放资源与保存Word文档
　　pptPre.Close‘关闭PowerPoint演示文稿 (责任编辑：南粤论文中心)转贴于南粤论文中心: http://www.nylw.net(南粤论文中心__代写代发论文_毕业论文带写_广州职称论文代发_广州论文网）