استبدال بيانات في وورد عن طريق اكسس

[يونس محمد الخطابي]

السلام عليكم ورحمة الله وبركاته

عند ادخال بيانات في اكسس نموذج (TAAA ) وضغط زر (تحديث) ونبقي النموذج مفتوح ثم نذهب الى الملف وورد(بيانات) ومن الاعلى نختار (الوضائف الاضافيه) ثم تشغيل الماكرو . يتم استبدال كافة البيانات الموجود ه في وورد اعتمادا على البيانات التي ادخلناها في اكسس - هذا البرنامج يعمل مع اوفيس 2010 الان عند تحميل النسخ اللاحقه يتوقف البرنامج عن العمل - هل بالامكان تعديل الكود لكي يعمل مع اوفس 2016 وما بعده . وجزاكم الله خير

استبدال بيانات.rar

[Foksh]

وعليكم السلام ورحمة الله وبركاته ,,

جرب هذا التعديل !!

Sub imad()
    Dim doc As Document
    Dim db As Object
    Dim rs As Object
    Dim f As FileDialog
    
    Set doc = ActiveDocument
    
    Set db = CreateObject("DAO.DBEngine.120").OpenDatabase(ActiveDocument.Path & "\10 - TMLEK.mdb")
    Set rs = db.OpenRecordset("qtsder")
    
    Application.ScreenUpdating = False
    
    While Not rs.EOF
        With doc.Content.Find
            .ClearFormatting
            .Text = rs.Fields(0).Value
            .Replacement.ClearFormatting
            .Replacement.Text = rs.Fields(1).Value
            
            .Execute Replace:=wdReplaceAll, _
                   Format:=True, _
                   MatchCase:=True, _
                   MatchWholeWord:=True, _
                   Wrap:=wdFindContinue
        End With
        rs.MoveNext
    Wend
    
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "تم الانتهاء من الاستبدال بنجاح", vbInformation + vbMsgBoxRight, ""
End Sub

افتح الملف المرفق على اصدار 2016 ،واخبرنا بالنتيجة

 

مجلد جديد (2).zip