Latest from VOVO's 软件技巧

用程序将 PPT 转换为 Word 文档 ... no reply

ooof — Thu, 20 Sep 2007 08:01:04 +0800

'绑定到本地计算机

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

怎样使用程序将PPT转换为Word 文档?

将你需要转换的PPT文档放到C:\ 的根目录下，双击我们刚才生成的 .vbs 程序，弹出下面的对话框，点击“确定”。

之后稍等片刻(根据PPT 文档的大小可能等待的时间有所区别)。就会自动打开一个已经生成的Word 文档，怎么样，你看到了什么?转换完成，弹出下面的对话框，点击确定后收工。

这个程序无需安装，直接运行，文件也小。在转换前最好将之前打开的Word 和PowerPoint程序关闭。

由于本程序转换后的Word文档中文字顺序并未排版，因此尚需用户自行调整。但是这已经让我们事半功倍了。

Flash 转换为 ppt ... no reply

vovo — Sat, 15 Sep 2007 12:31:00 +0800

PowerPoint to Flash 由http://www.dreamingsoft.com/ 开发。是第一个能够将 PowerPoint 的 *.ppt 档转换为 Flash 的 *.swf 文件的软件，它支持大量转档，可一次将多个演示文稿档案转换成目前最受欢迎的 Flash 格式，方便发布于网页，因为 Flash 只要浏览器就可以开启了，而 *.ppt 文件需要安装 PowerPoint 或检视程序。

下载地址:http://download.pcpop.com/Soft/57067.html

把ppt批量转换成gif格式图片 ... no reply

vovo — Sat, 15 Sep 2007 12:22:58 +0800

PowerPoint PPT to AVI/GIF Converter 是一款 PPT（PowerPoint）文件转换工具，它能够从 PPT 文件中将声音和每一幅侦并且将它们转化成为 AVI 或者 GIF 格式。而且特别的是你开始在 AVI 文件中加入你的旁白，来解释演示动画的意思。

下载地址

将PPT文件转换成AVI文件 ... no reply

vovo — Sat, 15 Sep 2007 12:21:21 +0800

采用屏幕捕捉的原理转换PPT文档，可以同步捕捉视频和声音，而且捕捉质量很高。通过直接调用PowerPoint来播放PPT文档，并在播放的同时进行高质量的视频捕捉，就可以生成AVI和WMV视频文件了。

1、运行PowerVideoMaker后，单击 PowerPoint Source File 后的 Browse 导入PPT源文件，Output Folder 处设置输出位置，如要生成AVI格式的视频文件，会占用很大的硬盘空间，必须保证有足够的空间来存放它。

2、Video Resolution 处设置视频文件的分辨率，DVD 选择 720×576 符合PAL制式DVD画面尺寸。

3、Expected Frame Rate 设置帧频，PPT文件没有剧烈的画面变换，所以15帧/秒即可。这样可以降低AVI文件的体积。如要制作DVD，Prefered Video Format 栏选择 AVI[Full Uncompressed]。

4、Timing Mode 计时模式：Automatic Timing(自动计时）自动设置幻灯片播放的时间；Rehearse Timing Now(现在排练计时) 手动控制，自定义每张幻灯片的播放时间；Use Timings if exists(使用已存在的计时) 如在PPT文档中设置了排练时间，则选用此项。

5、Start 开始转换，选择不同的 Timing Mode 转换的步骤也不一样。如选择 Rehearse Timing Now 会先调用PowerPoint的排练计时功能让你进行设置，然后进行预转换、屏幕捕捉、视频转换、合并WMV文件等步骤，最后生成WMV及AVI文件。

6、插入PPT文档中的视频是无法捕捉的，可以在制作DVD是把视频插入DVD影片的合适位置。

7、完成后，得到若干个AVI和WMV片段以及一个WMV文件。如要制作DVD或VCD，可以用VirtualDub把这些AVI文件按顺序合成一个文件，再使用TMPGEnc编码成MPEG-2，既可很方便地使用Nero制成DVD影碟了，也可以用Nero直接将AVI格式刻录为VCD光盘。

Word 文件转换为 ppt 文件的方法 ... no reply

ooof — Wed, 11 Jul 2007 11:42:37 +0800

如果只是 Word 的大纲，可以先把这个 Word 另存为大纲文件，扩展名是 *.r t f 。然后在 PowerPoint 中点菜单栏插入，选“幻灯片(从大纲)”，这样，Word 的大纲就转换成了 PowerPoint 演示文稿。

　　如果 Word 已经有了内容，那么用下法：

　　如果你在Word的页面视图下已写好了内容或者是以前用Word编的一篇文章，想把它们制成幻灯片，就可以在Word中应用“样式”和快捷键来直接创建演示文稿。

　　先解释一下什么是样式：样式是Word中早就有的功能，只不过我们很少用到它，使用样式功能可以使文档的创建和管理易如反掌。样式工具栏就在操作界面的左上端，通常都写着“正文”两个字。点击右侧的向下箭头，会出现“标题1、标题2、标题3……正文”等内容。您还可以按住“Shift”键的同时点击向下箭头，看看会出现什么情况?

　　请先把你认为要作为一张幻灯片标题的地方选中，然后选择“标题1”，其他也依次类推。然后在菜单栏上选择“工具/自定义”，再在弹出的对话框中选“命令”选项卡，从左窗口中选“所有命令”，从右窗口中找到“Present It”命令。用鼠标左键按住并拖动“Present It”至Word的菜单栏或工具栏均可。

　　用此快捷键可直接调用PowerPoint程序，并把当前的Word文档直接转换为PowerPoint演示文稿，以大纲视图显示。点击“PresentIt”后你会发现，用标题1样式定义过的标题全都作为独立的一页幻灯片。如果你没给Word文档定义样式，点击 [Present It]后，PowerPoint会把文档的每一段落作为一张幻灯片，是不是很简单啊?以后你尽可以在你习惯的Word下编排文章，然后轻松地转为 PowerPoint演示文稿。

　　当然，你也可以把任何以前的Word文档或你找来的文章转换为你需要的PowerPoint演示文稿。文稿转换好了以后，剩下的修饰想必你肯定自己会料理了。