☰

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

tag-icon • tag-icon windows-xp microsoft-office conversion batch
将 .doc 批量转换为 .docx（以及其他办公格式的等效格式）？

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

最适合这项工作的工具是什么（Windows XP）？

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

谢谢。

答案1

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

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

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

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

办公室包

第 2 步：下载并安装办公室套件- 即使您的计算机上已安装 Microsoft Office 2007，也需要此步骤。

步骤 3：假设您将 Office Manager 文件解压到 c:\office 目录中，请转到 c:\office\tools，使用记事本打开 ofc.ini 并添加以下行。

fldr=c:\用户\labnol\文件

这是指保存办公文件的文件夹位置。我将其指向我的文档文件夹，但您的计算机上的文件夹可能不同。

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

转换文档

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

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

取自这里。

答案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

答案3

批量转换 DOC 为 DOCX

Microsoft 有一个批量转换实用程序，可以将多个 DOC 文件转换为 DOCX 文件。这篇博文介绍了有关其使用的非常基本的信息。

答案4

我不能承担这个解决方案的功劳，因为它来自Microsoft 论坛。为方便起见，在此转载：

  1. 将所有 .doc 文件放入一个文件夹，例如 **D:\doc**。

  2. 打开 Word 并按Alt+F11打开 VBA 编辑器。

  3. 现在点击“普通的”项目并点击“插入” > “模块”在项目中插入新模块。

  4. 双击模块打开编辑区域，粘贴以下代码：

     Sub TranslateDocIntoDocx()
   Dim objWordApplication As New Word.Application
   Dim objWordDocument As Word.Document
   Dim strFile As String
   Dim strFolder As String

   strFolder = "D:\doc\"
   strFile = Dir(strFolder & "*.doc", vbNormal)

   While strFile <> ""
     With objWordApplication      
       Set objWordDocument = .Documents.Open(FileName:=strFolder &strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False)

       With objWordDocument
         .SaveAs FileName:=strFolder & Replace(strFile, "doc", "docx"), FileFormat:=16
         .Close
       End With
     End With
     strFile = Dir()
   Wend   

   Set objWordDocument = Nothing
   Set objWordApplication = Nothing
 End Sub

  5. 点击 ”跑步”按钮。几秒钟后，您将发现所有 .doc 文件都已转换为 .docx 文件。原始 .doc 文件将保留。

相关内容