将 .doc 批量转换为 .docx（与其他办公格式等效）？

Question

我希望将大量办公文件转换为较新的版本，例如。.doc 到 .docx。我需要所有不同的 MS Office 应用程序文件类型。

什么是这项工作的最佳工具（Windows xp）？

我正在寻找免费的东西（啤酒），并且可以管理大量文件（通过手动打开文件来做到这一点是不可行的）。

谢谢。

Answer 1

答案的结构是转换所有文档，而不仅仅是 Word 文档。

假设您的计算机上有大量使用 Office XP 或 2003 编写的 Excel 工作表、PowerPoint 演示文稿和 Word 文档。如何将所有这些文件转换为新的 Office 2007 格式。

一种选择是在关联的 Office 程序中打开所有这些文件，然后手动将它们保存为较新的（docx、xlsx 或 pptx）格式。或者按照以下步骤一次性转换所有文档。

步骤 1：下载迁移管理器工具包并将其解压缩到一个新文件夹中 - 例如：c:\office。

办公包

第 2 步：下载并安装Office Pack - 即使您的计算机上已经安装了 Microsoft Office 2007，也需要执行此步骤。

步骤3：假设你解压了c:\office 目录下的Office Manager 文件，进入c:\office\tools，用记事本打开ofc.ini 并添加以下行。

fldr=c:\users\labnol\documents

这是指保存您的办公文件的文件夹位置。我将其指向我的 Documents 文件夹，但在您的机器上可能有所不同。

步骤 4：打开命令提示符并转到 c:\office\tools。在那里您将看到一个名为 ofc.exe 的实用程序 - 这是 Office 文件转换器，它将所有旧的 Office 文件批量转换为新的 2007 Office 文档格式。跑。

转换文档

该文件夹（和子文件夹）中的所有旧 Office 文件将立即转换为新格式并保存在新文件夹中。

此实用程序适用于 Word（doc 到 docx）、Access 数据库、PowerPoint（ppt 到 pptx）、Visio 图表、Excel（xls 到 xlsx）和 Microsoft Project 文件。但是，对于受密码保护的文档，转换可能会失败。

取自这里。

Answer 2

以下vba 宏将转换选定文件夹中的所有文档

Sub SaveAllAsDOCX()
Dim strFileName As String
Dim strDocName As String
Dim strPath As String
Dim oDoc As Document

With Dialogs(wdDialogCopyFile)
If .Display <> 0 Then
strPath = .Directory
Else
MsgBox "Cancelled by User"
Exit Sub
End If
End With

If Documents.Count > 0 Then
Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
If Left(strPath, 1) = Chr(34) Then
strPath = Mid(strPath, 2, Len(strPath) - 2)
End If
strFileName = Dir$(strPath & "*.doc")

While Len(strFileName) <> 0
Set oDoc = Documents.Open(strPath & strFileName)

strDocName = ActiveDocument.FullName
intPos = InStrRev(strDocName, ".")
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".docx"
oDoc.SaveAs FileName:=strDocName, _
FileFormat:=wdFormatDocumentDefault
oDoc.Close SaveChanges:=wdDoNotSaveChanges
strFileName = Dir$()
Wend
End Sub

归功于Graham Mayor - Word MVP