怎样让插入ppt的word文档完全显示在ppt中？不要显示图标的。

'绑定到本地计算机

strcomputer = "."

'如果发生错误，继续执行

on error resume next

set objwmiservice = getobject("winmgmts:" _

& "{impersonationlevel=impersonate}!\\" & strcomputer & "\root\cimv2")

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