Note: The other languages of the website are Google-translated. Back to English

Wordで.doc形式のファイルを.docxにバッチ変換する方法は?

97-2003形式のWord文書を受け取ったとすると、これらすべての.doc形式の文書を一度に.docx形式にバッチ変換するにはどうすればよいでしょうか。 この記事では、この問題を解決するXNUMXつの方法を紹介します。

.doc形式のファイルをVBAコードを使用して.docxにバッチ変換します
Kutools for Wordを使用して、.doc形式のファイルを.docxにバッチ変換します


.doc形式のファイルをVBAコードを使用して.docxにバッチ変換します

このセクションでは、指定したフォルダー内のすべての.doc形式のドキュメントを一度に.docxドキュメントに変換するVBAコードについて説明します。 次のようにしてください。

1.指定したフォルダに.docxに変換するすべての.doc形式のドキュメントを収集してください。

2。 プレス 他の + F11 キーを開く アプリケーション向け Microsoft Visual Basic 窓。

3.ウィンドウで、をクリックします インセット > モジュール。 次に、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード:特定のフォルダー内のすべての.doc形式のドキュメントを.docxにバッチ変換します

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

4。 プレス F5 コードを実行するためのキー。 オープニングで ブラウズ ウィンドウで、.doc形式のドキュメントが含まれているフォルダを選択してクリックします OK。 スクリーンショットを参照してください:

次に、以下のスクリーンショットに示すように、すべての.doc形式のドキュメントがすぐに.docxドキュメントに変換されます。


Kutools for Wordを使用して、.doc形式のファイルを.docxにバッチ変換します

このセクションでは、便利なユーティリティをお勧めします。 とともに Doc / Docx の有用性 Kutools for Word、フォルダ内のすべての.doc形式のドキュメントを.docxドキュメントに簡単に変換できます。 次のようにしてみてください。

Kutools for Word :100以上の便利なWordアドインで、 60日以内に制限なしで無料でお試しいただけます.

1.指定したフォルダにすべての.doc形式のドキュメントを収集してから、をクリックしてください クツールズプラス > Doc / Docx。 スクリーンショットを参照してください:

2。 の中に ドキュメントフォーマットコンバーター ダイアログボックスでは、次のようにする必要があります。

2.1).doc形式のドキュメントが含まれているフォルダを選択します ソースファイルフォルダ セクション;
2.2)選択 ドキュメントをdocxに変換する から フォーマット変換 ドロップダウンリスト;
2.3)デフォルトでは、 ソースと同じ宛先パス ボックスがチェックされています。 変換されたすべての.docxドキュメントを同じフォルダーに配置する場合は、このオプションを選択したままにします。
.docxドキュメントとソース.docドキュメントを分離する場合は、チェックを外してください。 ソースと同じ宛先パス ボックスをクリックし、新しいフォルダを選択して.docxドキュメントを に保存 ボックス;
2.4)をクリックします 開始 ボタン。 スクリーンショットを参照してください:

3.次に、正常に変換されたドキュメントの数を示すダイアログボックスが表示されたら、[ OK ボタンを押して閉じます ドキュメントフォーマットコンバーター 窓。

これで、すべての.doc形式のドキュメントが.docxファイルに変換されます。 スクリーンショットを参照してください:

このユーティリティの無料トライアルをご希望の場合は、 ソフトウェアを無料でダウンロード まず、上記の手順に従って操作を適用します。


Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします!

  • 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
  • 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
  • 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 
コメントを並べ替える
コメント (15)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
称賛! 共有していただきありがとうございます。 これは非常に役に立ちました。 変換する必要のある50万を超えるドキュメントがありました。 それらをすべて完了するために000時間以上タッチするだけでした。 大きな助け。 オプション39を使用しました
このコメントは、サイトのモデレーターによって最小化されました
PDFファイルに変換するWord文書を開きます。 インポートのみを希望する場合...ConvertOnlineFree-WordドキュメントからPDFへの個別およびバッチ会話...PDFOnline-無料のWord(doc、docx、txt)からPDFへのコンバーター。

素敵なブログ、あなたが共有した記事は良いです。この記事はとても役に立ちます。 私の友人は私にこのブログを使うように勧めます。

https://customersurveyinfo.com
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、共有していただきありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
読むべき興味深いもの。 がんばり続ける。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
この有用な情報を見つけてうれしいですこの素晴らしい記事を共有してくれてありがとう。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは....こんにちは、このブログの内容は非常に技術的な情報です、それは私が持っている最高のブログのXNUMXつです。 非常に興味深く、非常に簡単な方法で説明します。
このコメントは、サイトのモデレーターによって最小化されました
先生こんにちは、
私はこの投稿が大好きです。このウェブサイトに本当に感謝しています。あなたの情報はとても良くて価値があります。このウェブサイトを共有するための愛すべきアイデアとコンセプト。
これは素晴らしいウェブサイトです。この投稿は素晴らしいです。
共有ありがとう
このコメントは、サイトのモデレーターによって最小化されました
HelloNice投稿..共有し続けてください。ありがとう
このコメントは、サイトのモデレーターによって最小化されました
これは本当に洞察に満ちた記事であり、非常に有益で情報が豊富であることがわかりました
このコメントは、サイトのモデレーターによって最小化されました
この有用な情報を共有していただきありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
インドで最高のグラフィックデザイン会社
デザインは、言葉をアーティキュレーションとして伝える技術です。 ビジュアルは、高度な分野の言葉よりも重要です。
デザインビジネスの専門家は、イラストは言葉よりも思い出しやすいと勧めています。
そしてそれがウェブサイトのデザインとグラフィックスが不可欠な仕事をする理由です。

このコメントは、サイトのモデレーターによって最小化されました
共有ありがとう
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい情報共有してくれてありがとう。

Farmtrac 60
このコメントは、サイトのモデレーターによって最小化されました
素晴らしいツールですが、DOCファイル(大文字で書かれています!)をdocxファイルに変換できないという問題がありました。
docファイルで動作します。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
次のコードは、両方のドキュメントを変換するのに役立ちます。 およびDOC。 ファイルをdocxファイルに変換します。 ぜひお試しください。 ご意見をいただきありがとうございます。

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0  文字
推奨される場所