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

جرب التعديل التالي
Sub Macro5() CurrentFile = Left(ThisWorkbook.FullName, (InStrRev(ThisWorkbook.FullName, ".", -1, vbTextCompare) - 1)) ActiveSheet.PageSetup.PrintArea = "$AC$7:$AF$50" ActiveWindow.SmallScroll Down:=-9 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CurrentFile & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.WindowState = xlMinimized Application.WindowState = xlMinimized ActiveSheet.PageSetup.PrintArea = "" MsgBox "xxxxxx?", , Now() End Sub  

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

Microsoft Office Picture Manager
برنامج يمكن التعمل مع الصور و تغيير حجمها و خصائصها
 
Microsoft Publisher.
يستخدم لصميم الصفحات الاعلانية و البروشورات الدعائية و المطبوعات الاعلانية ....
 
Microsoft Share Point Designer
يستخدم لتصميم صفحات الاتش تي ام ال فى المواقع المصممة بالشير بوينت 
 
Microsoft Project
إعداد و متابعة البرامج الزمنية
 
Office Lens
لعمل مس ضوئي للمستندات
 
 

اذا كان الاوفيس 2007 ـ فاحيانا يكون حل المشكلة فى تحميل نسخة الاصلاح رقم 1
Microsoft office Service Pack 1 
و بالتالي قد ينطق ذلك على الاصدارات التالية 

تم فصل الحل فى رد منفصل ، ليتم تفعيل خيار تمت الاجابة :
 
الاجابة :
1- تختار كل المحتوي ctr+a
2- تضغط ctr+shift+F9
فتبقي جميع النصوص دون الروابط ،  وكانك عملت لصق قيم Paste Value فى الاكسيل
 
و بالطبع يمكن اختيار منطقة محددة بدلا من كل الملف

تقف بالماوس بعد العلامة السوداء مباشرة
ثم تتحرك بالماوس يسارً فى اتجاه السواد
فتفاجأ بتغير السواد الي اللون الرصاصي  مع التعجب الشديد !
ثم تضغط 
CTR+Shift+S
لتستدعي أمر
Apply Styles

 و تضغط 
Reapply
فتحل  المشكلة فى كامل ترقيم الملف !!!
و نقول الحمد لله 😄
 
المصدر

الحل الأول : 
الاول اختيار النص المطلوب تحديث الاشارات به ،و ليكن صفحة او فصل او فقرة
او حتى المستند ككل من خلال Ctr+A و ان كان ذلك قد يكون اجراء بطيئ فى حال المستندات الكبيرة ،
ثم
اضغط F9 فيتم تحديث الحقول ( الاشارة ضمن سياق الكلام) فى النطاق المختار دفعة واحدة
 
الحل الثاني :
و هو هام  جدا ايضا ، و هو التأكد من التحديث قبل الطباعة و هذا من خلال
File
Options
Display
Printing Options
Update Fields before printing
و هذا الخيار غير مفعل بصورة نمطية و يجب تفعيله بصورة يدوية

 

هذه بعض المواضيع السابقة فى هذا الشأن
 
كودتفقيط وورد كيفية إضافة كود التفقيط المرفق ليصبح صالحاً للإستخدام في ملف وورد 2007 أرجو مساعدتي في انشاء كود رجو المساعدة عمل ماكروتفقيط  هل يمكن عمل كودتفقيطفى الوورد كما فى الاكسيل تفقيطالارقام فى الوورد تفقيطسلس وسريع في وورد دالة التفقيط العربي الصحيحة
https://www.officena.net/team/mas/tafkeet/  
 

و قد اضفت التطوير التالي للكود ليتيح اضافة اقواس لكافة الارقام الموجودة فى المنطقة المختارة
اختار المنطقة أولا يم شغل الكود فيتم اضافة اقواس لكاقة الارقام ضمن المنطقة المظللة (المختارة)
Sub AddParens2Numbers() If Len(Selection.Range) > 0 Then For i = 1 To Selection.Words.Count With Selection.Words(i) If IsNumeric(.Text) Then .Text = "(" & Trim(.Text) & ") " i = i + 1 End If End With Next i Else MsgBox "لم تقم باختيار العبارات المطلوب التعديل عليها " End If End Sub  

تم تحميل الإضافة برجاء التجربة 😆

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

الخلية التي قمت باختيارها كمعيار يظهر بها January-2018 لأربعة قيم
و لكنها فى الحقيقة قيمتان للأول من يناير و هما التي يتعرف عليها المعادلة 
اما الخامس و السادس فلا تحتسب لانها قيم مختلفة و ان ظهرت بنفس التنسيق
احد الحلول هو حساب الشهر و السنة كما فى المرفق
 
سجل أداء.zip

لا يمكن بطريقة افتراضية
يمكن عن طريق الكود
هذا الكود يقوم بالارسال مباشرة اذا كان المرسل هو admin@officena.net
 و بعطيك رسالة تحذير اذا كان الارسال من حساب اخر ، و يمكنك الالغاء
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If Not LCase(Item.SendUsingAccount) = "admin@officena.net" Then Prompt$ = "You are sending this From " & Item.SendUsingAccount & ". Are you sure you want to send the Mail?" If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then Cancel = True End If End If End Sub  و يجب اضافة الكود فى Thisoutlooksession
اضغط
ALT+F11
ثم انقرنقر مزدوج علي
Thisoutlooksession
 و الصق الكود ، و قم بتغيير البريد المرتبط يالحساب
 

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

ثم اضغط مسافة ستطهر الاشارة التالية

اضعط ادخال

 

السلام عليكم
في الاصدارات الحديثة من الوورد ، تكون هذه الخاصية موجودة تلقائياً
لاحظ الصور المرفقة
 
من ناحية اخري  يمكنك ايضا الانتقال الي مكان اخر تعديل قمت به بضغط
Shift+F5
 
كما يوجد خاصية يمكن برمجتها و لكني جربتها مع اوفيس 2016 و لم تعمل معي جيدا
Private Sub Document_Open() Application.GoBack End Sub  
 

السلام عليكم
ما ان تفتح البرامج ستجد فى الشاشة الافتتاجية عدد كبير من الامثلة الكاملة

File
options
Trust center
programmatic access
ثم هناك خياران
Antivirus status و تتبع الخيارات
Never warn me و طبعا هذا خيار غير محبذ حيث سيوفف جميع التنبيهات و التي يمكن ان تكون مفيدة حال وجود فيروس يرسل بريد من جهازك
المصدر

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

غالبا ما يحل هذه المشكلة إضافة الشخص الى ال Contact

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

فهرس تسجيلات الدورة
http://www.officena.net/ib/index.php?showtopic=55853

فهرس الحقات السابقة
http://www.officena.net/ib/index.php?showtopic=55853

فهرس الحقات السابقة
http://www.officena.net/ib/index.php?showtopic=55853

جرب البحث التفصيلي الوارد فى 
More Tools
 
 

 

من بريد الجي ميل نفسه على الويب
اضغط علامة الترس  التي بها قائمة منسدلة ، ثم
Setting
ثم من القوائم العرضية اختار
forwardnig and pop / imap
و تاكد من التفعيل لل 
pop
ثم اختار 
configurstion instructions
للاوتلوك فى نهاية خيار ال 
pop
 و التي توصل الي التفاصيل التالية ، و عليك اتباعها
https://support.google.com/mail/answer/7104828?hl=en&visit_id=1-636274382355152313-3169470171&rd=1