web-dev-qa-db-ja.com

.docを.docx(および他のOffice形式と同等)にバッチ変換しますか?

多数のOfficeファイルを新しいバージョンに変換したいと思います。 .docから.docxへ。さまざまなMSOfficeアプリケーションファイルタイプのすべてに何かが必要です。

その仕事に最適なツールは何ですか(Windows XP)?

私は無料のもの(ビール)を探しており、多数のファイルを管理できます(手動でファイルを開くことによってこれを行うことは実行可能ではありません)。

ありがとう。

7
Dmatig

答えは、Word文書だけでなく、すべての文書を変換するように構成されています。

Office XPまたは2003)で作成された大量のExcelシート、PowerPointプレゼンテーション、およびWord文書がコンピューターにあるとします。これらすべてのファイルを新しいOffice2007形式に変換するにはどうすればよいですか。

1つのオプションは、関連するOfficeプログラムでそれらすべてを開き、新しい(docx、xlsx、またはpptx)形式で手動で保存することです。または、次の手順に従って、すべてのドキュメントを一度に変換します。

ステップ1:ダウンロード 移行マネージャーキット そしてそれを新しいフォルダーに抽出します-例えば:c:\ office。

オフィスパック

手順2:ダウンロードしてインストールする Office Pack -この手順は、Microsoft Office2007が既にコンピューターにインストールされている場合でも必要です。

手順3:c:\ officeディレクトリにあるOfficeManagerファイルを抽出したと仮定して、c:\ office\toolsに移動し、メモ帳を使用してofc.iniを開き、次の行を追加します。

fldr = c:\ users\labnol\documents

これは、オフィスファイルを保持するフォルダーの場所を指します。これをマイドキュメントフォルダにポイントしていますが、お使いのマシンでは異なる可能性があります。

手順4:コマンドプロンプトを開き、c:\ office\toolsに移動します。 ofc.exeというユーティリティが表示されます。これは、すべての古いOfficeファイルを新しい2007Officeドキュメント形式に一括で変換するOfficeファイルコンバータです。実行します。

convert-docs

そのフォルダー(およびサブフォルダー)内のすべての古いOfficeファイルは、すぐに新しい形式に変換され、新しいフォルダーに保存されます。

このユーティリティは、Word(docからdocx)、Accessデータベース、PowerPoint(pptからpptx)、Visioダイアグラム、Excel(xlsからxlsx)、およびMicrosoftProjectファイルで機能します。ただし、パスワードで保護されたドキュメントの場合、変換が失敗する可能性があります。

ここ から取得。

7
caliban

次の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

6
Molly7244
2
nik

Office 2010で使用するバッチファイルを作成しました。無料ですが、Officeは無料ではありません。これにより、元のファイルが削除されます。望まない場合は、2行目を削除してください。コードをバッチファイルに貼り付けます。

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"

1
Karl Henselin