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

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

السلام عليكم
الطريقة لعمل ذلك هي كتابة او تسجيل ماكرو
و الاسهل طبعا التسجيل ، فقط بتسجيل ماكرو و قم بتنفيذ اوامر الطباعة كما تريدها، ثم اوقف التسجيل 
و بعد ذلك يمكنك تشغيل الماكرو لاعاد تنفيذ الأمر
و للتسجيل اذهب الي قائمة المطور Developer
 

و اذا تقصد اسم الدخول user name
راجع هذا الرابط ، به شرح لتغيير اسم الدخول و الاسم الحقيقي
 
أسماء الدخول ، و الأسماء الحقيقة للأعضاء
 

السلام عليكم
أهلا بك أخي الكريم
يمكنك ايضا نشر الفيديوهات التعليمية فى جروب الفيس بوك
https://www.facebook.com/groups/officena/
 

السلام عليكم
بمراجعة ملف الاكسيل المشار اليه، وجدت به دالة جاهزة اسمها StrReverse تقوم بعكس النص باستخدام VBA ، وهي كافية لاداء المطلوب و تعمل ايضا فى الوورد
الدالة من موقع ميكروسوفت
 و عليه قمت بتطبيقها فى الوورد ، و عملت معي جداً
فقط قبل تشغيل الكود قم باختيار النص المطلوب عكسه، حيث يعمل الكود الذى أعددته على النص المختار فقط
Sub reversit() Selection.Text = StrReverse(Selection.Text) End Sub مرفق الملف
 
Word-Reverse.docm

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

السلام عليكم
تم نشر موضوع للتنبيه مرة أخرى، و سيتم تعميمه بالبريد باذن الله
 

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

جرب استخدم أداة
Disk cleanupd
جرب أيضا. افراغ الكاش
و قد يكون هناك خطأ في البرمجة لدي لحفظ قيم كثيرة في الذاكرة RAM  وبالتالي استهلاكها

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

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

 
ايضا راجع هذا الموضوع
 

راجع هذا الرابط ، به شرح تفصيلي ب 8 طرق لازالة اوفيس 2010
و الطريقة الاولى هى الاعم
 

السلام عليكم
 
استخدم الكود التالي: مع تغيير المسار الذي تريده من D:\  الي اي مجلد تريده
المصدر :  من هنـــا 
و مرفق الملف للتجربة ، هذا الملف يقوم بعد صفحات ملفات الpdf الموجودة فى المسار D:\  و تسجيلها فى ورقة العمل الاولى
جرب و اخبرنا
Sub Test() Dim MyPath As String, MyFile As String Dim i As Long MyPath = "d:\" MyFile = Dir(MyPath & Application.PathSeparator & "*.pdf", vbDirectory) Range("A:B").ClearContents Range("A1") = "File Name": Range("B1") = "Pages" Range("A1:B1").Font.Bold = True i = 1 Do While MyFile <> "" i = i + 1 Cells(i, 1) = MyFile Cells(i, 2) = GetPageNum(MyPath & Application.PathSeparator & MyFile) MyFile = Dir Loop Columns("A:B").AutoFit MsgBox "Total of " & i - 1 & " PDF files have been found" & vbCrLf _ & " File names and corresponding count of pages have been written on " _ & ActiveSheet.Name, vbInformation, "Report..." End Sub ' Function GetPageNum(PDF_File As String) 'Haluk 19/10/2008 Dim FileNum As Long Dim strRetVal As String Dim RegExp Set RegExp = CreateObject("VBscript.RegExp") RegExp.Global = True RegExp.Pattern = "/Type\s*/Page[^s]" FileNum = FreeFile Open PDF_File For Binary As #FileNum strRetVal = Space(LOF(FileNum)) Get #FileNum, , strRetVal Close #FileNum GetPageNum = RegExp.Execute(strRetVal).Count End Function  
 
GETPDF_pageno.xlsm

السلام عليكم
ارسلت لك رسالة على الخاص

السلام عليكم
تم  حل الموضوع بعد التاكد من ملكية الحساب عن طريق البريد الإلكتروني
مع الشكر و التقدير
 

اذا كان التاريخ المطلوب تحديد الاحد السابق و التالي له موجود  فى الخلية D3 كما فى المثال المرفق ( الخلايا باللون الاصفر)
 معادلة الاحد السابق تكون:
=IF(D3="","",D3-MOD(D3-1,7)) و معادلة الأحد التالي تكون:
=IF(D3="","",D3+7-MOD(D3-1,7)) و طبعا يمكن تغيير المعادلة لترجع اي يوم اخر 

مرفق المثال للسهولة
Officena Sundays.xlsx

المرحلة الاولي:
اضغط زر ويندوز + r
اكتب  appwiz.cpl  ثم اضعط Enter
 اختار 
Intel Optane Pinning Explorer Extensions.
ثم اختار 
Repair
 
المرحلة الثانية
اضغط زر ويندوز + X
ثم اختار Device Manager
ثم اختار  Intel® Pinning Shell Extensions
ثم اختار  Software components
ثم Uninstall Device
 
 
 

السلام عليكم
قد تتعدد الاسباب ، و قد يكون الحل فى تحديث  محرك الطابعة فى كثير من الاحيان
هذا المقال من موقع مايكروسوفت ، يوضح كيفية تحديد السبب و التعامل مع مثل هذه المشكلة
https://docs.microsoft.com/en-us/office/troubleshoot/word/print-failures-in-word
 

من كل تطبيق مثل الوورد مثلا
يمكنك معرفة مكان الملفات من 
File
options
save
auto-recover file location
 و الذهاب للمجلد و حذف الملفات 

هذا يتوقف على الامر  هل ينفذ على الكلمة او الحرف او السطر ، فلكل منها طريقة تكرار للتنفيذ
و فى كل الاحوال يتم عمل loop لتكرار التنفيذ او استخدام امر مثل Find لتنفيذ الاستبدال للمجموعة المختارة
بعض الامثلة
 
للكلمات
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 او
For Each R_o_w In ActiveDocument.Words R_o_w.Select If Len(Selection) = 0 Then R_o_w.Delete Unit:=wdCharacter, Count:=1 Next استخدام Find
With Selection.Find .Text = "^p" .Replacement.Text = "، " End With Selection.Find.Execute Replace:=wdReplaceAll  

السلام عليكم
بعد اذن الاخ تومي 
فعلا الامر غير متاح كاملا بصورة مباشرة و لكن يمكن عمل بعض التحايل
 
ما فهمته ان السؤال يتضمن شقين
1- ان تكون الخلايا غير قابلة للاتساع 
2- تحديد الحروف لكل خلية 
 
 الجزء الاول : من خصائص الجدول اختار الصفوف ثم حدد الارتفاع بعد اختيار Exactly من خصائص الجدول بعد اختياره
مع ملاحظة ان ذلك لن يمنع اضافة نصوص بحجم اكبر من ارتفاع الخلية و انما هو تحديد شكلي فقط

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

و ادرج مربع النصوص هذا  فى الخلية المراد تحديد عدد حروفها
ثم اختار خصائص مريع النص  ثم حدد الحد الاقصي فى الخصائص فى عند Max_Length ضع الحد المطلوب و ليكن 5 حروف

ويمكن ايضا التحكم بالارتفاع و العرض و هل يتسع تلقائيا ام لا 
ثم بعد ذلك الغي تفعيل وضع التصميم

 
و لن يقبل صندوق النص نصوصا اطول مما حددت

مرفق الملف للتجربة
تأكد من أن الشيت المسمي list Sheet هو اخر ورقة عمل فى الملف
تأكد من تفعيل الخلية الصفراء او اية خلية اخرى ترغب بها كهدف للناتج قبل تشغيل الكود
 
 
Get_FromAll_Sheets.xlsm

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

الملحوظة الأولي : تطبيق التلوين على المعادلات ايضا و ليس النصوص فقط
ربما لا يمكن عمل ذلك ، و اتمني أن يجد الأخوة حل لهذا الأمر
 
الملحوظة الثانية : تطبيق التلوين على ما يكتب من النصوص و ليس فقط عند تعديل الخلية C1
جرب التعديل البسيط التالي لكود الأخ وجيه
Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As Integer If IsEmpty(Range("c1")) Then Exit Sub lr = Range("b" & Rows.Count).End(xlUp).Row Range("b4:b" & lr).Font.ColorIndex = xlAutomatic For Each c In Range("b4:b" & lr) For i = 1 To lr If Mid(c.Value, i, Len(Range("c1"))) = Range("c1").Value Then c.Characters(i, Len(Range("c1"))).Font.Color = vbRed End If Next Next End Sub  

كل عام و أنتم بخير جميعا 😄