ضرور جدا لمن عنده خبره في برمجة المايكرو

بســم الله الـرحمــن الرحيــم

اخواني المبرمجين تواجهني مشكلة كبيرة حيث ان عندي ملف ورد يحتوي علي احاديث

مرقمه واحب ان اصنع برنامج مايكرو يقوم بالبحث عن هذي الرقام من عدد الي عدد

ثم يقو م بكتابة الاعداد الغير موجوده بالترتيب

وقد قمت بكتابة شفره في المايكرو ونجحت في بعض الملفات ولم تنجح مع الملف المطلوب

وكانت المشكلة ان الشفره تقوم بفتح ملف ورد جديد وويتم كتابة ارقام غير صحيح

اي موجود وغير موجوده

ولم اكتفي بهذي الشفره بالقمة بتغيرها وستخدمة افكرا مختلفه ولكنت كلها فشلة

لاني غير خبير في البرمجة

فاتمنى من عنده الخبره ان

شفرة تقوم بالباحث عن الارقام الغير موجوده في الملف من عدد معين الي اخر

ثم كتابة هذه الارقام في ملف ورد جديد

اتمنى ان يساعدني شخص في هذا الامر للاهميه القصوى

لان هذا المشروع إن شاء الله راح يفيد الامة الاسلامة إن شاء الله

Sub Macro1()





Dim s As Integer





s = 1

Documents.Add DocumentType:=wdNewBlankDocument



For s = 20000 To 28000

Selection.EscapeKey

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting



With Selection.Find



.Text = s



.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchKashida = False

.MatchDiacritics = False

.MatchAlefHamza = False

.MatchControl = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

If Selection.Find.Execute = True Then

Selection.Copy

Windows("Document1").Activate





Selection.PasteAndFormat (wdPasteDefault)

Selection.TypeParagraph

End If

Windows("الجامع").Activate

If Selection.Find.Execute = False Then

Windows("Document1").Activate



Selection.TypeText Text:="خطاء"

Selection.TypeParagraph

End If



Windows("الجامع").Activate











Next s





End Sub

New_Compressed__zipped__Folder.zip