关于ppt转换为doc的代码

今天由于一些打印需要,需要打印一个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了~但是有些情况下似乎不能全屏播放~在网上找了很久也没有看到什么好办法…都说更新驱动什么的..根据本人研究其实根本不需要~

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

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

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

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

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

 

[原创]vista绚丽按钮视频教程

从岚岚那里看到的~不过那个教程似乎不是他的~所以我就顺便原创一个好了~

先看效果图:

然后是psd文件(是上传在box网盘里的,以后稍微大一点的文件都会放在那里 ps:blog左侧侧边栏里下载也比较方便):

再然后是视频教程(两个分卷压缩包…一个最大只能10M…没办法已经尽量加快手的速度了..但是依然慢..笨手笨脚的…):

part1:

part2:

 

 

解决IE7(vista)不能打开QQ空间的问题

解决IE7 vista双击QQ空间图标打开空白页的问题 

在工具->internet选项->安全中把启用保护模式关掉…

恩…日志简洁就好…

特殊磨砂玻璃视频教程

先来效果图:

制作的前大半过程是与大家平时做的相同的…

引用岚岚的教程好了(这个教程感觉挺长的…要有耐心):

后半部分有点不同了(不过不知道为什么我的视频效果看起来比岚岚的差…无奈得很…): 

 

QQ皮肤常见问题 FAQ

Q:如何安装从Ray这下载的QQ皮肤?

A:下载之后往往是得到一个zip或rar格式的压缩包,请使用7zip或者winrar解压缩之后得到一个以皮肤名为文件名的文件夹,之后请将该文件夹复制至tencentqqnewskins下(直接解压至其中也可),需要注意的是如果这样操作之后依然出现问题,请检查:

    1. 版本是否对应(未注明版本的则是适用于所有版本);

    2. 解压出的文件夹中是否只有一个同名的文件夹,如有的话,请将其复制,即最终复制到newskins中的文件 夹中应该包含有IMskin文件夹等少数文件夹及很多图片;

Q:为什么我在安装的了皮肤之后出现了很多问题,比如说无法查看好友资料等等?

A: 遇到这种情况你应该是覆盖安装了res.而res受于版本的限制,只能适用于对应版本的QQ,其他的版本都会出现各种各样的问题,除了重新制作res以外没有其他解决办法,而且制作res是一个重复 枯燥而繁琐的工作,所以Ray一般不会更新res,请见谅…

Q: 为什么我的聊天窗口边框与截图中不一样?

A:Ray使用的是vista,所以聊天边框会有磨砂玻璃效果,如果你使用的是xp而且未安装wb或未应用其他主题的话,聊天边框应该是xp默认主题的边框luna,这个时候找到tencentqqnewskinsxxxxIMskin中的IMSkin.ini用记事本打开并修改其中的UserCustomBorder=false为UserCustomBorder=true,这样便可使用QQ皮肤自导边框而获得较好的主题一致性.

Q:为什么应用皮肤之后不再显示IP了?

A:用记事本打开tencentqqnewskinsxxxxIMskin中的IMSkin.ini,并修改其中的rightSpace=-242为rightSpace=0;Ray推荐的办法是在显IP插件中设置将IP显示在标题栏,这样不会破坏主题效果.

Q: 如何修改QQ字体为雅黑?

A:参看此日志 http://rayche.blogbus.com/logs/26786067.html

Q:如何联系到Ray?

A:电邮raychestudent@gmail.com,Ray会经常性查看邮箱

未完待续…