ابوخليل

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

في 2003 مثل الصورة في هذه المشاركة لازالة ايقونة الحفظ http://www.officena.net/ib/index.php?showtopic=37786&view=findpost&p=203896 في 2007 وأعلى ليس هناك فرقا يذكر الا في طريقة الوصول

انظر الصورة انتبه : ان اجريت الحذف على القالب العمومي Normal لن تجدها في جميع مستنداتك

حل مشكلتك في تخصيص اشرطة الادوات تستطيع ازالة واضافة ما تريد

تستطيع أن تحذف الأيقونة من شريط الأدوات وكذلك من قائمة ملف ويمكن تطبيق هذا على مستند معين أو على برنامج وورد ككل .

اخي نارت : تحية طيبة وبعد هناك مشكلة تحدث ويمكن انها عندي فقط وتحدث عند تشغيل النموذج بعد اضافة موعد ويظهر لي ان المشكلة في حدث تحميل النموذج الفرعي

لجعل هذه الخاصية لجميع مستندات وورد القديمة والجديدة : فقط انقل الكود من الوحدة النمطية الخاصة بالمستند والتي هي موجودة فيه الآن انقلها الى الوحدة النمطية للقالب Normal

جزاك الله خيرا يا أبا الحارث اللهم كما أحسنت خلقي فأحسن خلقي

ما تريده ممكن فقط اذكر لي ما حاجتك وما الهدف من ذلك لانه عند تطبيقها برنامج الوورد لن يحفظ حرفا واحدا .

شغال عندي على 2010 و 2007 و 2003 وهذا هو المثال بالمرفق أدناه كل ماعليك عمله هو تخفيض امان الماكرو الى ادنى مستوى لأنه اذا كان امان الماكرو مرتفع يحجب وورد الاكواد عن العمل s.rar

تفضل ضع هذا الكود في حدث الاغلاق للمستند ActiveDocument.SaveAs FileName:="s.doc", FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False ActiveWindow.Close Application.Quit استبدل s.doc باسم المستند لديك

هذا ليس كلامي بل هو كلام استاذنا نارت لبزو اقتبسته من موضوع لك سابق ويقصد : قبل الشروع في تنفيذ أي مشروع لا بد من دراسة تحليلية وتصور لكامل المشروع والنتائج المطلوبة ولم اعرض كلام استاذنا الا لانك في مشاركتك الاخيرة طلعت بفكرة جديدة , والافكار كلها واعطاء معلومات عن طبيعة العمل تكون قبل انشاء الجداول بل قبل الشروع في العمل . معلومة أمل ان تجد فيها فائدة

المسألة : فكرة نتصورها ثم يتم تطبيقها وحسب تصوري لا بد من حقل ترقيم آخر إما دائم في جدول أو مؤقت في استعلام وان كان لديك فكرة اخرى اعرضها

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

اخي العزيز المهندس طارق جعلها الله سلامة دائمة لك ولأهل مصر

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

اشرح لك اول فقرة وهي الخاصة بالباسبورد في 2007 وهي حين تقسيم القاعدة / انا ليس لدي الاصدار 2007 ولكني اتذكر هناك شيء اسمه تشفير قاعدة البيانات باستخدام كلمة المرور في 2010 تجدها في : ملف / معلومات هذه الخاصية تتيح لك الاتصال بقاعدة البيانات وهي محمية بكلمة مرور

حقيقة .. منتدى أكسل .. خطيييييييييير تسلم اخي يحياوي .

تم تعديل السطر أعلاه الوحدة النمطية تنقل النص من text1 وتضعه في text3 بدون مسافات وعمليات الجمع تتم استنادا الى text3

هذه الأوامر ستقوم بالمهمة ، الصقها في صفحة الفورم وقم بانشاء مربع نص text3 مخفي هذه الوحدات النمطية استللتها من مشاركة للأخ الاستاذ ابو حمود غفر الله له ولوالديه . Private Function NeatSplit(ByVal Expression As String, _ Optional ByVal Delimiter As String = " ", _ Optional ByVal Limit As Long = -1, _ Optional Compare As VbCompareMethod = vbBinaryCompare) _ As Variant Dim varItems As Variant, i As Long varItems = Split(Expression, Delimiter, Limit, Compare) For i = LBound(varItems) To UBound(varItems) If Len(varItems(i)) = 0 Then varItems(i) = Delimiter Next i NeatSplit = VBA.Strings.Filter(varItems, Delimiter, False) End Function Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String) Dim vSearchLine As String, found As Integer Dim Swords found = InStr(SearchLine, SearchFor) vSearchLine = SearchLine If found <> 0 Then vSearchLine = "" If found > 1 Then vSearchLine = Left(SearchLine, found - 1) vSearchLine = vSearchLine + ReplaceWith If found + Len(SearchFor) - 1 < Len(SearchLine) Then _ vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1) End If found = InStr(vSearchLine, SearchFor) Swords = vSearchLine Do While found <> 0 vSearchLine = Left(vSearchLine, found - 1) vSearchLine = vSearchLine + ReplaceWith vSearchLine = vSearchLine + Right$(Swords, Len(Swords) - found - Len(SearchFor) + 1) found = InStr(vSearchLine, SearchFor) Swords = vSearchLine Loop sReplace = vSearchLine End Function Private Sub Text1_AfterUpdate() Dim x As Variant x = NeatSplit(sReplace([Text1], " ", "")) For i = LBound(x) To UBound(x) Text3 = x(i) Next i End Sub Private Sub Command6_Click() Text1.Requery If Not IsNull(Text3) Then Dim m Text2 = 0 For m = 1 To Len(Text3) Text2 = Text2 + DLookup("num", "AbjadHawwaz", "tex = '" & Mid(Text3, m, 1) & "'") Next m End If End Sub

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

تحية لك اخي ابوعمر : انت على رأي اخينا خويلد ام يختلف ؟

تم تعديل النقاط الثلاث الاول ، أما الرابع فيحتاج الى عملية خاصة تحتاج بعض الوقت اولا : في مربعات التحرير انظر ماذا عملت بالجداول وانظر العلاقة بينهما ، ومعنى هذا يجب عليك اعادة النظر في النماذج الخاصة بها ، لانك لست بحاجة الى وضع ايقونات بجانب مربعات التحرير للاختيار .وانما هذه بيانات ثابته لاتتغير (كروؤس مواضيع ) ويتم الاختيار منها عبر مربعات التحرير ثانيا : اسقاط التاريخ في الحقول واليوم كذلك قمت باستبدال مربع التاريخ بكائن خاص للتقويم فلست بحاجة الى نموذج التقويم ، ولكن عليك تحميل الاداة واتباع الخطوات كما في الرابط http://www.officena.net/ib/index.php?showtopic=30753 ثالثا : تنسيق حقل المجموع من خصائص الحقل / تنسيق اختر ما يناسبك عملة او قياسي او عام ...... تقبل تحيتي .،، MyBooks2.rar

الحجم 27 ميجا بايت لو قمت بإصلاحه لتناقص الى 1 ميجا . جاري الاطلاع ...