Note: The other languages of the website are Google-translated. Back to English
English 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
 
فرز التعليقات حسب
التعليقات (17)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مجد! شكرا للمشاركة. كان هذا مفيدًا للغاية. كان لدي أكثر من 50 مستند يلزم تحويلها. لم يستغرق الأمر سوى 000 ساعة لإنجازها جميعًا. مساعدة ضخمة. لقد استخدمت الخيار 39
تم تصغير هذا التعليق بواسطة المشرف على الموقع
افتح مستند Word الذي تريد تحويله إلى ملف PDF. إذا كنت ترغب في الاستيراد فقط ...

مدونة جميلة ، المقالة التي شاركتها جيدة ، هذه المقالة مفيدة للغاية. يقترح صديقي علي استخدام هذه المدونة.

https://customersurveyinfo.com
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شكرا للمشاركة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أشياء ممتعة للقراءة. أبقه مرتفعا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يسعدني أن أجد هذه المعلومات المفيدة ، شكرًا لتقاسم هذه المقالة الرائعة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا .... مرحبًا ، محتوى هذه المدونة معلومات فنية للغاية ، إنها من أفضل مدونة حصلت عليها. ممتع للغاية ووصفه بطريقة سهلة للغاية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا يا سيدي،
أنا أحب هذا المنشور ، أنا أقدر حقًا هذا الموقع ، معلوماتك جيدة وقيمة للغاية ، فكرة ومفهوم محبوبان لمشاركة هذا الموقع.
هذا موقع رائع. هذا المنشور جميل.
شكرا للمشاركة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
HelloNice post .. استمر في المشاركة. شكرًا لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذه مقالة ثاقبة حقًا ، ووجدتها مفيدة للغاية ومفيدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتقاسم هذه المعلومات المفيدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أفضل شركة تصميم جرافيك في الهند
التصميم هو حرفة توصيل الكلمات كتعبيرات. المرئيات مهمة أكثر من الكلمات في المجال المتقدم.
يوصي الخبراء في مجال التصميم بأن تكون الرسوم التوضيحية أسهل في التذكر من الكلمات ،
وهذا هو السبب في أن تصميم مواقع الويب والرسومات يلعبان مهمة حتمية.

تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا للمشاركة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
معلومات عظيمة شكرا مفيد جدا للمشاركة.

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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Dobrý دن،
já bych potřeboval، ale VBA script který بواسطة fungoval včetně podsložek. هل تريد أن تفعل ذلك؟ دوكوجي.

ENG:
يوم جيد،
سأحتاج إلى برنامج نصي لـ VBA يعمل بما في ذلك المجلدات الفرعية. هل يمكن لأي شخص تعديل هذا البرنامج النصي من فضلك؟ شكرًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا دانيال بينيس ،
لتضمين المجلدات الفرعية ، يرجى تجربة كود فبا التالي.
بعد إضافة الرمز ، انتقل إلى الأدوات ، انقر فوق مراجعفي الافتتاح المراجع - المشروع مربع الحوار، والتحقق من وقت تشغيل البرمجة لـ Microsoft مربع ، ثم انقر فوق OK زر لحفظ التغييرات. انظر لقطة الشاشة التالية:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
بعد ذلك ، اضغط على F5 مفتاح لتشغيل الكود.

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
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة