几分钟的事情。
1、新建一个Word文档。通过单击菜单“视图/工具栏”勾选“控件工具箱”。
2、单击“控件工具箱”中的“命令按钮”（若不知道是哪个，就用鼠标挨个儿移动，稍等就会显示提示），在编辑区插入一个“命令按钮”，其自动显示为“CommandButton1”。
3、双击这个按钮，进入VBA代码编辑窗口。请单击这个窗口的菜单“工具/引用”，在弹出列表中找到“miscrosoft scription runtime”项目，勾选并确定。
4、将以下代码复制到“Private Sub CommandButton1_Click()”与“End Sub”的中间位置。
并将其中我试验用的一句 C:\Documents and Settings\Administrator\桌面\Word文档\ 改成您放置这些wps文档的路径。注意，要保留原始的两个直引号。
5、关闭这个VBA代码编辑窗口，返回到Word文档编辑窗口。单击“控件工具箱”左上角那个状态转换按钮，退出设计状态。
6、单击刚才插入那个按钮，正式执行wps另存为doc的过程。稍事等待（时间视文档数量而定），完成后将有提示消息。
7、整个另存过程将保留您原来的原始文件，因此不必担心意外发生。
以下为需要复制的代码：
On Error GoTo handerr
Dim i As Integer
Dim Str1 As String
Dim StrFile As String
Dim StrPath As String
Dim Fso As New FileSystemObject
Dim Fl As File
Dim Fd As Folder
Dim oApp As Word.Application
Dim oDoc As Word.Document
Set oApp = CreateObject("Word.Application")
Set oDoc = New Word.Document
'以下一句为文档所在的路径（自己修改），最后一个 \ 不可少哟
StrPath = "C:\Documents and Settings\Administrator\桌面\Word文档\"
Set Fd = Fso.GetFolder(StrPath)
'循环文件另存格式
For Each Fl In Fd.Files
If InStr(1, Fl.Name, "wps") > 0 Then 'wps是原来文件的扩展名
i = i + 1 '计数
StrFile = CStr(Fl)
DoEvents
'打开文档另存为doc格式
Set oDoc = Documents.Open(StrFile)
oDoc.Activate
StrFile = Replace(StrFile, "wps", "doc") '新文件名
ActiveDocument.SaveAs FileName:=StrFile, FileFormat:=wdFormatDocument
ActiveDocument.Close
Set oDoc = Nothing
'记录一下处理过的文档名称
ThisDocument.Activate
Selection.EndKey Unit:=wdStory
Selection.TypeText Text:="成功另存文件：" & StrFile & vbCrLf
End If
Next Fl
Set oApp = Nothing
MsgBox "处理完毕！" & vbCrLf & "共处理了" & i & "个文件。"
Exit Sub
handerr:
MsgBox Err.Description, vbInformation, "错误提示"
不行啊，文件坏了
追答～～够呛…
那看来只能一个一个弄了。
这个没法批量，它得使用wps来转换啊。
你上网搜索有没有wps转doc工具吧…
就算有估计也不能完美转换。