无忧启动论坛

标题: 怎样将ppt文件转换成doc文件 [打印本页]

作者: 透明风 时间: 2004-3-7 13:46
标题: 怎样将ppt文件转换成doc文件
由于学习需要，要将ppt文件转换成doc文件，可是试了一下，并没有这个功能啊，应该怎么弄，有朋友知道吗？

作者: 拯救危机 时间: 2004-3-7 16:05
标题: 怎样将ppt文件转换成doc文件
这个你需要编写VBA程序了，帮你在网上搜了一下，代码如下：
Attribute VB_Name = "PPT2Doc"
Sub PPT2Doc()
'
' PPT2Doc Macro
' Macro created 8/20/2003 by Harveer Singh
' (c) Harveer Singh, 2003
' Released under GPL http://www.opensource.org/licenses/gpl-license.html
' Please maintain this copyright notice in all modified versions of this code
' This code is provided 'as-is' and no warranties are provided.

On Error Resume Next
' Dummy Breakpoint - You might want to put a breakpoint here, since w/o breaking the code atleast once,
' only first slide will be copied.
Debug.Print ""
' Dummy Breakpoint Over
Dim aPPT As PowerPoint.Application
Dim i
Dim sld
Dim presName As String
Dim slideCount As Integer
Dim startTime, endTime As Date
Dim originalItalicStatus, originalBoldStatus As Boolean
startTime = Time
originalItalicStatus = Application.Selection.Font.Italic
originalBoldStatus = Application.Selection.Font.Bold

Set aPPT = CreateObject("PowerPoint.Application")
presName = Left(aPPT.ActivePresentation.Name, Len(aPPT.ActivePresentation.Name) - 4)

sld = 1
slideCount = aPPT.ActivePresentation.Slides.Count

For i = 1 To slideCount
      With aPPT.ActiveWindow
         .Activate
         .View.GotoSlide Index:=sld
         .Selection.SlideRange.Shapes.SelectAll

         .Selection.ShapeRange.Copy

      End With

      With Selection
         Application.Activate
         tempStr = presName & vbTab & "Slide #" & Str(sld) & " of" & Str(slideCount) & vbCrLf & vbCrLf
         .Font.Name = "Verdana"
         .TypeText (tempStr)
         .Font.Italic = True
         .Paste
         .EndKey Unit:=wdStory
         .InsertBreak Type:=wdPageBreak
         .Font.Italic = False
      End With

      sld = sld + 1
Next i

Application.ActiveDocument.SaveAs (presName & " (DOC version)")

endTime = Time

With Selection
      tempStr = "Summary" & vbCrLf & vbCrLf
      .Font.Bold = True
      .TypeText (tempStr)
      .Font.Bold = False


      tempStr = "Converted from "
      .TypeText (tempStr)

      .Font.Italic = True
      tempStr = aPPT.ActivePresentation.FullName
      .TypeText (tempStr)

      .Font.Italic = False
      tempStr = " on " & Date & vbCrLf & vbCrLf

      .TypeText (tempStr)

      tempStr = "Saved As "
      .TypeText (tempStr)

      .Font.Italic = True
      .Font.Bold = True
      tempStr = Application.ActiveDocument.FullName & vbCrLf & vbCrLf
      .TypeText (tempStr)
      .Font.Italic = False
      .Font.Bold = False

      tempStr = "Slides converted: " & slideCount & vbCrLf & vbCrLf
      .Font.Italic = True
      .TypeText (tempStr)
      .Font.Italic = False

      .Font.Italic = True

      tempStr = "Time Taken: " & DateDiff("s", startTime, endTime) & " seconds"
      .TypeText (tempStr)

      .Font.Italic = originalItalicStatus
      .Font.Bold = originalBoldStatus

End With

Application.ActiveDocument.Save
Application.ActiveDocument.Activate

End Sub

作者: mophee 时间: 2004-4-7 17:42
标题: 怎样将ppt文件转换成doc文件
好！好！！好！！！

欢迎光临无忧启动论坛 (http://wuyou.net/)