接着之前讨论过的问题，还是doc、docx、txt文件的格式转换。
首先，我们先研究一下doc和docx之间的转换问题。
Doc格式是word2003之前版本（包括word2003）的储存格式，docx是word2007之后版本（包括word2007）的存储格式。
Word的全称是office word，你要是用金山的WPS office，那就没有必要看这篇文章了。
一般软件都是高版本能打开低版本，但是低版本就打不开高版本了，word也有这个问题，word2007能打开doc文件，但是word2003打不开docx文件。
如何才能把docx文件用word2003打开呢？
解决方法有好几个。
No1，找一台安装了word2007以上版本的（包括word2007）的电脑，用word2007打开docx文件，转存一个doc文件。还不如装一个word2007或者word2010呢。
No2，网上有好几个网址提供在线转换docx到doc格式的服务。
http://www.doc.investintech.com/
这个是一个，但不爽的是，界面是英文的，而且还需要先注册电子邮箱地址，转完的doc文件发送到电子邮箱里面。
还有一些小软件也可以转，就不一一介绍了。
这个方法不推荐，因为要求网络环境，而且会破坏文件的保密性。
No3，下载一个word2003的补丁，把这个补丁安装以后，word2003就可以打开docx文件了。
下载地址如下：
http://zhidao.baidu.com/link?url=2ycj6HQBQNxbjt7TEATmcG6yY1Keb32TEox54Q7DqP44S7mhPh1KyfswuWXMvIWJK_b69inAoBPCK5RfKpr-Fa
这三个方法里面，第三个方法算是最推荐的了。
但这个方法也要求你word版本不能太低，你要是用的是word98，我也没辙了，亲，做人不用这么怀旧，可以升级一下程序了！
上述内容不是批处理的内容，只是福利了一下关于doc和docx的转换。
下面进入批处理。
因为我是一个优秀的专业工程技术人员，不是搞文字的，也不是编代码的，word的宏代码，我有点短板，我自己编的那个宏倒是能运行，但一直是死循环，没完没了了，我估计是我的do loop语句用的有问题，所以，我只能借鉴一下其他人的了，它山之石可以攻玉，你别管我怎么解决的，我能解决就行。
我找到了几个程序，做了一些修正，并且会详细写一下怎么用，我虽然自己没有写出能用的，但至少能读懂人家写的，能知道怎么用，也能稍微动动手脚改成我想要的功能……
好吧，我再强调一下，我是一个能力出色的全才……
好不要脸。
不废话了，进入主题。
1.docx转doc
首先，批量的docx文件转成doc文件，我把代码稍作修改，调成docx文件转成doc文件的，代码如下，在破折号里面，怎么用详见“文档批量合并”一章，我就不复述了。
Alt+f11调出Microsoft Visual Basic for Applications窗口，右键“ThisDocument”选择“查看代码”，把破折号里面的内容复制进去，运行。
哦，我复述了一遍。
我把我修正好的代码放上来吧。
————————————————
Sub docxtodoc()
Dim myDialog As FileDialog, oFile As Variant
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.Filters.Add "感谢亲爱的郎郎吧！", "*.docx", 1
.AllowMultiSelect = True
If .Show = -1 Then
For Each oFile In .SelectedItems
With Documents.Open(oFile)
.SaveAs FileName:=Left(oFile, Len(oFile) - 5) & ".doc", FileFormat:=wdFormatDocument
.Close
End With
Next
End If
End With
End Sub
————————————————————
注意，其中（.SaveAs FileName:=Left(oFile, Len(oFile) - 5) & ".doc", FileFormat:=wdFormatDocument）这行代码原来的代码是（SaveAs FileName:=Replace(oFile, "docx", "doc"), FileFormat:=0），有编程基础的人，能看出来，后面代码其实是不严谨的，容易报错，因为文件保存拓展名理论上是不能用replace来修改的，因为我用的word2010，所以我很悲催的报错了，我也是吭哧瘪度调试查错了半天，才改成现在的样子的，所以说，不管是编程，还是调试，都是很费事儿的，所以，好多大型软件都是好多模块组合树状分布的。
用法很简单，就是f5运行之后，会跳出一个对话框，把你要转换成doc格式的docx文件全部选中，点击确定，等着就可以了。
但这个是另存的，所以说明原来的docx文件还会在那个文件夹里面，按类型排列一下，删除docx文件就可以，也可以用dat可执行文件删除，但也犯不着。
2.docx转txt
运行方法一样，我只放代码了。
——————————————
Sub docxtotxt()
Dim myDialog As FileDialog, oFile As Variant
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.Filters.Add "感谢亲爱的郎郎吧！", "*.docx", 1
.AllowMultiSelect = True
If .Show = -1 Then
For Each oFile In .SelectedItems
With Documents.Open(oFile)
.SaveAs FileName:=Left(oFile, Len(oFile) - 5) & ".txt", FileFormat:=wdFormatText
.Close
End With
Next
End If
End With
End Sub
——————————————
3.doc转txt
——————————————————
Sub doctotxt()
Dim myDialog As FileDialog, oFile As Variant
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.Filters.Add "感谢亲爱的郎郎吧！", "*.doc", 1
.AllowMultiSelect = True
If .Show = -1 Then
For Each oFile In .SelectedItems
With Documents.Open(oFile)
.SaveAs FileName:=Left(oFile, Len(oFile) - 4) & ".txt", FileFormat:=wdFormatText
.Close
End With
Next
End If
End With
End Sub
——————————————————
4.doc转docx
有人会这么转吗？
但还是上代码吧。
——————————————————
Sub doctodocx()
Dim myDialog As FileDialog, oFile As Variant
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.Filters.Add "感谢亲爱的郎郎吧！", "*.doc", 1
.AllowMultiSelect = True
If .Show = -1 Then
For Each oFile In .SelectedItems
With Documents.Open(oFile)
.SaveAs FileName:=Left(oFile, Len(oFile) - 4) & ".docx", FileFormat:=wdFormatXMLDocument
.Close
End With
Next
End If
End With
End Sub
——————————————————
好无聊。
我数数又数不明白了，应该到5了吧？
5.txt转doc
告诉大家一个小秘密哦，因为txt是纯文本格式，而且是windows系统自带的工具，所以你只要把txt文件的后缀名改成doc，就成为了doc文件啦！
但是不要尝试把doc的后缀改成txt，那样就是乱码了。
找一个最简单的方法，就是上文提到过的cmd方法。
在你要改成doc文件的文件夹里面新建一个文本文档，“郎郎好棒啊.txt”，把下面的内容复制进去，保存，把文本文档改成“郎郎好棒啊.cmd”，运行这个cmd文件，文件夹里面的txt文件就被改成了doc文件了。
————————
@echo off
ren *.txt *.doc
echo ok &pause>nul
————————
6.txt转docx
如上，代码如下。
————————
@echo off
ren *.txt *.docx
echo ok &pause>nul
————————
Ok！大功告成了！
哎呀！累死我了。。。。。
以后有时间，我再普及一些简单实用的dos命令吧！
截图、调试、写教程，挺辛苦的，但毕竟是技巧，不需要灵感，有得有失，有利有弊吧，我现在都不知道我自己擅长什么了，我真的挺全才的，哪方面都可以，都算不错，但问题是，还真没有某一方面可以算得上惊天地、泣鬼神，前无古人，后无来者。
这样，好像也不是特别好。
哎呀，累死了！
网友评论