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

كيفية تحويل ملفات بتنسيق doc. إلى ملفات docx. في Word؟

لنفترض أنك تلقيت بعض مستندات Word بتنسيق 97-2003 ، كيف يمكنك تحويل جميع مستندات تنسيق doc هذه إلى تنسيق docx. مرة واحدة؟ ستوضح لك هذه المقالة طريقتين لحل هذه المشكلة.

تحويل ملفات بتنسيق doc. إلى .docx باستخدام كود VBA
تحويل ملفات بتنسيق .doc إلى .docx باستخدام Kutools for Word


تحويل ملفات بتنسيق doc. إلى .docx باستخدام كود VBA

سيُظهر لك هذا القسم رمز VBA لتحويل جميع المستندات بتنسيق doc. في مجلد محدد إلى مستندات docx. مرة واحدة. الرجاء القيام بما يلي.

1. الرجاء جمع كافة المستندات بتنسيق doc. التي ستقوم بتحويلها إلى .docx في مجلد محدد.

2. اضغط على قديم + F11 مفتاح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. في النافذة ، انقر فوق إدراج > وحدة. ثم انسخ رمز 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 باستخدام Kutools for Word

سيوصى باستخدام أداة مفيدة في هذا القسم. مع ال Doc / Docx فائدة كوتولس للكلمة، يمكنك بسهولة تحويل جميع المستندات بتنسيق doc. في مجلد إلى مستندات docx. يرجى المحاولة على النحو التالي.

كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة لـ Word ، تجربة مجانية بدون قيود خلال 60 يومًا.

1. الرجاء جمع كافة المستندات بتنسيق doc. في مجلد محدد ، ثم انقر فوق كوتولس بلس > Doc / Docx. انظر لقطة الشاشة:

2. في ال محول تنسيق المستند مربع الحوار ، ما عليك القيام به على النحو التالي:

2.1) حدد المجلد الذي يحتوي على مستندات بتنسيق .doc في ملف مجلد الملف المصدر قسم.
شنومكس) حدد تحويل doc إلى docx من تنسيق تحويل قائمة منسدلة؛
2.3) بشكل افتراضي ، فإن ملف مسار الوجهة هو نفس المصدر المربع محددًا. إذا كنت تريد وضع جميع مستندات .docx المحولة في نفس المجلد ، فقط احتفظ بهذا الخيار محددًا ؛
إذا كنت تريد فصل مستندات .docx ومستندات doc المصدر ، فيرجى إلغاء تحديد مسار الوجهة هو نفس المصدر ، وحدد مجلدًا جديدًا لحفظ مستندات .docx في ملف حفظ في صندوق؛
شنومكس) انقر فوق إبدأ زر. انظر لقطة الشاشة:

3. ثم ينبثق مربع حوار لإخبارك بعدد المستندات التي تم تحويلها بنجاح ، انقر فوق OK زر وأغلق ملف محول تنسيق المستند نافذة.

يتم الآن تحويل جميع المستندات بتنسيق doc. إلى ملفات docx. انظر لقطة الشاشة:

إذا كنت تريد الحصول على نسخة تجريبية مجانية من هذه الأداة المساعدة ، فيرجى الانتقال إلى تنزيل البرنامج مجانًا اولا ثم انتقل لتطبيق العملية حسب الخطوات اعلاه.


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121