2024年5月5日发(作者：)

VB6.0论文：基于VB6.0 将PowerPoint演示文稿转换为Word

文档

摘要：将powerpint演示文稿转换为word文档，是在

日常工作过程中经常会碰到的一类问题。该文首先介绍利用

office自带功能及网上免费软件的转换方法，以及这些方法

所存在的局限；然后详细阐述利用vb6.0编程，突破各种局

限，实现图片同步转换，生成word文档。

关键词：vb6.0；powerpoint；word；office

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 ation ‘新建

powerpoint程序对象

e = true ‘设置powerpoint应用程序

为可见

set pptpre = （“待转换

的powerpoint演示文稿路径”）‘打开待转换的powerpoint

演示文稿

set objword =new ation‘新建word程序

对象

e = true‘设置word应用程序为可见

set objdoc = () ‘新建一个

word文档对象

2.2 文本转换与图片转换

一个powerpoint的演示文稿是由多张幻灯片（slide）

组成，而一张幻灯片又是由多个形状（shape）组成，如文

本框、表格、图片等。这样，一个powerpoint的演示文稿，

就可以看成一个二维数组，语法格式为：

powerpoint演示文稿对象名。slides（幻灯片序号）。

shapes（shape序号）

其中，slides是幻灯片数组名，shapes是一张幻灯片

中的形状数组名。

程序的关键是要判断哪些shape对象是文本框，哪些不

是文本框。如是文本框类型的对象，提取其中的文字，写入

到word文档中，而不是文本框对象的，无论是表格还是图

片，统一转换为图片，复制并粘贴到word文档。

判断shape对象是否是文本框，主要看它的

hastextframe属性，如它的值是msotrue,则是文本框，否

则就不是。

其代码如下：

for i = 1 to

for j = 1 to (i). ‘用

双重循环访问ppt文稿

‘判断shape对象是否是文本框

if (i).shapes(j).hastextframe =

msotrue then

‘是文本框

xt

(i).shapes(j).

else

‘不是文本框

(i).shapes(j).copy ‘复制shape对象

的内容

pecial

datatype:=wdpasteenhancedmetafile,

placement:=wdinline‘以增强元文件的形式粘贴到word文

档中

xt vblf & vblf ‘插入两行，以免

图片将文本分割

end if

next

next

2.3 退出程序、释放资源与保存word文档

‘关闭powerpoint演示文稿

‘退出powerpoint程序

set pptpre = nothing ‘释放资源

set pptapp = nothing

filename:=“word文档的保存路径”

‘关闭word文档

‘退出word程序

set objdoc = nothing‘释放资源

set objword = nothing

3 运行界面与测试结果

图1为程序运行界面和测试结果。其中，在程序界面中，

增加了两个命令按扭，通过对话框控件由用户自行选择导入

ppt文件的路径和保存word文档的路径；测试结果是由转换

后的word文档，按笔者单位的教师备课纸（4）进行简单排

版，在页眉中增加标题，将文本转换为表格，并合并部分表

格所得到。

4 结束语

利用vb6.0编程方式将powerpoint演示文稿转换为

word文档，可以突破office自带转换功能的各种局限，同

步转换图片，极大地提高办公效率。

但由于人们在编辑powerpoint演示文稿的习惯不一样，

以及不同场合的word文档排版格式也不一样，利用程序生

成的word文档，还需要进行一些简单的排版。

参考文献：

[1] 陈军民.浅析利用vb6.0将access数据表转换为

word文档[j].电脑知识与技术,2010(23).

[2] 张捷,封俊红.基于vba的ppt文档转换为word文

档的研究与实现[j].微型电脑应用,2009(2).

[3] 付全.浅析office成员间的数据交流[j].科技资

讯,2008(27).