اريد مايكرو او طريقة بدون برامج تحويل تنسيق ملفات الوورد من اصدار قديم doc إلى اصدار جديد docx

[القول المأثور]

هل من طريقة سريعة تحويل عدة ملفات وورد من تنسيق ملفات الوورد من اصدار قديم doc إلى اصدار جديد docx دفعة واحدة!! 

 

 

 

[القول المأثور]

تم العثور على كود يوضع في الاكسل لتحويل تنسيق ملفات الوورد من الإصدار القديم إلى الإصدار الأحدث

 

شرط تفعيل مكتبة Microsoft office 16.0 Object Library أو حسب رقم الإصدار المثبت في جهازك 

 

لتفعيل المكتبة الخاصة بالوورد في المطور ببرنامج الأكسل

https://support.microsoft.com/en-us/office/add-object-libraries-to-your-visual-basic-project-ed28a713-5401-41b0-90ed-b368f9ae2513

 

الكود

Sub ConvertDocToDocx()
    'تحويل ملفات الوورد من صيغة .doc إلى صيغة .docx
    On Error Resume Next
    'التأكد من تشغيل Word وفتحه
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Set wordApp = CreateObject("Word.Application")
    End If
    
    On Error GoTo 0

    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) 'البحث عن كل الملفات ذات الامتداد .doc في المجلد المحدد
    'قم بتكرار هذا الجزء لمعالجة كل ملف .doc في المجلد المحدد
    While xFileName <> ""
        'افتح الملف باستخدام Word
        Documents.Open Filename:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        'حفظ الملف بصيغة .docx باستخدام نفس اسم الملف الأصلي ولكن بامتداد مختلف
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close 'أغلق الملف
        xFileName = Dir() 'ابحث عن الملف التالي في المجلد المحدد
    Wend
    'إعادة تفعيل تحديث الشاشة
    Application.ScreenUpdating = True
End Sub

 

تم تعديل مايو 14, 2023 بواسطه القول المأثور

[القول المأثور]

Convert doc to docx (word format).xlsm

 

ملف ملف الأكسل مضاف إليه الكود

[تومي محمد]

بعد تسطيب الوورد الحديث على الجهاز  قم بحفظه بتنيسق دوكس