马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Word 转换为PPT，很容易做到，但是反之把PPT转换为Word，就不一定那么简单了！一个很笨的方法，就是把里面的文字一段一段粘出来。文字少了还好说，要是文字多了，那个工作量就可想而知了...... (Microsoft Office PowerPoint 2003版) 1、首先打开需要转换成中文Word文件的中文PowerPoint文件，然后鼠标左键依次选择“文件→发送→Microsoft Word”命令项。
2.完成选择之后，系统首先会出现“撰写”对话框，此时应当在“Microsoft Word使用的版式”栏中选择一种版面的配置，然后在“将幻灯片添加到Microsoft Word文档”栏中选择将中文PowerPoint的幻灯片转换到中文Word文件时的变化方式。 3.完成上述选择之后，接着使用鼠标左键单击“确定”按钮，即可启动中文Word，然后自动实现将中文PowerPoint文件转换到中文Word文件中，此时只需要在中文Word中稍微进行一些修改，即可完成转换工作。 在Microsoft Office PowerPoint 2007版中，这个功能依然没有得到改善。只是在“发送”里面却找不到Microsoft Word命令项了。 ' V& b$ h, L: `6 a
Microsoft Word命令项的确被转移了地方，点击“发布”——点击“使用Microsoft Office Word创建讲义”菜单。
6 J! A1 N4 q$ _1 N' a/ i! C. E一个完全与PowerPoint 2003一样的对话框，甚至没有任何修饰，既然如此，因而与PowerPoint 2003 转换的效果是一样的。
/ v0 `* p5 G- a1 ^2 q
6 J0 i3 p0 ]4 X你只需把下面的代码复制，粘贴到文本文档里，然后另存为****.vbs（****可以自己改变，如：转换.vbs）。然后把你想转换为word格式的ppt文件放到c盘下，不要放文件夹，直接放文件！运行刚才生成的小程序，安提示确定，修改想保存的路径就可以了，稍等一会即可完成，转换过程可视。此程序小而精悍，转换效果很好，转换好后需要的话自己可以重新排版！（从下面开始复制）
strComputer = "." o W* g5 g" Z) u2 ?2 G6 |; M
'如果发生错误，继续执行 + c1 Z$ [$ ]4 u# _
on error resume next0 q9 R5 ?! x* e
: x5 X* G5 o+ ^) E4 P" kSet objWMIService = GetObject("winmgmts:" _
: s, [5 n5 {% x! f' k& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
1 ~* [1 e1 D: _3 V* |2 Q U( Wmsgbox "此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此文件即可。" & vbcrlf & "运行此脚本需要本机上安装了office" ( e2 e7 P+ W5 F
'创建一个word对象 * |9 h3 V* W! M$ H, V
Set objWord = CreateObject("Word.Application")
4 s: w9 O+ D9 c& W ?+ i2 w. Q ~'创建一个ppt对象 " t4 m5 L0 ^1 K/ q3 t
Set pptApp = CreateObject("PowerPoint.application")7 l$ ]3 I" i) b. D* w" ?7 i
'获得c:\目录下的文件集合 # T I+ l- _3 @7 x4 q
Set FileList = objWMIService.ExecQuery _
- f, x& z9 J1 x("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _2 o9 m: S( `' r: n6 [% B
& "ResultClass = CIM_DataFile")
3 h- c0 H% O$ O' I& W! TFor Each objFile In FileList, l | g0 s: Y# h( i* M
'如果文件的扩展名是ppt
+ p4 _6 e: [4 l0 H# C, y) `% f. EIf objFile.Extension = "ppt" Then7 q5 R- ^& S1 ]; X& s2 h
pptApp.visible = true
. Q9 Y" y) c( H' n3 z1 O5 e'打开这个ppt文件 0 I7 E4 f4 S+ E# t @" p: l
Set pptSelection = pptApp.Presentations.Open("c:\" & objFile.FileName & "." & objFile.Extension)/ {8 B/ `- x: L, }3 q. z
'如果想让脚本处理得快些，把下面一行改为“objWord.Visible = false”,不推荐。
' Y# A5 g8 W/ R' CobjWord.Visible = true
5 {$ T- N8 Y O9 |/ \+ ~: C/ p'新建一个word，以保存ppt中的文本
. k: w2 n; @6 q" V" S3 rSet objDoc = objWord.Documents.Add()
% ?. W9 P8 S6 ~3 W2 ?; ISet objSelection = objWord.Selection+ j T4 S/ U5 J; J
'从ppt的第一页开始循环。Slides.Count即幻灯片的数量
7 e1 h2 F5 g% c, V( IFor i = 1 To pptSelection.Slides.Count ~' H7 p) V; R) n4 y
'从每一张ppt的第一个文本框开始循环，Shapes.Count，即每张幻灯片中文本框的数量
- s* _4 J; E3 H# o7 EFor j = 1 To pptSelection.Slides(i).Shapes.Count/ ]6 _0 P1 P+ d2 U3 c# j" t
'如果是每页的第一行，就按标题处理，变成黑体字 & t9 f( F* W; [" \ K
if i =1 then7 L# u# M2 n( j2 x6 d G4 B$ t
objSelection.Font.Name = "黑体"
& O8 s* R) [! K* K2 C( E5 V'把文本框中的文字添加到word中 + I/ _% w o( j4 ~ B/ [- L
objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text( X9 N5 u4 M2 [2 D
objSelection.TypeParagraph()
" I+ o/ D& [& ^7 j7 G* A8 lobjSelection.Font.Name = "宋体"
' T# ?+ ], t' Nend if/ q! H9 r$ J3 ?5 s ?7 U
objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
' c% | h: M7 R1 Q5 `# V8 u4 |( b'加一个回车 3 s; Y9 `2 B4 d1 |$ c: C9 S
objSelection.TypeText vbcrlf
7 D% f7 T( u/ b" C0 ]+ ]3 vNext s- ]' R7 {! z6 p% O) P
next8 N4 P2 F4 v$ }
'关闭这个ppt文件 ' F& f6 c1 ?$ Z; J4 D. O
pptSelection.close8 h2 C# w3 `% ^1 C9 T& p
'保存word文件。 " Z2 R S3 L2 k9 P" V/ ~
objDoc.SaveAs("c:\" & objFile.FileName & ".doc")% Y) ]& @5 r) I" O4 C
'如果不需要关闭word，把下面这一行删掉
# j* l8 f, P7 \ S( N9 _objDoc.close1 \, o% y/ o% H2 f( i* a$ B, p) _0 x
'如果不想弹出消息框，把下面这一行删掉
; ?% ?8 V3 c3 ^' V$ vmsgbox "转换后的word已保存在c:\" & objFile.FileName & ".doc"
9 d5 A7 D9 S: v& ]7 r7 z5 Melse '没有ppt文件
, |8 W! J. H# ]3 [) y; _'msgbox "错误：c:\下没有发现ppt文件！"$ [0 @) r. ^& I" s% ^, z/ b
End If
0 m7 N. _9 u" t9 [; ]# YNext K8 H) ?) w$ q% Y6 f9 W
pptApp.quit | 
发表于 2009-4-24 17:22:25