クリスチャンは、DOCXファイルに変換する必要のあるDOCファイルでいっぱいのフォルダーを持っています。彼は、それぞれを個別に開いて保存せずに、それらを変換する簡単な方法があるかどうか疑問に思います。

Microsoftは、この機能をWordで提供していません。また、変換を行うためのアドインも提供していません。ただし、独自のマクロを作成して変換を行うことはできます。かなり単純なアプローチをここに示します：

Sub ConvertBatchToDOCX()

Dim sSourcePath As String     Dim sTargetPath As String     Dim sDocName As String     Dim docCurDoc As Document     Dim sNewDocName As String

' Looking in this path     sSourcePath = "c:\Users\Administrator\Desktop\Testing\"

sTargetPath = "c:\Users\Administrator\Desktop\Converted\"



' Look for first DOC file     sDocName = Dir(sSourcePath & "*.doc")

Do While sDocName <> ""

' Repeat as long as there are source files                  'Only work on files where right-most characters are ".doc"

If Right(sDocName, 4) = ".doc" Then             ' Open file             Set docCurDoc = Documents.Open(FileName:=sSourcePath & sDocName)



sNewDocName = Replace(sDocName, ".doc", ".docx")



With docCurDoc                 .SaveAs FileName:=sTargetPath & sNewDocName, _                   FileFormat:=wdFormatDocumentDefault                 .Close SaveChanges:=wdDoNotSaveChanges             End With         End If         ' Get next source file name         sDocName = Dir     Loop     MsgBox "Finished"

End Sub

マクロを使用するには、2つの変更を加える必要があります。まず、sSourcePath変数で、変換するファイルを含むディレクトリへのフルパス（バックスラッシュが続く）を指定します。

次に、sTargetPath変数で、変換されたドキュメントを保存するディレクトリのフルパス（末尾の円記号付き）を指定します。

次に、マクロは、ソースディレクトリで見つかったすべてのDOCファイルをステップスルーして開き、ターゲットディレクトリにDOCXファイルとして保存します。

これは単純なアプローチであると述べたことに注意してください。その理由は、作業のエラーチェックを行わないためです。たとえば、このマクロを2回続けて実行すると、ターゲットディレクトリに保存されているファイルがすでに存在するため、エラーが発生します。さらに、これによりすべてのDOCファイルがDOCXファイルに変換されることを理解する必要があります。つまり、元のファイルにマクロが含まれている場合、それらのマクロは変換プロセスで削除されます。

最後に、マクロの中心が、ファイル名の右端の4文字が実際に「.doc」であることを確認するIf / Then構造内に含まれていることに注意してください。これは、パターン「* .doc」を検索すると、contains .docを含む任意のファイル名と一致するものとして返される、一部のシステムでのDir関数の動作がかなり悪化するために行われます。これは、.docxおよび.docmで終わるファイルも返すことを意味します。明らかに、これらは変換されるべきではないので、それらを取り除くためにIf / Then構造が含まれています。

独自のマクロを使用したくない場合は、使用できるサードパーティのソリューションがあります。グラハム市長のサイトの次のページには、特にドキュメントの変換を行う無料のアドインがあります。

http://www.gmayor.com/document_batch_processes.htm

「docdocxconverter」（引用符なし）をWeb検索すると、他の同様のコンバーターを見つけることができる場合があります。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（643）は、Microsoft Word 2007、2010、2013、および2016に適用されます。