☰

Пакетное преобразование .doc в .docx (и эквивалент для других офисных форматов)?

tag-icon • tag-icon windows-xp microsoft-office conversion batch
Пакетное преобразование .doc в .docx (и эквивалент для других офисных форматов)?

Я хочу преобразовать большое количество офисных файлов в новые версии, например, .doc в .docx. Мне нужно что-то для всех различных типов файлов приложений MS Office.

Какой инструмент лучше всего подойдет для этой работы (Windows XP)?

Я ищу что-то бесплатное (пиво) и способное управлять большим количеством файлов (делать это, открывая файлы вручную, просто нецелесообразно).

Спасибо.

решение1

Ответ структурирован для конвертации всех документов, а не только документов Word.

Допустим, у вас на компьютере есть множество таблиц Excel, презентаций PowerPoint и документов Word, написанных в Office XP или 2003. Как преобразовать все эти файлы в новый формат 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:\users\labnol\документы

Это относится к расположению папки, в которой хранятся ваши офисные файлы. Я указываю на папку «Документы», но на вашем компьютере она может быть другой.

Шаг 4: Откройте командную строку и перейдите в c:\office\tools. Там вы увидите утилиту под названием ofc.exe — это Office File Converter, который конвертирует все старые файлы Office в новый формат документов Office 2007 в массовом порядке. Запустите.

конвертировать-docs

Все старые файлы 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

кредит дляГрэм Мэр - MVP мира

решение3

Массовое преобразование DOC в DOCX

У Microsoft есть утилита для массового преобразования, которая может конвертировать несколько файлов DOC в файлы DOCX. В этой записи блога представлена ​​очень простая информация о ее использовании.

решение4

Я не могу присвоить себе это решение, поскольку я получил его отФорумы Майкрософт. Для удобства перепечатываю здесь:

  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 останутся.

Связанный контент