今天由于一些打印需要,需要打印一个ppt,但是想转换为doc格式进行打印…发现没有什么很好的直接转换方法..于是上网找了找,有一个vbs代码可以实现这个效果,不过似乎目前大部分网上的那个代码都有点错误,以至于不能运行,现在已经改过来贴在这里供需要的人使用~

就是你把下面这段代码文字复制到Windows 文本编辑器中，将文件保存为 .vbs文件在任何一个地方,然后把要转换的ppt放在C盘根目录下,双击这个vbs文件即可,之后会在C盘根目录下生成一个同名的doc文件~

前提计算机上必须安装了office 

其实这段代码并没有使用什么很复杂的算法,只是把原来手工的ctrl+c,ctrl+v换成了由机器进行,效率自然高了不少~

‘绑定到本地计算机strComputer = "."‘如果发生错误，继续执行on error resume nextSet objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")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‘如果文件的扩展名是pptIf objFile.Extension = "ppt" ThenpptApp.visible = true‘打开这个ppt文件Set pptSelection = […]

按照我之前一篇日志里的办法kmplayer是可以正常播放rmvb了~但是有些情况下似乎不能全屏播放~在网上找了很久也没有看到什么好办法…都说更新驱动什么的..根据本人研究其实根本不需要~

下面就有一个办法可以解决kmplayer全屏播放rmvb时黑屏的问题~

右键点出菜单之后找到视频(高级)这一项,展开后找到视频渲染器,选择DirectDraw 覆盖表面即可~

PS:有兴趣的朋友也可以试试其他的渲染方式,反正我目前测试只有这一个比较好,还有一个虽然也可以显示但是再右键点出菜单的时候闪烁非常厉害…不知道是不是因为用了wb之后的菜单是半透明的导致渲染处理比较复杂…总之本人测试就是DirectDraw渲染表面这个好~

PS2:貌似目前网上还没有这种做法~我是先驱啦~~ 

PS3:这个韩国人做的软件确实好用,功能超级强大~强烈推荐~