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

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

Допустим, на вашем компьютере есть тонны листов Excel, презентаций PowerPoint и документов Word, написанных в Office XP или 2003. Как преобразовать все эти файлы в новый формат Office 2007.

Один из вариантов заключается в том, что вы открываете их все в связанной программе Office и вручную сохраняете их в более новом формате (docx, xlsx или pptx). Или выполните следующие действия и конвертируйте все документы за один раз.

Шаг 1: Загрузите комплект Migration Manager и распакуйте его в новую папку - скажем: c: \ office.

офис-пакет

Шаг 2. Загрузите и установите пакет Office. Этот шаг необходим, даже если на вашем компьютере уже установлен Microsoft Office 2007.

Шаг 3. Предполагая, что вы распаковали файлы Office Manager в каталоге c: \ office, перейдите в папку c: \ office \ tools, откройте ofc.ini с помощью блокнота и добавьте следующую строку.

FLDR = C: \ Users \ labnol \ документы

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

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

конвертировать докторантов

Сразу все старые файлы Office в этой папке (и подпапках) будут преобразованы в новый формат и сохранены в новой папке.

Эта утилита работает с файлами Word (doc to docx), Access, PowerPoint (ppt to pptx), Visio, Excel (xls to xlsx) и файлами Microsoft Project. Однако преобразование может быть неудачным для защищенных паролем документов.

Взято отсюда .

Следующий макрос 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 

кредит мэру Грэма - Word MVP

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

I made a batch file for use with Office 2010. It is free, but office isn't. This DOES delete the original file. If you don't want it to, get rid of the second line. Paste the code into a batch file.

for /r "SOME PATH TO TRAVERSE" %%a in ("*.doc") do ( "YOUR PATH MIGHT BE DIFFERENT C:\Program Files\Microsoft Office\Office14\Wordconv.exe" -oics -nme "%%a" "%%ax" del "%%a" 

)