☰

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

tag-icon • tag-icon windows-xp microsoft-office conversion batch
.doc を .docx (および他の Office 形式と同等のもの) に一括変換しますか?

多数の Office ファイルを新しいバージョンに変換したいと考えています。たとえば、.doc を .docx に変換したいです。さまざまな MS Office アプリケーション ファイル タイプすべてに対応するものが必要です。

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

私は、無料（ビール）で、大量のファイルを管理できるもの（手動でファイルを開いてこれを行うのは現実的ではありません）を探しています。

ありがとう。

答え1

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

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

1 つのオプションは、関連する 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\documents

これは、Office ファイルが格納されているフォルダーの場所を指します。私はこれを Documents フォルダーに指定していますが、お使いのマシンでは異なる場合があります。

ステップ 4: コマンド プロンプトを開き、c:\office\tools に移動します。そこに ofc.exe というユーティリティがあります。これは、すべての古い Office ファイルを新しい 2007 Office ドキュメント形式に一括変換する 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

クレジットグラハム・メイヤー - ワードMVP

答え3

DOC を DOCX に一括変換

Microsoft には、複数の DOC ファイルを DOCX ファイルに変換できる一括変換ユーティリティがあります。このブログ投稿では、その使用に関する基本的な情報を紹介します。

答え4

この解決策は私が得たものなので、私がその功績を主張することはできません。マイクロソフトフォーラム便宜上、ここに再投稿します:

  1. すべての .doc ファイルをフォルダー (例: **D:\doc**) に配置します。

  2. Word を開き、Alt+を押してF11VBA エディターを開きます。

  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 ファイルはそのまま残ります。

関連情報