محمد طاهر عرفه

مشكلة المرفقات حلها تحديث المتصفح الى احدث النسخ اما IE8 أو استخدام متصفح آخر و كلها مجانية Opera Google chrome Mozilla Firefox Safari

قمت باضافة الكود الى ملف الأخ ابو اكرم كما قمت بعمل تعديل فى كوده لتثبيت مسار ملف قاعدة البيانات الى d:\temp2\Replacements.mdb حتى ال يسأل عنها فى كل ملف و الآن قم بما يلي أعد تسمية قاعدة البيانات باسمReplacements و ضعها فى نفس المسار مع الملفات التي تريد التجربة عليها أي d:\temp2 و شغل الكود ProcessAll فى الملف المرفق كما هو Replace.rar

هذا الملف يحتوي ثلاثة أكواد مختلفة Delete Extra space.rar الاول removeaddspace وهو كود مطور عن الكود السابق ويمتاز عنه بأنه لا يعيد البحث من البداية بعد كل حذف ويعطيك رسالة بعدد المسافات التي تم حذفها عند نهاية التنفيذ الكود الثاني removespaceafterWa وهو كود مماثل مصمم للتغلب على مشكلة الواو التي تأتي فى نهاية السطر ويرفضها البعض من حيث الشكل، لذا يقوم الكود بحذف المسافات الزائدة التى تليها فلا يمكن أن تأتي كآخر كلمة فى السطر الكود الثالث removeallspaces يقوم بتنفيذ الكودين السابقين على التوالى Sub removeaddspace() ' code written by Mohamed Taher ' Purpose is to remove additional successive spaces (more than one space) Dim chrcount, curpos, mycount As Long curpos = 1 Selection.WholeStory chrcount = Selection.Characters.Count 'MsgBox chrcount Nextspace: For i = curpos To chrcount Application.StatusBar = "Removing extra spaces" & _ i & "/" & chrcount & " Please Wait......." If Selection.Characters(i).Text = " " Then If Selection.Characters(i + 1).Text = " " Then Selection.Characters(i + 1).Text = "" mycount = mycount + 1 chrcount = chrcount - 1 curpos = i GoTo Nextspace End If End If Next i MsgBox "no. of spaces removed = " & mycount & Chr(10) & Chr(13) & " Best Wishes from Officena" & Chr(13) & " www.officena.net " End Sub Sub removespaceafterWa() ' code written by Mohamed Taher ' Purpose is to remove additional successive spaces (more than one space) Dim chrcount, curpos, mycount As Long curpos = 1 Selection.WholeStory chrcount = Selection.Characters.Count 'MsgBox chrcount Nextspace: For i = curpos To chrcount Application.StatusBar = " removing extra spaces after Wa" & _ i & "/" & chrcount & " Please Wait......." If Selection.Characters(i).Text = " " Then If Selection.Characters(i + 1).Text = "æ" And Selection.Characters(i + 2).Text = " " Then Selection.Characters(i + 2).Text = "" mycount = mycount + 1 chrcount = chrcount - 1 curpos = i GoTo Nextspace End If End If Next i MsgBox "no. of spaces afer Wawo removed = " & mycount & Chr(10) & Chr(13) & " Best wishes From Officena site " & Chr(10) & Chr(13) & " www.officena.net " End Sub Sub removeallspaces() Call removeaddspace Call removespaceafterWa End Sub Delete Extra space.rar

جرب هذا الكود ، سيقوم بحذف المسافات على التوالى و أنت تشاهد الشاشة Sub replaceit() Dim chrcount As Long nexttt: Selection.WholeStory chrcount = Selection.Characters.Count For i = 1 To chrcount - 1 Application.StatusBar = "Searching ...." & _ i & "/" & chrcount & " Please Wait......." If Selection.Characters(i).Text = " " Then If Selection.Characters(i + 1).Text = " " Then Selection.Characters(i + 1).Text = "" chrcount = chrcount - 1 GoTo nexttt End If End If Next i End Sub

اذا كان الملف بامتداد pps لا تحاول تشغيله مباشرة و لكن افتح الباوربوينت أولا كتطبيق ثم File open و اختار الملف ثم احفظه بامتداد ppt power point presentation

لتشغيل ماكرو معين على أكثر من ملف موجود فى مجلد واحد Sub ProcessAll() Dim Wb As Document, sFile As String, sPath As String Dim itm As Variant Dim strFileNames As String sPath = "d:\temp2\" ' Retrieve the current doc files in directory sFile = Dir(sPath & "*.doc") Do While sFile <> "" strFileNames = strFileNames & "," & sFile sFile = Dir() Loop ' Open each file found For Each itm In Split(strFileNames, ",") If itm <> "" Then Set Wb = Documents.Open(sPath & itm) Call addredheader 'this runs my macro from above Wb.Close True End If Next itm End Sub مرفق ملف به هذا الكود ، بالاضافة الي ماكرو يقوم باضافة كلمة أوفيسنا موقع الكيرسور أو مكان المؤشر و تغيير لونها و تكبير الخط اسمه addredheader اعددته للتجرية فقط جرب علي ملفات خالية حدد مسار الملفات التى تريد التطبيق عليها ثم شغل الماكرو ProcessAll سيقوم بتطبيق الماكرو addredheader على كافة الملفات من نوع *.doc داخل المجلد المحدد داخل الكود وهو هنا فى المثال d:\temp2 كما هو مبين أعلاه و طبعا ستستبدل الماكرو addredheader بالماكرو الذي تريد تطبيقه و أخيرا لا تجرب على الملفات الحقيقية فقط ضع اي ملفات فى المسار d:\temp2 للتجربة ، أو عدل المسار كما تريد run multi macro.rar

لا يوجد فى الوورد طريفة للتكرار اعلى الصفحة الا باستخدام رأس الصفحة Header view header and footer

المفترض أن الحل نفسه يعمل على اوفيس 2007 مع اختلاف مسار ملف ال normal.dot ابحث عن مسار الملف و عدله أو جرب فتح ملف و كانك ستقوم بحفظه ثم اختار النوع Template أو قالب ، و انظر اين سيتم تخزينه ثم اذحب الى هذا الملف و عدل ما شئت فيه هذا الملف هو الذي يتم بناء عليه فتح أي ملف جديد فى الوورد

السلام عليكم جزاك الله خيرا أخي الكريم حقيقة معدل التواجد للأعضاء خلال هذه الفترة من السنة يكون فى أقل معدلاته و يساهم فى ذلك تعديل عنوان الموقع سابقا اما عن الفلاش فيمكن تحميل Flash Player مجاني من www.adobe.com و استخدام المتصفح لفتح الملفات حقيقة برامج فك الكراك بالفعل يكون فيها تروجان فى الكثير من الاحيان

File Name: الحكمة الإدارية - د. عبد المالك أبو الشيخ File Submitter: محمد طاهر File Submitted: 19 Aug 2009 File Updated: 19 Aug 2009 File Category: دورات و دروس فى الإدارة والعمل و الحياة ملخص لكتاب الحكمة الإدارية باللغتين العربية و الإنجليزية إعداد د, عبد المالك أبو الشيخ Click here to download this file

جرب الضغط فى أي مكان خالى فى الشاشة و اختيار properties themes و اختاير ال theme الافتراضي للويندوز مرة أخري

يمكنك تحرير التوقيع و تعديل الوصلة

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

يبدو أنه أقفل عن طريق الخطأ ، سيتم فتحه الان باذن الله تعالى

و الجديد فى نسخة الجيل الثالث أنه يمكن مشاركة الحوار لأكثر من شخص ، أي تحديد المشتركبن فى الحوار و لاستخدام الخاصية ، اختار من القائمة عند الاسم أعلى المنتدى MESSENGER new compose new ( ما زالت أعمال الترجمة جارية ) و يمكنك اضافة من ترغب من الاعضاء على الحوار كانه اجتماع او الاكتفاء بارسال نسخة لهم و ذلك من القائمة المنسدلة كما يمكن اضافة عضاء الي أي حوار بعد بدء الحوار فى منتصف النفاش و هذا لم يكن متاحا فى النسخ السابقة و للعلم خاصية المرسال فى المنتدي مفعلة ابتداء من الأعضاء الفاعلين فقط بحسب قواعد المنتدى و الهدف كما تحدثنا سابقا هو تقليل الحوارات الحانبية و الاعتماد على المشاركات فى المنتدى ليستفيد منها أكبر عدد ، و هناك بديل هو خاصية التراسل بالبريد لمن يرغب فى تفعيل الخاصية بحسب رغبة الطرفين.

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

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

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

التجربة السابقة عملت معي بنجاح الكود كان <p align="center"><span lang="ar-sa"><font size="7" color="#FF0000">تجربة</font></span></p> <p align="center"><span lang="ar-sa"><font size="6">تجربة</font></span></p> <p align="center"><span lang="ar-sa"><font size="5" color="#0000FF">تجربة</font></span></p> فما هو الكود الذي لم يعمل معك ؟؟

تجربة تجربة تجربة

شكرا لك أخي الكريم بالنسبة للاكسبلورر ، النسخة الاخيرة IE8 تعمل بصورة جيدة

Format Conditional Formating

اللهم رب الناس أذهب البأس و اشف أنت الشافي لا إله الا أنت

راجع هذا الموضوع http://www.officena....showtopic=27100 اما عن ظهور الرسالة فهذا يحدث معي أحيانا و لكن ليس دائما و ربما يكون هناك اصدارات لاحقة من البرنامج قد حلت ذلك

و عليكم السلام و رحمة الله و بركاته السبب الاساسي غالبا ما يكون امتلاء المجلد الذي يقوم الاوتلوك بتخزين الصور مقتا فيه لعرضها و هو بناظر المسار التالي بحسب اسم المستخدم لديك C:\Documents and Settings\mtarafa\Local Settings\Temporary Internet Files\OLK10DC حيث mtarafa يمثل اسم المستخدم فقم باغلاق الاوتلوك ثم امسح الملفات فى هذا المجلد و يستحسن عمل Disk clean up للتخلص من كافة الملفات المؤقتة على الجهاز ثم اعد تشغيل الاوتلوك