شحادة بشير
-
Posts
798 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو شحادة بشير
-
ما المشكلة التي واجهتك أثناء التنصيب؟
-
في هذا الفيديو ستجد كل التفاصيل: يمكنك التواصل معي عبر موقع خمسات قبل الشراء
-
أكرمك الله أخي الكريم نعم يوجد خصم لأعضاء هذا المنتدى، ومن يحتاجها ولا يملك ثمنها فأنا مستعد لتقديمها له مجاناً
-
[الجديد في التحديث 6.80]: 1- من الآن فصاعداً، عند إصدار تحديث جديد للبرنامج، سيقوم البرنامج مباشرة بتحميل التحديث من رابط مباشر، ولن ينقلك لموقعي كي تقوم بتحميل التحديث منه. 2- في قائمة الشعر العربي، تم إضافة خاصية جديدة (الأبيات الشعرية المكررة)، والتي تستطيع من خلالها تمييز الأبيات الشعرية المكررة ضمن المستند، سواء كان التكرار على مستوى الشطر الأول أو الشطر الثاني أو أحد الشطرين أو كلا الشطرين. 3- في قائمة الشعر العربي، تم إضافة خاصية جديدة (الأبيات الشعرية الناقصة)، والتي تُمكِّنك من تمييز الأبيات الشعرية التي لم يتم كتابة أحد شطريها، وهذا مفيد لمن يعملون في مجال التحقيق. 4- تم مراجعة كل العمليات المرتبطة بالأقواس، وخاصة ما يتعلق بعلامتي التنصيص، وأصبح بالإمكان إجراء العمليات جميعها على علامتي التنصيص من حيث: التحديد، والتلوين، والحذف، والتغيير، والفهرسة، إلخ.. وذلك في جميع خدمات إضافة البيان البحثية. 5- في خدمة ما بين قوسين، تم إضافة خاصية جديدة (معرفة الأقواس الناقصة)، مثلاً: تمكنك هذه الخاصية من تمييز النصوص التي نسيت أن تضع بدايتها أو نهايتها علامة تنصيص، وذلك إذا كان يوجد في أحد طرفي النص علامة تنصيص ولا يوجد في الطرف الآخر، وهي خاصية مهمة جداً جداً؛ لأن مثل هذا الخطأ سيؤدي إلى خطأ في جميع العمليات على علامتي التنصيص كالفهرسة وغيرها؛ لذا ينصح باستخدام هذه الخاصية للتأكد من سلامة علامات التنصيص ضمن المستند قبل عمل فهرسة للنصوص الموجودة ضمن علامتي تنصيص، أو قبل إجراء غير ذلك من العمليات على النصوص الموجودة ضمن علامتي تنصيص، كذلك يمكنك تطبيق هذه الخاصية على الأقواس الأخرى التي يوفرها البرنامج.
-
-
-
-
-
[الجديد في التحديث 6.70]: 1- سلوك مربعات النصوص في إضافة البيان البحثية أصبح كالتالي: النقرة الواحدة ضمن المربع تنقل المؤشر إلى مكان النقر؛ النقرتان ضمن المربع تحدد الكلمة، الثلاث نقرات ضمن المربع تحدد محتويات مربع النص كاملة. 2- في قائمة إزالة، تم إضافة خاصية (إزالة الفقرات المتشابهة)، ومن خلالها تستطيع إزالة الفقرات المتشابهة أو تحديدها، مع إمكانية إجراء العملية على الفقرات المتشابهة المتتالية فقط، وإجراء العملية على الفقرات المتشابهة المتتالية وغير المتتالية. 3- في قائمة إزالة، تم إضافة خاصية جديدة (إزالة حماية مشروع VBA) والتي تتمكن من خلالها من إزالة حماية مشروع VBA والاطلاع على أكواد المستند وكافة الوحدات النمطية والنماذج. 4- في خدمة الأنماط المستخدمة في المستند الحالي، تم إضافة خاصية (نسخ الأنماط من مستند إلى مستند آخر)، والتي تفتح لك نافذة (تنظيم) التي تتمكن من خلالها من نسخ نمط ما أو عدة أنماط من مستند أو من قالب لمستند آخر أو قالب آخر. 5- في الترقيم التلقائي، تم تحديث خاصية (حل مشكلة الترقيم المعكوس في القوائم متعددة المستويات) وجعلها بطريقة أسهل من ذي قبل. 6- في الفقرات والأنماط، تم إلغاء خاصية (تمييز الفقرات المكررة والمتشابهة)؛ لأنها أصبحت ضمن خدمة (إزالة الفقرات المتشابهة) في قائمة (إزالة). لتثبيت التحديث، قم بإزالة مجلد Albayan من القرص C ثم ضع مجلد Albayan الموجود في التحديث الجديد في القرص C، وبعد ذلك تثبت الإضافة من خلال ملف setup الموجود ضمن المجلد app.publish.
-
[الجديد في التحديث 6.60]: 1- في خدمة ما بين قوسين، تم إضافة خاصية جديدة لتمييز الكلمات الموجودة ضمن قوسين بلون ما. 2- في خدمة ما بين قوسين، تم إضافة خاصية جديدة لإضافة قوسين للتحديد الحالي. 3- في خدمة الخطوط المستخدمة في المستند الحالي، تم إضافة خاصية (نسخ أسماء الخطوط الموجودة في مربع السرد)، والتي تمكنك من نسخ أسماء الخطوط المستخدمة ضمن المستند الحالي ومن ثم لصقها في أي مستند نصي. 4- في خدمة الخطوط المستخدمة في المستند الحالي، تم إضافة خاصية (نسخ ملفات الخطوط المستخدمة إلى مجلد جديد)، والتي تمكنك من نسخ ملفات الخطوط المستخدمة ضمن المستند الحالي جميعها دفعة واحدة إلى مجلد تختاره؛ لتتمكن بعد ذلك من إرسالها لأي شخص يريد استخدام المستند ولا يمتلك الخطوط الخاصة به. 5- في خدمة الأنماط المستخدمة في المستند الحالي، تم إضافة خاصية (نسخ أسماء الأنماط الموجودة في مربع السرد)، والتي تمكنك من نسخ أسماء الأنماط المستخدمة ضمن المستند الحالي ومن ثم لصقها في أي مستند نصي.
-
لحذف الفقرات المتشابهة سواء كانت متتالية أو غير متتالية، تفضل هذا الكود: Sub DeleteDuplicates() Dim aRng As Range, aPara As Paragraph, sText As String Set aPara = ActiveDocument.Paragraphs.First Do While aPara.Range.End <> ActiveDocument.Range.End If Len(aPara.Range.Text) > 1 Then sText = aPara.Range.Text Debug.Print sText Set aRng = ActiveDocument.Range aRng.Start = aPara.Range.End With aRng.Find .ClearFormatting .Replacement.ClearFormatting .Text = sText .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With End If Set aPara = aPara.Next Loop End Sub وهذا الكود كذلك يقوم بالمهمة السابقة نفسها: Sub DeleteDuplicateParagraphs() Dim p1 As Paragraph Dim p2 As Paragraph Dim DupCount As Long DupCount = 0 For Each p1 In ActiveDocument.Paragraphs If p1.Range.Text <> vbCr Then 'تجاهل الفقرات الفارغة For Each p2 In ActiveDocument.Paragraphs If p1.Range.Text = p2.Range.Text Then DupCount = DupCount + 1 If p1.Range.Text = p2.Range.Text And DupCount > 1 Then p2.Range.Delete End If Next p2 End If 'إعادة تعيين عداد مكرر DupCount = 0 Next p1 End Sub أما لحذف الفقرات المتشابهة المتتالية فيمكنك من خلال بحث واستبدال مع تفعيل خيار (باستخدام أحرف البدل): في خانة البحث اكتب: (*^13)\1 وفي خانة الاستبدال اكتب: \1 أو يمكنك تنفيذ ذلك من خلال الماكرو التالي: Sub DeleteDuplicatesParagraph() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(*^13)\1" .Replacement.Text = "\1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub بالتوفيق أخي العزيز 🙂
-
ماكرو حذف الفقرات الفارغة: Sub DeleteParagraphsEmpty() For Each tempParagraphs In ActiveDocument.Paragraphs If Len(tempParagraphs.Range.Text) = 1 Then tempParagraphs.Range.Delete End If Next End Sub وهذا الماكرو يقوم بتحديد الفقرات المتشابهة بلون مختلف؛ لتقوم بعد ذلك بالنظر إليها وحذفها: Sub HighlightParagraphs() Dim I, J As Long Dim xRngFind, xRng As Range Options.DefaultHighlightColorIndex = wdYellow With ActiveDocument For I = 1 To .Paragraphs.Count - 1 Set xRngFind = .Paragraphs(I).Range If xRngFind.HighlightColorIndex <> wdYellow Then For J = I + 1 To .Paragraphs.Count Set xRng = .Paragraphs(J).Range If xRngFind.Text = xRng.Text Then xRngFind.HighlightColorIndex = wdBrightGreen xRng.HighlightColorIndex = wdYellow End If Next End If Next End With End Sub لا تنسانا من دعواتك
-
وعليكم السلام ورحمة الله وبركاته هل تقصد بالأسطر الفقرات؟ أي هل تريد حذف الفقرات الفارغة؟ وكذلك حذف الفقرات المتشابهة؟
-
[الجديد في التحديث 6.50]: 1- في الفقرات والأنماط، تم تسريع عملية الاستعراض بشكل كبير جداً في خاصية (الأنماط المستخدمة ضمن المستند الحالي) وخاصية (الخطوط المستخدمة ضمن المستند الحالي). 2- في قائمة جداول، تم إضافة خاصية جديدة (إضافة نص مخصص أو علامة بداية ونهاية نص عمود في جدول) تُمكِّنك من إضافة علامة أو نص بداية ونهاية كل نص من نصوص عمود في جدول، كإضافة أقواس لنصوص فهرس الأحاديث، وغير ذلك. 3- في الترقيم التلقائي، تم إضافة خاصية جديدة (حل مشكلة الترقيم المعكوس في القوائم متعددة المستويات) والتي تساعد في حل مشكلة ظهور الترقيمات المتعددة بشكل معكوس في البحوث العربية.
-
[الجديد في التحديث 6.40]: 1- في قائمة إزالة، تم إضافة خاصية جديدة (إزالة علامة الجدولة). 2- في قائمة إزالة، تم إضافة خاصية جديدة (إزالة علامات الترقيم) والتي تُمكِّنك من إزالة أو تحديد علامات الترقيم التي ترغب بها. 3- في قائمة إزالة، تم إضافة خاصية جديدة (إزالة حماية المستند المحمي من التعديل) والتي تتمكن من خلالها من إزالة حماية أي مستند محمي من التعديل. 4- في قائمة جداول، تم إضافة خاصية جديدة (اختصار عدد كلمات نص عمود في جدول) تمكنك من اختصار عدد كلمات نص عمود ما في جدول إلى الرقم الذي تريده، كاختصار عدد كلمات الآيات في فهرس الآيات، أو اختصار عدد كلمات الأحاديث والآثار في فهرس الأحاديث وفهرس الآثار، وغير ذلك. 5- في خاصية (بحث في ملفات متعددة) أصبح بالإمكان البحث عن عدة عبارات تتضمنها الفقرة، أو البحث عن عبارة واحدة فقط ضمن الفقرة.
-
السلام عليكم ورحمة الله وبركاته أنصحك بالعمل على خمسات: https://khamsat.com/?r=439506 أسأل الله تعالى لك التوفيق 🙂
-
الحل السريع وضع كود تجاوز الأخطاء أولاً: On Error Resume Next بحيث يصبح الكود في النهاية هكذا: Sub MergeCell() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table If ActiveDocument.Tables.Count > 0 Then For Each Tbl In ActiveDocument.Tables For i = 1 To Tbl.Rows.Count If Len(Tbl.Cell(i, 3).Range.Text) < 3 Then 'إذا كان طول الخلية أقل من 3 محارف فهذا يعني أنها فارغة 'ضبط الحقل تباعد صغير Tbl.Cell(i, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphJustifyLow 'بدء عملية الدمج Set Rng = Tbl.Cell(i, 2).Range Rng.End = Tbl.Cell(i, 3).Range.End Rng.Cells.Merge End If Next Next MsgBox ("تمت عملية فحص خلايا عمود العمل الفارغة وإجراء ما يلزم من الدمج") Else MsgBox ("لا يوجد ضمن المستند الحالي أي جدول") End If End Sub -
قمت بإضافة السطر التالي المتعلق بضبط الحقل تباعد صغير: Tbl.Cell(i, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphJustifyLow وهذا هو الكود كاملاً: Sub MergeCell() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table If ActiveDocument.Tables.Count > 0 Then For Each Tbl In ActiveDocument.Tables For i = 1 To Tbl.Rows.Count If Len(Tbl.Cell(i, 3).Range.Text) < 3 Then 'إذا كان طول الخلية أقل من 3 محارف فهذا يعني أنها فارغة 'ضبط الحقل تباعد صغير Tbl.Cell(i, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphJustifyLow 'بدء عملية الدمج Set Rng = Tbl.Cell(i, 2).Range Rng.End = Tbl.Cell(i, 3).Range.End Rng.Cells.Merge End If Next Next MsgBox ("تمت عملية فحص خلايا عمود العمل الفارغة وإجراء ما يلزم من الدمج") Else MsgBox ("لا يوجد ضمن المستند الحالي أي جدول") End If End Sub لا تنساني من دعواتك الطيبة المباركة
-
-
وعليكم السلام ورحمة الله وبركاته آمين وإياكم أولاً: ما كرو حذف الترويسة من الجدول: Sub DeleteHeader() Dim Tbl As Table If ActiveDocument.Tables.Count > 0 Then For Each Tbl In ActiveDocument.Tables Tbl.Rows(1).Delete Next MsgBox ("تمت عملية حذف ترويسة الجدول لكل الجداول في المستند الحالي") Else MsgBox ("لا يوجد ضمن المستند الحالي أي جدول") End If End Sub ثانياً: ماكرو فحص خانة العمل الفارغة ودمجها بخانة الاسم: Sub MergeCell() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table If ActiveDocument.Tables.Count > 0 Then For Each Tbl In ActiveDocument.Tables For i = 1 To Tbl.Rows.Count If Len(Tbl.Cell(i, 3).Range.Text) < 3 Then 'إذا كان طول الخلية أقل من 3 محارف فهذا يعني أنها فارغة 'بدء عملية الدمج Set Rng = Tbl.Cell(i, 2).Range Rng.End = Tbl.Cell(i, 3).Range.End Rng.Cells.Merge End If Next Next MsgBox ("تمت عملية فحص خلايا عمود العمل الفارغة وإجراء ما يلزم من الدمج") Else MsgBox ("لا يوجد ضمن المستند الحالي أي جدول") End If End Sub
-
ربنا يسلمك ويعافيك لم أجد إجابة مقنعة، رغم أنني ناقشت في هذا الأمر عمالقة الوورد المشكلة من مايكروسوفت ولا علاقة لها بنسخة الأوفيس، وهي تحدث مهما كانت قدرات جهاز الحاسب عالية الحل الأمثل تحويل الحواشي إلى (مستمر)، ثم عند الانتهاء من العمل على الملف تقوم بإعادة ترقيم الحواشي إلى (إعادة ترقيم كل صفحة)
-
عاوز اخلى الكلمات على السطر زى الصورة دى
شحادة بشير replied to إبراهيم العبادى's topic in منتدي الوورد Word
جزاك الله خيراً على الخطوط التعليمية النافعة -
السلام عليكم ورحمة الله وبركاته إذا كان الملف يحوي الكثير من الحواشي، فاجعل (ترقيم) الحواشي (مستمر) وليس (إعادة ترقيم كل صفحة) إذا كان غير ذلك يرجى إرفاق الملف للاطلاع عليه
