أحمد الحربي

أحبتي الكرام .. السلام عليكم أقدم لكم هذه الوصايا العشرين لإتقان ومحبة الوورد .. البرنامج الرائع بكل ما تحمله الكلمة من معنى .. هذه الوصايا ما هي إلا اجتهاد مني .. قد تروق للبعض وهناأطلب منه الدعاء في هذه العشر المباركة وقد يجد البعض فيها نقصاً وخللاُ وهنا أطلب إكمال النقص وإصلاح الخلل وقد عنيت بتوجيهها إلى من لديه معرفة متوسطة ومتقدمة بهذا البرنامج .. =======((((((((( الوصايا العشرون )))))))))))========== أولاً وصية الوصايا .. *** ابدأ بـ بسم الله الرحمن الرحيم *** ثم : 1- اعتمد في كتابتك على لوحة المفاتيح أكثر ما تستطيع ولا تستخدم الماوس إلا في الضرورة القصوى . 2- استخدم الاختصارات الموجوة في الوورد ( نسخ ، لصق ، قص ، تراجع ، فتح مستند ، فتح مستند جديد ، بحث ، استبدال ... الخ ) 3- أنشأ بحوثك ومستنداتك المطولة على ( نمط ) تنشأه بنفسك ولا تعتمد على نمط Normal 4- اختصر عدة أوامر تقوم بعملها بأمر واحد عن طريق ( الماكرو ) .. مثلاً عمل حاشية منسقة لديها الأوامر التالية : أ- إدراج الحاشية ب- وضع قوسين حول رقم الحاشية في المتن ج- تنسيق رقم الحاشية مع القوسين على وضع ( مرتفع ) د- تنسيق ما بعد إغلاق قوس الحاشية إلى ( لا مرتفع ولا منخفض) هـ- وفي الحاشية تنسيق رقم الحاشية إلى ( لا مرتفع ولا منخفض) د- وضع شرطة أو قوس بعد رقم الحاشية و- وضع مسافة بعد الشرطة فهذه سبع خطوات ستأخذ منك وقتاً لا بأس به .. فتصور أنك ستدرج 500 حاشية .. إذن سيضيع وقت كثير أنت في أمس الحاجة إليه . 5- استخدم التصحيح التلقائي لكتابة سطر متكرر طلباً للسرعة وعدم الخطأ 6- اعتمد في تنسيقاتك آلية وورد وإياك أن يكون تنسيقك يدوياً .. مثلاً إزاحة السطر الأول إلى اليسار بمقدار 2سم فاجعل وورد يقوم بها من خلال (تنسيق > فقرة > خاص) ولا تقوم أنت بعملها يدوياً من خلال مفتاح Space أو Tab .. أو التباعد بين الفقرات 7- اعتمد قالباً معيناً لكتابة البحوث .. وآخر للخطابات .. وثالثاً للجداول 8- قبل كتابة البحث قم بتجهيز ما يلي :أ- أنماط ( الفقرات الرئيسية ، الفرعية ، الآيات ، الأحاديث ، المتن ، الحاشية ، تعداد رقمي .. الحاشية ).. مع استخدام اختصاراتها من لوحة المفاتيح . ب- الماكرو ( إدراج حاشية ، 2 ماكرو لفتح وإغلاق علامة اقتباس بحجم معين ) 9- اكتب البحث في طريقة عرض ( عادي ) لسلامة نظرك 10- استخدم ( دمج المراسلات ) لإنشاء آلاف النسخ من رسالة واحدة بضغطة زر واحدة .. دون أن تقوم بنسخ ولصق يتطلب منك العمل الشاق الكثير 11- عندما لا يستطيع وورد خدمتك عن طريق القوائم والواجهات الظاهرة .. قم بتطويعه عن طريق الكود ( تعلم لغة VB ولغة VBA ) 12- قبل عمل الفهارس خذ نسخة من المستند حتى لا تقع في مشاكل أنت في غنى عنها . 13- اعتمد النسخ اليدوي التلقائي من قبلك كل دقيقة بالاعتياد على الضغط على زري Ctrl+s .. دون أن تشعر بذلك 14- لا تحفظ المستندات في مجلد ( المستندات ) ( My documents) لتجنب فقدان عمل شهر كامل 15- قم بإلغاء التنسيق التلقائي الآلي في الوورد وكذلك تنسيق تلقائي أثناء الكتابة .. حتى لا يقوم وورد بعمل أي شيء إلا بإذنك 16- احم المستند بكلمة مرور للتعديل .. حتى لا يعبث به عابث .. فتندم 17- قبل أن تبدأ بكتابة البحث .. قف قليلاً مع صاحبه واطلب منه توضيح ما يريد مثلاً : أ- أحجام الخطوط وأنواعها . ب- الطباعة على وجه واحد للورقة أم على الوجهين ج- مقاس الورقة د- مقدار الهوامش ( يمين ، يسار ، أعلى ، أسفل ) هـ- ترويسات الصفحات 18- استخدم المقاطع لـ : أ- تنسيق المستند بشكل احترافي ب- التنويع في أحجام الصفحات ج- التنويع في اتجاه الصفحة ( عمودي ، أفقي ) د- التنويع في الترويسات هـ- التنويع في أرقام الصفحات ( أرقام ، حروف ... الخ ) و- إدخال صفحات بيضاء في ثنايا المستند ( بلا ترويسة وبلا أرقام كعناوين الفصول والأبواب ) . 19- أضف سمات جمالية مثلاً : أ- إسقاط الأحرف أو الكلمات الاستهلالية ب- رموز تعداد رقمي بأشكال جميلة معبرة ج- تظليل عناوين حقول الجداول د- تكبير أو تصغير بعض الجمل للفت الانتباه مثلاً تكبير ( لذا .. قلت .. والصحيح ) وتصغير ( رواه البخاري ومسلم ) هـ- اختيار خط مناسب يحدده موضوع العمل ( كالإعلانات .. البحوث .. الخطابات الرسمية ) 20- دع التنسيق النهائي ( الإخراج ) وليس الأولي في آخر شي وقبل الطباعة فقم بـ : أ- معاينة المستند من أوله إلى آخره . ب- استخدام التدقيق الإملائي للمساعدة في إيجاد الأخطاء . ج- أرقام الصفحات ( إذا كان في المستند أكثر من مقطع ) د- التدقيق في أوضاع الفواصل (،) فلا يمكن أن تكون في آخر السطر أو في أوله هـ- صحة أرقام الحواشي فلا يمكن أن يكون رقم الحاشية في صفحة والحاشية في صفحة أخرى . و- ملاحظة عدم الفصل بين بعض الكلمات فلا يمكن أن يكون اسم عبد الله ( عبد ) في أخر السطر و ( الله ) في أول السطر الثاني ز- الانتباه للتعداد الرقمي . ح- الانتباه لصحة الإسنادات الترافقية . ي- الانتباه لصحة أرقام الصفحات في الفهارس . (( آمل أن أكون قد وفقت فيما أردت .. والحمد لله أولاً وآخرا )) محبكم أحمد الحربي

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

هذا الكود يقوم بالمرور على جميع أرقام الحواشي في المستند ووضعها بين قوسين بتنسيق مرتفع للخط وتغيير لون خط رقم الحاشية إلى الأزرق .. Dim i As Integer Selection.HomeKey Unit:=wdStory For i = 1 To ActiveDocument.Footnotes.Count Selection.Find.ClearFormatting With Selection.Find .Text = "^f" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With With Selection .MoveLeft Unit:=wdCharacter, Count:=1 .Font.Superscript = True .Font.Subscript = False .TypeText Text:="(" .MoveRight Unit:=wdCharacter, Count:=1 .Font.Superscript = True .Font.Subscript = False .TypeText Text:=")" End With Selection.Find.Execute Selection.Font.Color = wdColorBlue Next

الأنماط تعريفها : هي القيام بتنسيقات عديدة على فقرة أو حروف ومن ثم تطبيقها على فقرة موجودة أو ستوجد فوائدها : 1- ضبط الفقرات أو الحروف المتبعة لنمط معين بشكل موحد . 2- سهولة التعديل على الفقرات أو الحروف بأسرع وأيسر ما يمكن . وهذا أهم شيء فيها أقسامها : تنقسم إلى قسمين : 1- نمط فقرة : ويعني تنسيق الفقرة كاملة 2- نمط حروف : ويعني تنسيق حروف أو كلمة أو جملة ضمن فقرة بتنسيق معين تختلف عن الفقرة كالآيات مثلاً النمط الافتراضي : هو Normal التنسيق المتاح : جميع أنواع التنسيق : 1- المسافات ( قبل الفقرة يميناً ـ بعد الفقرة يساراً ـ قبل الفقرة أعلى ـ بعد الفقرة أسفل ـ بين أسطر الفقرة ـ بين حروف الفقرة ). 2- الخط ( نوع الخط ـ الحجم ـ مرتفع ـ منخفض ـ ... الخ ) . 3- تعداد ( نقطي ـ رقمي) . 4- .... الخ من أنواع التنسيق مثال : أنماط في مستند واحد : نمط باسم ( عنوان_رئسي ) وفيه تنسيق العناوين الرئيسية : حجم الخط 20 .. بينها وبين الفقرة التي تليها 12 نقطة . إلى الوسط نمط باسم (عنوان_فرعي ) وفيه تنسيقها : إلى الجانب الأيمن خط 18 نمط باسم (المتن) وفيه التنسيق : سطر أول داخل بمقدار 2سم الطريقة : اختر من قائمة تنسيق > نمط فتظهر لوحة [ نمط ] ثم انقر زر { جديد} فتظهر لوحة [ نمط جديد ] الاسم : اختر اسماً للنمط نوع النمط : فقرة أو حروف .. وإذا اخترت حروف سيبهت حقل [ نمط الفقرة التالية ] استناداً إلى : أي يأخذ تنسيقه الأولي من أين نمط الفقرة التالية : وتعني حين تضغط مفتاح الإدخال [ Enter ] بعد أن تنهي كتابة فقرة هل سيكون نمط الفقرة الجديدة هو السابق أم نمط آخر اختر النمط الذي تريد وإذا أردت أن يكون نمط الفقرة التالية هو السابقة اختر نفس اسم النمط الذي تعده هذا . إضافة إلى القالب : لتكون متاحة في كل المستندات الجديدة غير هذا المستند علِّم عليها إذا أردت ذلك أو اتركها فارغة ليكون هذا النمط مختص بهذا المستند .. أو التنسيقات الجديدة لنمط سابق خاصة بهذا المستند . تحديث تلقائي : ويعني أنك حين تغير تنسيق النمط يدوياً هل سيسري مفعول التغيير اليدوي على النمط فيأخذ هذا التنسيق ويلغي التنسيق الآخر أم لا .. طبعاً اتركها فارغة للمحافظ على التنسيقات التي تريدها لهذا النمط أن تستمر معك . زر { تنسيق} : تقوم بالتنسيقات التي تريدها لهذا النمط كما تشاء زر { مفتاح اختصار } : ستضع تشكيلة مفاتيح في مستطيل { اضغط مفتاح اختصار جديد } وتعني وضع مفتاح اختصار مع Alt لوحده أو Ctrl لوحده أو معهما جميعاً مثلاً Ctrl+1 تعينه لنمط أو Alt+2 لنمط آخر أو ctrl+Alt+3 لنمط ثالث وبمجرد ضغطك على التشكيلة التي تختارها من المفاتيح سيتم تطبيق النمط على الفقرة أو على الحرف الجديد أو المنشأ من قبل . ملاحظة : انتبه لأسفل هذا المستطيل مباشرة [ معين حالياً إلى ] بعد أن تقوم بضغط المفاتيح التي تريدها لهذا النمط سيظهر عبارة معين حالياً إلى فإذا كان معيناً إلى نمط سيقوم بكتابة اسم النمط أسفل منه وإلا سيظهر لك عبارة [ غير معين ] وهذا يعني أن بإمكانك اختياره والموافقة عليه اضغط على زر { تعيين } للموافقة عليه .. مثال : جرب بضغط Ctrl+s سيخبرك أنه معين إلى { FileSave } أي معين إلى اختصار ماكرو حفظ { تشترك اختصارات الماكرو والأنماط } إذن لا تختاره امسح ما أدخلته في المستطيل عن طريق مفتاح BackSpace واختر تشكيلة أخرى . لتعديل تنسيق نمط : 1- اختر من قائمة تنسيق > نمط 2- اختر النمط الذي تريد تعديله ثم انقر زر { تعديل } وعدل في التنسيق كما تريد مثال لإظهار فائدة الأنماط : أنشئ نمطاً جديداً ونسقه كما تريد وفي الصفحة اكتب [ بسم الله الرحمن الرحيم ] ظللها واختر النمط الذي أنشأته قبل قليل انسخ الفقرة وألصقها 20 مرة أو أكثر بكثير أو أقل فلو أردت أن تغير حجم الخط من 16 إلى 12 مثلاً ما عليك إلا أن تفتح نافذة النمط وتختار النمط وتعدل تنسيق الخط إلى 12 وبعد ذلك اضغط زر { موافق } ثم { تطبيق} سيقوم وورد بإجراء التغييرات في الـ20 فقرة بلمح البصر على التعديل الذي أجريته .. أليس هذا أسهل بكثير من التعديل اليدوي .. فتخيل لو أن لديك 1000 عنوان فرعي وتريد أن تغيرها من حجم 16 إلى 20 بغير النمط ستضطر إلى الانتقال إلعناوين واحداً واحداً ثم تظلله ثم تختار الحجم يعني ستمكث ساعة على الأقل .. وأما بالنمط فالأمر لن يتعدى ثوان معدودة . أرجو أن يكون فيه الفائدة .. وأي سؤال أنا حاضر

رائع أخي المهاجر .. أضيف .. لنقل صف أو عدة صفوف من موقع في الجدول إلى موقع آخر في نفس الجدول .. مثلاً نقل الصف السادس إلى أن يكون قبل الصف الرابع فيكون ترتيبه الثالث بالتالي : ظلل الصف ثم اضغط على Alt+Shift واستمر بالضغط عليهما وفي أثناء ذلك اضغط سهم لأعلى لنقله إلى أعلى أو سهم لأسفل لنقله إلى أسفل وكذلك العمل لنقل عدة صفوف

أحمد نجا الرحيلي الحربي المدينة المنورة خريج كلية الشريعة بالجامعة الإسلامية بالمدينة المنورة مدرس ابتدائي متزوج ولدي أربعة أولاد ثلاثة ذكور وبنت واحدة الميلاد 9/4/1390هـ أهوى الأكسس حتى النخاع أهوى MSDE وتعني مشاريع أكسس على محرك Sql Server وهي adp عملت عدة برامج بكلا النوعين لنفسي ولبعض الدوائر الحكومية وبعضها شبكية أهوى الوورد وأيضاً حتى النخاع ليس لدي أي شهادة وإنما تعلمت ذاتياً عن طريق الكتب والنت مواقع مفضلة لدي وأزورها باستمرار : الفريق العربي للبرمجة ، أوفيسنا ، فيجول بيسك للعرب ، الساحة العربية ، الحياة الزوجية البريد msmr1234@hotmail.com

شكراً لك أستاذ محمد .. إضافة جميلة بالنسبة لي فأنا إلى الآن لم أتعامل مع أوفيس إكس بي

تحياتي استاذنا فهد : هذا حل وربما لدى الإخوان حل آخر للنسخ : Me.tt1.SetFocus DoCmd.RunCommand acCmdCopy للصق : Me.tt2.SetFocus DoCmd.RunCommand acCmdPaste

شكراً للجميع وأعطونا رايكم بورك فيكم

Sub الماكرو_الرئيسي() أعمدة جدول_الضرب End Sub Sub جدول_الضرب() Dim sumNomber As Integer Dim i As Integer Dim i2 As Integer For i = 1 To 20 For i2 = 1 To 10 sumNomber = i * i2 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.BoldRun Selection.Font.SizeBi = 16 Selection.Font.BoldBi = wdToggle Selection.TypeText Text:=i & " × " & i2 & " = " & sumNomber Selection.TypeParagraph Next Selection.TypeText Text:="-------------" Selection.TypeParagraph Next Selection.TypeText Text:="============" End Sub Sub أعمدة() With ActiveDocument.PageSetup.TextColumns .SetCount NumColumns:=3 .EvenlySpaced = True .LineBetween = True .Width = CentimetersToPoints(4.05) .Spacing = CentimetersToPoints(1.25) .FlowDirection = wdFlowRtl End With End Sub

أذكر أنه دار نقاش طويل بين الإخوة في منتدى فيجول بيسك للعرب حول أيهما أفضل فبعضهم فضل DAO والسبب لآنه يعرف كيف يتعامل معها من ألفها إلى يائها .. والبعض فضل ADO لأنها المستقبل وأعجبني الرأي الثالث وهو استخدام كل منهما كل في مجاله .. فـ DAO في الأعمال المكتبية التي لا تتطلب شبكات أسرع .. وADO أسرع في الشبكات فأنا جربت الكودين على جهازي فكانت DAO أسرع وبالبحث في منتدى فيجول بيسك العرب ستجدون مواضيع كثيرة حول الفرق بينهماwww.vb4arab.com

شكراً / المهاجر أو أضغط مفتاح F4

الأخوان الكريمان / فيصل وشاكر فعلاً الطريقة الأخيرة سريعة جداً وهذا يؤكد أن DAO أسرع على المستخدم الواحد والقاعدة على جهاز واحد .. وأما حين يكون البرنامج على شبكة وعدة مستخدمين فستتفوق ADO بلا شك تحياتي لكما

الإخوة الكرام .. السلام عليكم تحية طيبة وبعد فهذا ملف عن كيفية عمل فهارس متعددة في الوورد أرجو أن ينال على إعجابكم شرح_الفهارس_في_الوورد.doc

وأنت أحلى يا عزيزي المهاجر

اكتب كالتالي بعد تحويل الإدخال إلى الإنجليزية =rand(20) طبعاً اكتب أي عدد تختاره مكان العشرين .. وانظر ماذا يحدث

وجزاك أخي المهاجر

من خلال لوحة المفاتيح : للانتقال إلى : شاشة أعلى : Page Up شاشة أسفل : Page Down أول المستند : Ctrl+Home آخر المستند : Ctrl+End أول فقرة لأعلى : Ctrl+سهم أعلى أول فقرة لأسفل : Ctrl+سهم أسفل أول السطر : Home آخر السطر : End أول الكلمة : Ctrl+سهم يمين آخر الكلمة : Ctrl+سهم يسار آخر خمس مواضع كنت بها : Shift+F5 السطر التالي : سهم أسفل السطر أعلى : سهم أعلى أول الصفحة التالية : ( إذا كنت بعد آخر حرف في الصفحة الحالية ) : سهم يسار آخر الصفحة السابقة : ( إذا كنت قبل أول حرف في الصفحة الحالية ) : سهم يمين (وهنا مثلها للحواشي) صفحة محددة : Ctrl+g ومن ثم كتابة رقم الصفحة ========== أشرطة الأدوات والتنقل بينها : 1- اضغط على Alt ضغطة واحدة . 2- وبالاستمرار على الضغط على Ctrl اضغط على مفتاح الجدولة Tab مرة بعد أخرى للانتقال إلى شريط آخر وهكذا داخل شريط الأدوات : من خلال الأسهم يمين ويسار ========= أشرطة القوائم : 1- اضغط على Alt ضغطة واحدة . 2- ثم الحرف المسطر .. ولتنفيذ أحد بنوده اضغط على الحرف المسطر داخل القائمة ========= للعرض العادي : Ctrl+Alt+N للعرض تخطيط الطباعة : Ctrl+Alt+P ========= للخط : Ctrl+D للبحث : Ctrl+F للاستبدال : Ctrl+H لمربع حوار الطباعة : Ctrl+P لمربع حوار فتح ملف : Ctrl+O لمستند جديد : Ctrl+N

أشكركم يا أساتذة على جهدكم الرائع بالنسبة للعبارة Select Case والعبارة IF قرأت كثيراً أن الأولى أسرع ولكني الآن عندما أجرب أجدهما متقاربان جداً وأحياناً متساويان .. فما أدري لماذا قالوا أن select أسرع أما المكتبة التي تحتاجها أخي الكريم شاكر فهي Microsoft ActiveX Data Opjects 2.1 Library فأنا طبقت المثال على أوفيس 2000 لكم التحية أيها المبدعون

شكراً لكم يا أساتذة وبارك الله فيكم وشهركم مبارك

ومن خلال ADO أسرع وأسرع حيث تمت العلمية في خلال 1.15740740740666E-05 Dim Rec As New ADODB.Recordset Rec.Open "t1", CurrentProject.Connection, adOpenStatic, adLockOptimistic, adCmdTable Dim i As Integer For i = Me.c To Me.d Rec.AddNew Rec![رقم الصنف] = Me.sh & "-" & Format(i, "000") Rec![اسم الصنف] = Me.a Rec![مكان الصنع] = Me.b Rec.Update Next Rec.Close Set Rec = Nothing Me.Refresh ' تحديث النموذج

ولو استخدمتما Select Case لكان أسرع وأسرع لأن العبارة IF لا بد من أن تمر على مفرداتها مرة واحدة أما عبارة select case فهي لا تمر إلا على المطلوب .. هذا نظرياً ولم أجرب على مثالكم .. وتحياتي لعالم السرعة والدقة

نعم الطريقة الثانية هي أقوى الطرق

الإخوة الكرام .. السلام عليكم ورحمة الله وبركاته تحية طيبة وكل عام وانتم بخير ومبروك عليكم الشهر .. حاولت فوجدت الحل كالتالي : ضع هذا الكود في ماكرو لاستخراج التصحيحات التلقائية ' استخراج مفردات التصحيح التلقائي ووضعه في جدول Application.Keyboard (1025) ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed For Each Anetry In AutoCorrect.Entries Selection.TypeText Text:=Anetry.Value Selection.MoveRight Unit:=wdCell Selection.TypeText Text:=Anetry.Name Selection.MoveRight Unit:=wdCell Next ثم ضع المؤشر في أول الخلية الأولى ثم وضع هذا الكود في ماكرو لإدراج جميع التصحيحات التلقائية التي في الجدول إلى الوورد ' إضافة التصحيحات التلقائية من الجدول On Error Resume Next Dim Text1 As String Dim Text2 As String Dim contTable As Integer Dim i As Integer contTable = Selection.Tables(1).Rows.Count For i = 1 To contTable Selection.EndKey Unit:=wdLine Selection.HomeKey Unit:=wdLine, Extend:=wdExtend Selection.Copy Text1 = Trim(Selection.Text) Selection.MoveRight Unit:=wdCell Text2 = Trim(Selection.Text) AutoCorrect.Entries.Add Name:=Text2, Value:=Text1 With AutoCorrect .CorrectInitialCaps = True .CorrectSentenceCaps = True .CorrectDays = True .CorrectCapsLock = True .ReplaceText = True .ReplaceTextFromSpellingChecker = True .CorrectKeyboardSetting = False End With If i = contTable Then Exit Sub Else Selection.MoveRight Unit:=wdCell End If Next أرجو أن تعطوني رأيكم