Word में .doc प्रारूप फ़ाइलों को .docx में बैच कैसे बदलें?

लेखक: सिलुविया अंतिम संशोधित: 2021-03-19

मान लीजिए कि आपको कुछ 97-2003 प्रारूप वाले Word दस्तावेज़ प्राप्त हुए हैं, तो आप इन सभी .doc प्रारूप दस्तावेज़ों को एक साथ .docx प्रारूप में कैसे परिवर्तित कर सकते हैं? यह आलेख आपको इस समस्या को हल करने के दो तरीके दिखाएगा।

बैच VBA कोड के साथ .doc प्रारूप फ़ाइलों को .docx में परिवर्तित करता है
बैच वर्ड के लिए कुटूल के साथ .doc प्रारूप फ़ाइलों को .docx में परिवर्तित करता है

बैच VBA कोड के साथ .doc प्रारूप फ़ाइलों को .docx में परिवर्तित करता है

यह अनुभाग आपको एक निर्दिष्ट फ़ोल्डर में सभी .doc प्रारूप दस्तावेज़ों को एक साथ .docx दस्तावेज़ों में परिवर्तित करने के लिए VBA कोड दिखाएगा। कृपया निम्नानुसार करें.

1. कृपया सभी .doc प्रारूप दस्तावेज़ों को एक निर्दिष्ट फ़ोल्डर में एकत्र करें जिन्हें आप .docx में परिवर्तित करेंगे।

2। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

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 दस्तावेज़ों में परिवर्तित हो जाते हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।

बैच वर्ड के लिए कुटूल के साथ .doc प्रारूप फ़ाइलों को .docx में परिवर्तित करता है

इस अनुभाग में एक उपयोगी उपयोगिता की अनुशंसा की जाएगी। साथ Doc/Docx की उपयोगिता वर्ड के लिए कुटूल, आप किसी फ़ोल्डर में सभी .doc प्रारूप दस्तावेज़ों को आसानी से .docx दस्तावेज़ों में परिवर्तित कर सकते हैं। कृपया निम्नानुसार प्रयास करें.

वर्ड के लिए कुटूल : 100 से अधिक उपयोगी वर्ड ऐड-इन्स के साथ, बिना किसी सीमा के प्रयास करने के लिए स्वतंत्र 60 दिन.

1. कृपया सभी .doc प्रारूप दस्तावेज़ों को एक निर्दिष्ट फ़ोल्डर में एकत्र करें, फिर क्लिक करें कुटूल्स प्लस > Doc/Docx. स्क्रीनशॉट देखें:

2। में दस्तावेज़ प्रारूप परिवर्तक संवाद बॉक्स, आपको निम्नानुसार कार्य करना होगा:

2.1) उस फ़ोल्डर का चयन करें जिसमें .doc प्रारूप के दस्तावेज़ हैं स्रोत फ़ाइल फ़ोल्डर अनुभाग;

2.2) चुनें Doc को docx में कनवर्ट करें से प्रारूप कनवर्ट करें ड्रॉप डाउन सूची;

2.3) डिफ़ॉल्ट रूप से, गंतव्य पथ स्रोत के समान है बॉक्स चेक किया गया है. यदि आप सभी परिवर्तित .docx दस्तावेज़ों को एक ही फ़ोल्डर में रखना चाहते हैं, तो बस इस विकल्प को चयनित रखें;

यदि आप .docx दस्तावेज़ों और स्रोत .doc दस्तावेज़ों को अलग करना चाहते हैं, तो कृपया अनचेक करें गंतव्य पथ स्रोत के समान है बॉक्स, और .docx दस्तावेज़ों को सहेजने के लिए एक नया फ़ोल्डर चुनें को बचाए डिब्बा;

2.4) क्लिक करें प्रारंभ बटन। स्क्रीनशॉट देखें:

3. फिर एक डायलॉग बॉक्स पॉप अप होता है जो आपको बताता है कि कितने दस्तावेज़ सफलतापूर्वक परिवर्तित किए गए हैं, पर क्लिक करें OK बटन और बंद करें दस्तावेज़ प्रारूप परिवर्तक खिड़की.

अब सभी .doc प्रारूप दस्तावेज़ .docx फ़ाइलों में परिवर्तित हो गए हैं। स्क्रीनशॉट देखें:

यदि आप इस उपयोगिता का निःशुल्क परीक्षण करना चाहते हैं, तो कृपया यहाँ जाएँ सॉफ्टवेयर मुफ्त डाउनलोड करें पहले, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ

🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...

📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...

📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...

📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...

🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...

???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...

👩🏼‍🤝‍👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...

के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।

विस्तार में पढ़ें मुफ्त डाउनलोड खरीद फरोख्त

Comments (14)

No ratings yet. Be the first to rate!

Daniel Beneš

about 1 year ago

#41106

This comment was minimized by the moderator on the site

Dobrý den,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Good day,
I would need a VBA script that would work including subfolders. Can someone please edit this script as well? Thank you.

crystal Daniel Beneš

about 1 year ago

#41445

This comment was minimized by the moderator on the site

Hi Daniel Beneš,
To include subfolders, please try the following VBA code.
After adding the code, go to the Tools tab, click References, in the opening References - Project dialog box, check the Microsoft Scripting Runtime box, and then click the OK button to save the changes. See the following screenshot:

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png

After that, press the F5 key to run the code.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function

Report

Marco

about 2 years ago

#37864

This comment was minimized by the moderator on the site

Nice tool but I got the problem, that I can't convert DOC files (written in capitals!) into docx files.
It works with doc files.

crystal Marco

about 2 years ago

#37883

This comment was minimized by the moderator on the site

Hi,
The following code can help to convert both doc. and DOC. files into docx files. Please give it a try. Thanks for your feedback.

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

Report

thehairstylish

about 2 years ago

#37155

This comment was minimized by the moderator on the site

Thanks for sharing

narendra

about 3 years ago

#35352

This comment was minimized by the moderator on the site

best graphic design company in india
Designing is a craft of communicating words as articulations. Visuals matter more than words in the advanced field.
The experts in the designing business recommend that illustrations are simpler to recall than words,
and that is the reason Website designing and Graphics play an imperative job.

Report

ajumas

about 3 years ago

#34917

This comment was minimized by the moderator on the site

Thanks for sharing this useful information.

Report

uaevisaonline

about 3 years ago

#34732

This comment was minimized by the moderator on the site

This is really insightful article , found it very helpful and informational

Report

shriya gupta

about 3 years ago

#34341

This comment was minimized by the moderator on the site

HelloNice post .. Keep sharing.Thank You

Radha

about 3 years ago

#33657

This comment was minimized by the moderator on the site

Hello sir,
I love with this post.I really appreciate for this website.Your information is so good and valuable.Lovable idea and concept for sharing this website.
This is an amazing website.This post is nice.
Thanks for sharing

Lipika

about 3 years ago

#33568

This comment was minimized by the moderator on the site

Hi....Hi, This blog content very technical information, it is on of the best blog i have got. Very interesting and describe in a very easy way.

Massey Tractor

about 4 years ago

#32093

This comment was minimized by the moderator on the site

Hello,
I am glad to find this useful information Thanks for sharing this amazing article.

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

चैंज

फ़ीचर ट्यूटोरियल

मदद लें?