Syna Kyra 博客

关注互联网，关注生活，生命感悟

　　本篇文章将会使用VBS的方法，将Office Word支持的所有格式：doc、[docx]、txt、htm、rtf等，批量互相转换。首先请确定你的电脑上安装了Word软件。 如果要将“D:\我的doc”文件夹下的所有doc转换成txt。打开记事本，复制以下代码： Dim array1(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改Dim source(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改Dim destination(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder("D:\我的doc\") '②此处表示doc所在的文件夹，请根据需要自行修改Set fc = f.Filesi = 0For Each f1 In fc    array1(i) = f1.Name    Ext = fs.GetExtensionName(array1(i))    Ext = LCase(Ext)    If Ext = "doc" Then '③此处表示转换类型        source(i) = f & "\" & array1(i)        destination(i) = Left(source(i), Len(source(i)) - 4) & ".txt"        Set wordApp = CreateObject("Word.Application")        Set wordDoc = wordApp.Documents.Open(source(i))        wordDoc.SaveAs destination(i), 7        wordDoc.Close        Set wordDoc = Nothing        wordApp.Quit        Set wordApp = Nothing    End If    i = i + 1Next 　　然后保存为format.vbs（一定要保证扩展名为vbs），保存位置任意。然后双击format.vbs运行即可。 　　注意：运行以后请等待一段时间直到全部文档转换完毕，整个操作过程中不要进行打开Word操作。如果希望中途停止，在任务管理器里结束WScript.exe进程即可。

　　一般，我们将网页上的东西复制到Word文档时，图片属性里会有“可选文字说明”。但有些情况下，我们并不需要它，不然会被人发现文档是从网上复制下来；或者保存成PDF格式后，图片的可选文字会作为悬停时的说明显示在鼠标旁边。 　　今天告诉大家，如何通过宏来一次性清除或更改所有图片及形状的可选文字（只要向那两个空串""中加入自己的文字即可）：

　　排版助手是一款能将文章自动排版的工具。平常，我们原创文章，还是经常的在网上转载文章的时候，我们都无法避免的不让文章整齐不乱。平时章节比较少的时候我们可以手动整理文章的格式，但是如果文字一多的时候，手动起来的话又浪费时间又浪费精力，信息的发布效率大大的降低。有了它，在网上写博客、日志变得更轻松了。 　　该软件不用安装纯绿色、单文件。不多说了，直接上它的官网看看吧~ 　　地址：http://www.gidot.net/typesetter/