البحث في الموقع

بسم الله الرحمن الرحيم إضافة البيان البحثية لبرنامج Word إضافة لبرنامج التحرير الشهير Word، تُسهِّل الكثير من المهام على الباحثين والمحررين، وتتوفر في الإضافة مجموعة من الخصائص؛ هي: 1- تنسيق الشعر العربي: تُمكِّنك هذه الخاصية من استيراد مجموعة من الأبيات والقصائد من ملف نصي، أو إدراجها مباشرة من خلالها كتاباتها في مربع نص، والأجمل من كل ذلك أن هذه الخاصية تقوم بتنسيق الأبيات الشعرية الموجودة ضمن مستند Word خلال ثوانٍ، مع توفير الخيارات المناسبة لشكل القصيدة والأبيات الشعرية. 2- تصحيح علامات الترقيم، وذلك بمعالجة المسافات قبل أو بعد علامات الترقيم. 3- حذف المسافات البيضاء التي تقع في ثنايا الكلمات. 4- تحويل الترقيم التلقائي إلى يدوي. 5- إتباع الرقم بمسافة في الترقيم التلقائي. 6- عمليات عديدة على الأقواس المتنوعة، تشمل: تلوين ما بين قوسين، أو تغميقه، أو حذفه، أو تغيير الأقواس إلى أقواس أخرى. 7- الكثير من العمليات على الحواشي السفلية؛ من حيث إضافة الأقواس أو حذفها أو تغييرها، وكذلك نقل الحواشي السفلية إلى الأعلى، وحذف الحواشي أو تلوينها، بالإضافة إلى تغميقها أو جعلها عادية، وأيضاً رفعها عن السطر أو خفضها عنه أو مساواتها له، ومسح المسافة قبل رقم الحاشية. 8- استبدال متعدد: تتيح لك هذه الميزة البحث عن مجموعة من الكلمات دفعة واحدة واستبدالها بكلمات أخرى، كما تسمح لك بإضافة عدة مجموعات، بحيث تستطيع أن تضيف عدداً من العبارات في كل مجموعة. 9- تحويل ملف Word إلى PDF مع فهرسة الملف، والحفاظ على تنسيق الآيات القرآنية المكتوبة بالرسم العثماني، والحفاظ على التنسيق الشعري، ودعم خاصية البحث ضمن المستند الذي تم تحويله إلى PDF. وهنا شرح مفصل لإضافة البيان البحثية، أرجو مشاهدته: وهنا رابط مباشر لتحميل الإضافة: https://www.shhada.net/contents/downloadsm/4MAEgubYzqynkm6y.zip وهنا صفحة الإضافة على الإنترنت: https://www.shhada.net/downloads/s/39

اعرض الملف الأرشيف الالكترونى تجربة طريقة بحث جديدة جدا البرنامج متكامل مفتوح المصدر ويمكن التحكم والتغيير به ليصبح ملكك برنامج الأرشيف الألكترونى للملفات الصادرة والواردة ومحاضر اجتماع وعرض الملفات بطريقة الصحف عن أى شيىء وكل شيىء ويوجد بالبرنامج طريقة جديدة لعرض المرفقات المرتبطة مع السجل الحالى فقط أرجو من الأخوة الأفاضل التكرم بالتجربة والاطلاع والتقييم والتحسين أن أمكن الاستاذة الأفاضل البرنامج يشمل أعمال كاملة (المهمات الأساسية + نسخ احتياطية - حفظ المستندات خارج القاعدة - نسخ الملفات ونقلها من وألى الجهاز لأى مكان تختاره - امكانية اخفاء المرفقات واضهارها ....الخ ويشمل اعمال تحت التنفيذ (ادخال محاضر - وملفات متنوعة - تحكم بألوان النماذج وتغيير لها بضغطة واحدة ملحوظة هامة يجب الحاق المكتبات كما بالصورة المرفقة وتحميل برنامج اكروبات ريدر للسماح بالمكتبات بالاضافة والتمكين الباسورد تنحصر برقم 0000 لأى اختيار برجاء التقييم ووضع تعليق يتضمن اصدار الويندوز والأفيس الملف بحجم 2.90 MB وضعته على الميديا فير كما نصحنى رفاق المنتدى والاساتذة به وكل الشكر للاستاذ أبا جودى على الرابط التالى https://www.mediafire.com/file/gvp38c8299mk7yy/Data+Zero.rar/file صاحب الملف walid7799 تمت الاضافه 07 ديس, 2021 الاقسام قسم الأكسيس  

السلام عليكم عيدكم مبارك كان عندي سؤال وراح اشرح الفكرة للتسهيل ( مرفق مثال للقاعدة ) عندي جدول باسماء الموظفين وجدول فيه ملفات الموظفين على هيئة مسارات ملفات داخل الجهاز ومربوطين ب Card ID وهو رقم الموظف المطلوب استخراج ملفات الPDF لكل موظف في ملف واحد فقط Merged PDF --- من خلال النموذج التالي احدد السنة وليكن 2019 واختار مكان الحفظ واختار اسم الموظف من الUsername Combo واضغط على Generate PDF ف المفروض انا عاوز الزر دة يحفظلي ملفات ال Sick Leave و Urgent Leave في ملف واحد باسم الموظف في المكان الى اخترتة للحفظ يعني في المثال المذكور لو اخترت اول موظف الى اسمو Jan Kotas من الكومبو بوكس المفروض يروح يجيب المسارات هذي C:\Sample DB\Attachments\1.pdf C:\Sample DB\Attachments\3.pdf فقط ويدمجمهم في ملف واحد PDF باسم Jan Kotas.pdf ويحفظه في الديسكتوب في المسار المحدد مسبقاً هذا C:\Users\Mezo\Desktop\ ولو ماخترت اسماء وضغط على Generate PDF يعمل نفس العملية لجميع الموظفين ويحفظ كل موظف على الديسكتوب ملف واحد PDF باسمو --- بعد بحث على الانترنت لموضوع الدمج وجدت هذا الموضوع https://wellsr.com/vba/2017/word/combine-pdfs-with-vba-and-adobe-acrobat/ فهل تقدرو تفيدوني ياجماعة الخير SamplePDF.zip

انا اريد عمل قاعدة بيانات للارشيف ملفات مابين صادر و وارد الوارد 77 منطقة الصادر 24 منطقة بنسبة لعدد المناطق ليس مهم عددها ( لتوضيح فقط ) انا سوف ارفع نسخة من النموذج الذي احاول عمله اشياء لم استطع فعلها 1 - ربط القاعده مع السكانر - طابعه مع اسكانر النوع Kyocera ECOSYS M2540dn توصيل USP , بحيث يكون السكانر من داخل قاعدة البيانات . 2 -اضافة الملفات ال pdf من السكانر لداخل قاعده بيانات الارشيف بدل من الربط التشعبي او اي حل بديل . 3 -عند البحث عن كتاب وضع مربع ليظهر داخله (يعني اذا بدي كتاب احث عنو ويطلعلي داخل مربع في القاعد عشان اطبعه اذا لزمني ) . 4 - وضع ازرار لكل اسم بوكس اضع فيه الملفات وعددها 78 - وضع زر لدخول الى هذه الازرار . 5- اذا امكن احد مساعدتي في عمل قاعدة البيانات احتاج طريقة فتحها لوحدها بدون برنامج الاكسس . اكون مشكورا جدا جدا اذا امكن احد مساعدتي في عمل قاعدة البيانات للارشف . مشكورا سلفا . iyad.accdb

السلام عليكم إخواني/أخواتي البرنامج الاصل هنا: http://www.officena.net/ib/index.php?showtopic=60235&p=386739 ولكن الظاهر ان بعض الشباب رأى بأن البرنامج اصبح معقد ، لذلك ، الغيت جميع النماذج والجداول التي لا علاقة لها بالماسح الضوئي scanner ولشرح اضافي لعمل البرنامج: الهدف من البرنامج هو سرعة العمل ، بحيث انك تضبط الاعدادات مرة واحدة ، وتحفظ كل اعداد بإسم Profile مختلف ، وفي عملية المسح ، كل ما عليك عمله هو اختيار Profile من القائمة المنسدلة ، وتضغط على الزر Scan 1. تستطيع ان تستعمل اكثر من ماسح ضوئي ، 2. لكل ماسح تستطيع ان تعمل اكثر من Profile واحد ، وكما تلاحظ في الصورة المرفقة ، فقد عملت 4 Profiles للماسح HP Officejet Pro 8500: أ- للمسح من زجاج Glass الماسح (لمسح ورقة واحدة) ، ب- للمسح من الملقم Feeder (لمسح اكثر من ورقة واحدة) ، (هناك بعض البرامج تسألك مسبقاُ عن عدد الاوراق التي تريد سحبها ، ولكن برنامجي لا يسأل ) ، ج- للمسح من الملقم Feeder ، Duplex (لمسح اكثر من ورقة واحدة ، من جانبي الورقة ، طبعا اذا كان الماسح يحمل هذه الميزة) ، . 3. لكل Profile ، تستطيع ان تضبط مجموعة اعدادات ، ومنها صيغة حفظ الصورة كـ pdf او jpg او png او tif ، والسبب ان عندي عدد 2 Profile للملقم Feeder ، هو ان احدها يمسح الاوراق ويحفظها جميعا في ملف بصيغة pdf ، بينما الـ Profile الاخر يحفظ كل ورقة بصيغة jpg متسلسلة ، (هناك بعض البرامج التي تقول بأنها تحفظ الصورة بصيغة jpg ، ولكن الصورة في الواقع بصيغة Bmp ، فمجرد تغيير اسم صيغة الملف لا يغير صيغة الملف نفسه) ، ملاحظة هامة: البرنامج لا يتأكد من وجود صور سابقة في مجلد الحفظ ، فإنه يحذف الصور السابقة ويستبدلها بصور جديدة. 4. الميزة في عمل اكثر من Profile لكل ماسح ، هو انه ، عند المسح ، فانك لا ترجع وتختار الاعدادات في كل مرة تريد المسح ، وانما تختار اسم Profile ، وتضغط على زر المسح (البرامج الاخرى ، إما انها لا تعطيك خيارات تضبيط الاعدادات ، او انك تضطر الى تضبيط الاعدادات في كل مرة تريد المسح) ، لاحظ في الصورة التالية ، الاعدادات التي تم حفظها مسبقا للـ Profile HP8500_Duplex ، فكل الذي تعمله هنا هو اختيار Profile من الرقم 1 ، ثم تضغط على الرقم 9 للمسح : . 5. العيب الذي يُوجه الى البرنامج ، انه يستخدم وسيط خارجي وهو NAPS2 ، بينما جميع البرامج الاخرى تستخدم وسيط خارجي ايضا مثل مكتبة wia جعفر Scan_Link_Images_pdf_Files2.zip

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

بسم الله والصلاة والسلام على رسول الله أخواني وأساتذتي كل عام وأنتم بخير أقدم لكم هذا الموضوع البسيط والذي ربما يكون عرض من أحد العمالقة في فترة غيابي لكننني بحثت ولم أجد عنه شيء قبل عرضه الموضوع هو أننا عن استخدام vlookup مع الفواتير والشهادات قد نحتاج بدلا من الطباعة إلى الاحتفاظ بنسخة بي دي إف وقد قمت بالتجربة إلى أن وصلت للكود التالي بفضل الله الحفظ يكون في نفس مكان الملف ويمكن أن يكون الحفظ في Documents لكنني فضلت أن يكون الحفظ في نفس مكان الملف مع العلم أنني وضعته في أبسط صوره ويمكن التعديل بحيث يحفظ جميع ما لديك ( جميع الفواتير أو الشهادات ) بضغطة واحدة أو حفظ مجموعة معينة من الشهادات - الفواتير مع الشكر لكم كود لحفظ الصفحات بي دي اف.rar

تحياتى لاساتذه المنتدى الكرام هذا العمل مدمج من شرح بعض الاساتذه الكرام هل من الممكن الدمج بين كودين ووضعهم فى زر امر واحد ارجو منكم تعديل الكود المرفق فى الملف لترحيل الفاتوره ( شيت مشتريات ) الى شيت ( اضافه) وحفظ الفاتوره على صيغه pdf فى فلدر مشتريات ووضع لنك فى شيت (يوميه مشتريات ) ويجب عدم ترحيل الفاتوره بدون كتابه اسم العميل وعدم تكرار الفاتوره save pdf.rar

السلام عليكم لإنعدام خبرتي في الأكواد ... أطلب مساعدة في التعديل على هذا الكود معي الكود التالي: حيث هذا الكود يلغي قائمة صيّغ الحفظ المختلفه في نافذة "حفظ باسم" ويعطي خيارين "للحفظ بإسم" فقط هما xlsm و xls Excel Macro-Enabled Workbook (*.xlsm) Excel 97-2003 Workbook (*.xls) أنا أريد ألغي الخيارين أعلاه أيضا وأستبدالهم بالحفظ إلى PDF فقط لا غير هذا هو الكود Private Sub CustomSave(Optional SaveAs As Boolean) 'Declare the variables Dim ActiveSht As Object Dim FileFormat As Variant Dim FileName As String Dim FileFilter As String Dim FilterIndex As Integer Dim Msg As String Dim Ans As Integer Dim OrigSaved As Boolean Dim WorkbookSaved As Boolean 'Turn off screen updating Application.ScreenUpdating = False 'Turn off events so that the BeforeSave event doesn't occur Application.EnableEvents = False 'Assign the status of the workbook's Saved property to a variable OrigSaved = Me.Saved 'Assign the active sheet to an object variable Set ActiveSht = ActiveSheet 'Call the HideAllSheets routine Call HideAllSheets 'Save workbook or prompt for SaveAs filename If SaveAs Or Len(Me.Path) = 0 Then If Val(Application.Version) < 12 Then FileFilter = "Microsoft Office Excel Workbook (*.xls), *.xls" FilterIndex = 1 Else FileFilter = "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm, " & _ "Excel 97-2003 Workbook (*.xls), *.xls" If Right(Me.Name, 4) = ".xls" Then FilterIndex = 2 Else FilterIndex = 1 End If End If Do FileName = Application.GetSaveAsFilename( _ InitialFileName:=Me.Name, _ FileFilter:=FileFilter, _ FilterIndex:=FilterIndex, _ Title:="SaveAs") If FileName = "False" Then Exit Do If IsLegalFilename(FileName) = False Then Msg = "The file name is invalid. Try one of the " Msg = Msg & "following:" & vbCrLf & vbCrLf Msg = Msg & Chr(149) & " Make sure that the file name " Msg = Msg & "does not contain any" & vbCrLf Msg = Msg & " of the following characters: " Msg = Msg & "< > ? [ ] : | or *" & vbCrLf Msg = Msg & Chr(149) & " Make sure that the file/path " Msg = Msg & "name does not exceed" & vbCrLf Msg = Msg & " more than 218 characters." MsgBox Msg, vbExclamation, "Invalid File Name" Else If Val(Application.Version) < 12 Then FileFormat = -4143 Else If Right(FileName, 4) = ".xls" Then FileFormat = 56 Else FileFormat = 52 End If End If If Len(Dir(FileName)) = 0 Then Application.DisplayAlerts = False Me.SaveAs FileName, FileFormat Application.DisplayAlerts = True WorkbookSaved = True Else Ans = MsgBox("'" & FileName & "' already exists. " & _ "Do you want to replace it?", vbQuestion + vbYesNo, _ "Confirm Save As") If Ans = vbYes Then Application.DisplayAlerts = False Me.SaveAs FileName, FileFormat Application.DisplayAlerts = True WorkbookSaved = True End If End If End If Loop Until Me.Saved Else Application.DisplayAlerts = False Me.Save Application.DisplayAlerts = True WorkbookSaved = True End If 'Call the ShowAllSheets routine Call ShowAllSheets 'Activate the prior active sheet ActiveSht.Activate 'Set the workbook's Saved property If WorkbookSaved Then Me.Saved = True Else Me.Saved = OrigSaved End If 'Turn on screen updating Application.ScreenUpdating = True 'Turn on events Application.EnableEvents = True End Sub

أستاذنا الحبيب "صقر المنتدى " الذي لا يزال يجود بوقته كما هم بقية الأخوة ليعلمنا طرق العمل بالنماذج "الفورم": السلام عليكم ورحمة الله وبركاته هدية متواضعة أقدمها بين يديكم تعبيراً عن مدى سعادتنا بكم وبدروسكم عبارة عن ملف Word و PDF لآخر عمل قدمته منذ لحظات راجياً أن تنال إعجابكم والسلام عليكم هدية للصقر2.rar هدية للصقر1.rar

على اكسس وبس دعوة للخبراء هنا لفك الطلاسم وسأترك وقتا كافيا للاعضاء هنا لاستنساخ المثال وفك رموزه ولن تعدموا فائدة فيمكن الاستعانة بالمرفق كبرنامج مساعد والمرفق مقفل الى اجل >>> scanPDF.rar

مطلوب من أهل الخبرة الاعزاء اضافة زر بورقة الاكسيل بها كود لتحويل الصفحة الى ملف PDF حيث انه عند الضغط على الزر يقوم بعرض محتويات صفحة الاكسيل على ملف PDF ولكم جزيل الشكر