ـ[أبو أيوب السليمان]ــــــــ[31 - 05 - 08, 04:29 ص]ـ
وجزاكم الله خيرا وبارك فيكم
الآن أخي فهمتُ
ولا علم لي بهذه المسألة جزاك الله خيرا
لكن أخي لو هناك فواصل صفحات بين الصفحات في الوورد فيمكن لك استخدام خاصة الاستبدال باستبدال (فاصل صفحات يدوي) بنفس القيمة مع حرف لاتيني مثلا وبعدها تقوم باستبدال الحرف اللاتيني بما تشاء.
لكن هذه العملية ستصلح معك أخي في أماكن فواصل الصفحات الموجودة في الوورد أما ما زاد على هذا فلا علم لي.
وجزى الله خيرا من أفادك وأفاد الجميع في هذه المسألة.
يسر الله أمرك أخي وبارك فيكم
بارك الله فيك أخي الفاضل، وأسأل الله جل وعلا أن يجزيك الحسنى جزاء تفاعلك مع أخيك
السلام عليكم ورحمة الله وبركاته
أخي الحبيب الغالي "أبو أيوب السليمان":
ذلك ممكن ولكن برمجياً عن طريق كود نضيفه لبرنامج الوورد وقد قمت ببرمجته لك
نفرض أن لدينا 7 صفحات نريد أن نضع في بداية كل صفحة الإشارة @
نقوم بكتابة الكود البرمجي التالي في محرر بيسك التابع للوورد:
Sub aboakram()
Dim I
For I = 1 To 7
Selection.TypeText Text:="@"
Application.Browser.Next
Next
MsgBox " بحمد الله تم إضافة الإشارة رأس كل صفحة", , "انتهت العملية"
End Sub
هذا الكود عبارة عن حلقة ستنفذ في المستند
الرقم 7 هو العدد الكلي للصفحات وبإمكانك تغييره إلى أي رقم؛ مثلاً 100، 500، 1000 حسب عدد صفحات مستندك
الإشارة @ الموجودة بين علامتي التنصيص أيضاً بإمكانك تغييرها إلى أي إشارة أخرى ترغب بها؛ مثلاً: #، $، &
لقد أرفقت لك مثالاً:
افتح الملف المرفق وضع السهم الوامض قبل كلمة "بسم" أي في البداية
في شريط القوائم ستجد أنني أضفت لك قائمة جديدة باسم "أبو أيوب السليمان"
اضغط عليها ..
تهانينا تم إضافة الإشارة @ رأس كل صفحة
أتمنى أن يكون هذا هو طلبك أخي العزيز
وإن كان هذا ما تقصده فأنا على استعداد لتقديم شرح فلاشي لكيفية إضافة القائمة الجديدة والكود البرمجي
وعليكم السلام ورحمة الله وبركاته
حيهلا بالعزيز الغالي أبا أكرم
وأسأل الله جل وعلا أن يرزقنا وإياك النظر إلى وجهه إنه جواد كريم
ما قدمته لي هو عين ما أردت، والماكرو يعمل معي بشكل رائع والحمد لله
وحبذا لو قدمت شرحا مصورا أو فلاشيا للإخوة إن كان لا يشق عليك
ـ[أبو أكرم الحلبي]ــــــــ[31 - 05 - 08, 05:24 ص]ـ
السلام عليكم ورحمة الله وبركاته
أخي الحبيب أبو أيوب السليمان
قمت بتعديل البرنامج بإضافة نموذج مميز جداً سيسهل الأمور عليك كثيراً
الآن لن تدخل للماكرو
اضغط على قائمة "أبو أيوب السليمان"
سيخرج لك فورم
في المربع الأول تضع عدد صفحات مستندك
في المربع الثاني تضع الإشارة التي تريدها (إشارة أو كلمة)
إن شاء الله سيكون البرنامج خالياً من الأخطاء وسينبهك عليها
في حال ما لو أدخلت نصاً بدل الأرقام أو خلطت بينهما أو تركت أحد المربعات فارغاً جرب كل ذلك
إن اعتمدت هذا النموذج فأخبرني حتى أقوم بوضع شرح فلاشي لك عليه بدلاً من السابق
حياك الله غالي والطلب رخيص
ـ[أبو أكرم الحلبي]ــــــــ[31 - 05 - 08, 06:40 ص]ـ
في المرفق البرنامج مع شرح الكود
للاطّلاع على شرح الكود
من أدوات نختار ماكرو=====محرر فيجوال بيسك=== UserForm1=====Forms
سترى الفورم اضغط زر موافق بشكل مزدوج لتدخل وتشاهد الكود وشرحه
Private Sub CommandButton1_Click()
' تعريف متغير عدد الصفحات من 1 إلى الآخر
Dim I
' ليتوجه السهم للسطر الأول من الصفحة الأولى
Selection.HomeKey Unit:=wdStory
' إذا كانت قيمة المربع الأول أو الثاني فارغة فستخرج رسالة التنبيه
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox " قم بتعبئة البيانات لو تكرمت", vbExclamation, " تنبيه"
Else
' إذا كانت قيمة مربع عدد الصفحات تحوي نصاً أو أحرفاً فسيتم التنبيه
If IsNumeric(TextBox1.Text) = False Then
MsgBox " عدد الصفحات يجب أن يكون رقماً وليس نصاً", vbExclamation, " تنبيه"
Else
' حلقة من أول المستند إلى آخره من أجل وضع الإشارة المرجعية
For I = 1 To TextBox1.Text
Selection.TypeText Text:=TextBox2.Text
Application.Browser.Next
Next
' تنبيه انتهاء وضع الإشارات
MsgBox " بحمد الله تم إضافة الإشارة بداية كل صفحة", , "انتهت العملية"
'الخروج من الفورم آلياً
UserForm1.Hide
End If
End If
End Sub
ملاحظة: لست بحاجة بعد التعديل الأخير أن تضع السهم عند بداية الصفحة الأولى
لأن البرنامج بعد هذا التعديل الموجود بالمرفق سيقوم بذلك آلياً حتى ولو كنت آخر المستند
أي استفسار من عيوني
ـ[أبو أكرم الحلبي]ــــــــ[31 - 05 - 08, 05:30 م]ـ
بناءً على طلب أحد الأخوة قمت بإضافة الفورم في الأيقونة وربطه بالمستند الحالي
حتى يعمل الملف بشكل جيد:
من أدوات نحتار ماكرو---أمان--نضبط مستوى الأمان عند منخفض ومن ثم موافق
الآن سترى أيقونة إضافية في شريط القوائم
والباقي تم شرحه في المشاركة السابقة
¥