عبد الله فتحي

بإمكانك السؤال عليها وشراؤها من أي مركز لبرامج الكمبيوتر .. وهي متوفرة في جميع الأماكن

أعتقد أن ذلك راجع لتصميم الصفحة التي تنسخ منها .. وعلى أي حال لا أظن أن هناك سوى طريقة النسخ المعهودة، وسيكون عليك تنسيق النص يدوياً بعد ذلك .. علماً بأن بعض المواقع توفر نسخة للطباعة ربما يمكنك الاستفادة منها ..

من فوائدها تحديد الموقع الذي يبدأ منه السطر أو ينتهي إليه، ومحاذاة بدايات أو نهايات الأسطر ببعضها البعض، مما يحسن من الناحية التنسيقية والجمالية للنص ..

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

أعتقد أن المشكلة لا دخل لها ببرنامج الـ Word تأكد من تعريف الطابعة بشكل جيد، وجرب الطباعة من خلال برامج أخرى .. وإذ واجهتك مشاكل فمن الأفضل إرجاعها للوكيل للتأكد من سلامة الطابعة ..

ربما تجد الفائدة في هذا الموقع: http://www.jps-dir.com/

بارك الله فيك ..

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

الوورد آرت في 2003 مثله في إكس بي لا يختلف كثيراً .. ربما يختلف عن الإصدارات الأقدم ولكنه سهل جداً ولا يحتاج إلى شرح،، اختر Insert Word Art ثم اختر الشكل الذي يعجبك ثم اكتب النص الذي تريده مع اختيار نوع الخط المناسب ثم بعد ذلك يمكنك التحكم في ألوان النص من خلال النقر عليه بزر الماوس الأيمن ثم تنسيق وورد آرت .. بالتوفيق

جربت البرنامج وعمل معي بصورة ممتازة وبدون أي أخطاء .. بارك الله فيك أخي أحمد ..

الهمة موجودة عند الكثيرين بإذن الله تعالى .. ولكن يجب وضع نبذة عن الجمعية ونشاطاتها ..

لا لا يوجد .. هذا المنتدى متخصص في الأوفيس وتقنياته ..

منتدى جيد جداً ،،، خصوصاً من ناحية التصميم :d بارك الله لكم فيه ووفقكم لرفعة الإمة ..

أهلاً بك .. وأتمنى لك التوفيق ..

ما زلت لا أفهم :d هل تقصد قيمة مدخل القيمة {Default} أم هل تقصد قيمة مدخل القيمة الجديد على أي حال القيمة يتم تحديدها من خلال المعامل الثاني الذي يتم تمريره

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

ما شاء الله .. جهد مبارك .. وللمشاركة معكم قمت بإضافة طريقتين للتعامل مع الريجستري، يمكنكم الوصول إليهما من هنا: http://www.officena.net/ib/index.php?showtopic=5345 أو هنا: http://www.officena.net/ib/index.php?showtopic=5346 مع تمنياتي لكم بدوام التوفيق والسداد

بسم الله الرحمن الرحيم الإخوة الكرام رواد المنتدى .. تحدثنا في موضوع سابق سابق عن كيفية التعامل مع الريجستري، وقمنا بتضمين Module لتسهيل التعامل مع الريجستري وذلك من خلال استخدام توابع ال API .. واليوم وفي هذا الموضوع سنشرح طريقة أخرى للتعامل مع الريجستري وهي طريقة سهلة جداً سنعتمد فيها على استخدام الكائن Wscript .. الأمر لا يتعدى ثلاثة أسطر من الكود .. في البداية لابد أن نقوم بتعريف الكائن بواسطة الكود التالي: Dim WSH As Object Set WSH = CreateObject("Wscript.Shell") بعدها سيكون تعاملنا مع الريجستري إما بالإضافة أو الحذف أو استرجاع القيم، وكل عملية من هذه العمليات لا تحتاج إلى أكثر من سطر كودي واحد لعملها .. ولنر ذلك معاً: لإضافة مدخل قيمة جديد إلى الريجستري: WSH.RegWrite "HKCU\Officena\Example", 1, "REG_DWORD" لاحظ أننا استخدمنا الوظيفة RegWrite وقمنا بتمرير ثلاث قيم إلى هذه الوظيفة، وهي: 1. اسم مدخل القيمة الجديد الذي نريد إضافته ومساره. 2. قيمة هذا المدخل الجديد. 3. نوع هذا المدخل ولاحظ أنه هنا من نوع REG_DWORD، ويمكن أن يكون REG_SZ أو REG_BINARY أو REG_MULTI_SZ أو أي نوع تريده .. ولإضافة مفتاح سنستخدم نفس الطريقة السابقة، مع تغيير طفيف، لاحظ: WSH.RegWrite "HKCU\Officena\Codes\", 1, "REG_DWORD" لحذف مدخل قيمة موجود مسبقاً: WSH.RegDelete "HKCU\Officena\Example" لاحظ أننا سنمرر اسم المدخل الذي نريد حذفه إلى الوظيفة RegDelete .. ولحذف مفتاح موجود مسبقاً نستخدم نفس الطريقة السابقة مع تغيير بسيط، لاحظ: WSH.RegWrite "HKCU\Officena\Codes\" ولمعرفة قيمة مدخل موجود بالريجستري: Print WSH.RegRead("HKCU\Al-ebda3.info\Example") ولمعرفة قيمة مفتاح موجود بالريجستري: Print WSH.RegRead("HKCU\Officena\Codes\") أتمنى أن أكون قد وُفقت في شرحي لذلك .. وأتمنى للجميع التوفيق

بسم الله الرحمن الرحيم مرفق مع هذه المشاركة موديول جاهز لتسهيل التعامل مع الريجستري، ورغم أنه من الأفضل أن تقوم بعمل أكوادك بنفسك إلا أنه ربما تواجه بعض الصعوبة في البداية، او ربما لا يكون لديك الوقت الكافي، أو ربما تعرف هذه الأكواد ولكنها تفتقر إلى التنظيم .. وفي كل الأحوال السابقة فإن هذا الموديول يعد خياراً سهلاً ومريحاً .. وفيما يلي سأشرح كيفية التعامل مع هذا الموديول: هذا الموديول يحتوي على 14 (أربعة عشر) وظيفة، هي إجمالاً: CreateRegKey DelRegKey SaveRegString GetRegString SaveRegLong GetRegLong SaveRegByte GetRegByte DelRegValue CopyRegByte CopyRegString CopyRegLong GetRegSubKeyList RegistryEnumerateValues وفيما يلي شرحها بالتفصيل، ويجب أن تكون على معرفة ولو بسيطة بالريجستري حتى تستطيع فهم المصطلحات التي سنذكرها، وإذا لم يكن لديك أي خلفية سابقة عن الريجستري فيفضل إلقاء نظرة بسيطة على الدروس في الرابط التالي: تعلم الريجستري والآن لنبدأ: 1. الوظيفة: CreateRegKey البناء: (CreateRegKey(hKey,strpath وتقوم بإنشاء مفتاح جديد، وستحتاج هذه الوظيفة إلى تمرير قيمتين الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد إنشاءه .. مثال: ("x = CreateRegKey(HKEY_CURRENT_CONFIG, "Officena\visualbasic المثال السابق سيقوم بإنشاء مفتاح فرعي باسم visualbasic في المسار التالي HKEY_CURRENT_CONFIG\Officena ولكن ماذا لو أن المسار السابق غير موجود هنا سيقوم الفيجول بيسيك بإنشائه أيضاً .. 2. الوظيفة: DelRegKey البناء: (DelRegKey(hKey,strpath على عكس الوظيفة السابقة فهي تقوم بحذف مفتاح موجود بالفعل، وستحتاج هذه الوظيفة أيضاً إلى تمرير قيمتين الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد حذفه .. مثال: ("x = DelRegKey(HKEY_CURRENT_CONFIG, "Officena\visualbasic المثال السابق سيقوم بحذف المفتاح الفرعي visualbasic الموجود في المسار التالي HKEY_CURRENT_CONFIG\Officena، وإذا تمت عملية الحذف بنجاح فإن المتغير X سيحمل القيمة (0)، أما إذا لم تتم العملية إما لعدم وجود المفتاح من الأساس أو لأي سبب آخر فإن المتغير X سيعود بالقيمة (2) .. 3. الوظيفة: SaveRegString البناء: (SaveRegString(hKey,strpath,strvalue,strdata تقوم هذه الوظيفة بإنشاء مدخل قيمة جديد من نوع String value، وللذين يجدون صعوبة في فهم هذه المصطلحات أذكرهم بالرابط السابق لدروس الريجستري، وستحتاج هذه الوظيفة إلى تمرير أربع قيم الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد إضافة مدخل قيمة بداخله، والثالثة strvalue وتعني اسم مدخل القيمة الذي نريد إنشاءه، والرابعة strdata وتعني قيمة هذا المدخل الذي سننشئه .. مثال: ("x = SaveRegString(HKEY_CURRENT_CONFIG, "Officena\visualbasic", "code1", "connection to internet المثال السابق سيقوم بإنشاء مدخل قيمة من نوع string value ويحمل الاسم code1 في المسار التالي HKEY_CURRENT_CONFIG\Officena\visualbasic، وهذا المدخل ستكون قيمته connection to inernet .. وعلى فكرة من الجيد فتح الريجستري لمعرفة هل تمت التغييرات بنجاح أم لا، ومن المهم أن تكون حذراً أيضاً في هذا الجانب، لأن أي خطأ من الممكن أن يكلفك الكثير ... 4. الوظيفة: GetRegString البناء: ([GetRegString(hKey,strpath,strvalue,[Default تقوم هذه الوظيفة بمعرفة قيمة مدخل قيمة من نوع string value موجود مسبقاً، أي أننا نريد معرفة ماهي قيمته، وستحتاج هذه الوظيفة إلى تمرير أربع قيم ثلاثة منها إجبارية والأخير اختياري، الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد معرفة قيمة مدخل القيمة الموجود بداخله، والثالثة strvalue وتعني اسم مدخل القيمة الذي نريد معرفة قيمته، والرابعة [default] وكما ترى فهو موضوع بين أقواس معقوفة للدلالة على أنها قيمة اختيارية أي يمكن تجاهلها، وهنا نضع قيمة افتراضية تظهر لنا في حال لم يكن مدخل القيمة الذي نبحث عن قيمته موجوداً .. مثال: ("x = GetRegString(HKEY_CURRENT_CONFIG, "Officena\visualbasic", "code1", "none المثال السابق سيقوم بمعرفة قيمة المدخل من نوع string value والذي يحمل الاسم code1 والموجود في المسار التالي HKEY_CURRENT_CONFIG\Officena\visualbasic، ويضع هذه القيمة في المتغيير X، أما إذا لم يجد هذا المدخل فسيقوم بجعل المتغير X يساوي none .. أرجو أن تكون الأمور واضحة حتى الآن .. 5. الوظيفة: SaveRegLong البناء: (SaveRegLong(hKey,strpath,strvalue,strdata تقوم هذه الوظيفة بإنشاء مدخل قيمة جديد من نوع DWORD value، وستحتاج هذه الوظيفة إلى تمرير أربع قيم الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد إضافة مدخل قيمة بداخله، والثالثة strvalue وتعني اسم مدخل القيمة الذي نريد إنشاءه، والرابعة strdata وتعني قيمة هذا المدخل الذي سننشئه .. مثال: (x = SaveRegLong(HKEY_CURRENT_CONFIG, "Officena\visualbasic", "code2", 123 المثال السابق سيقوم بإنشاء مدخل قيمة من نوع DWORD value ويحمل الاسم code2 في المسار التالي HKEY_CURRENT_CONFIG\Officena\visualbasic، وهذا المدخل ستكون قيمته 123 .. 6. الوظيفة: GetRegLong البناء: ([GetRegLong(hKey,strpath,strvalue,[Default تقوم هذه الوظيفة بمعرفة قيمة مدخل قيمة من نوع DWORD value موجود مسبقاً، أي أننا نريد معرفة ماهي قيمته، وستحتاج هذه الوظيفة إلى تمرير أربع قيم ثلاثة منها إجبارية والأخير اختياري، الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد معرفة قيمة مدخل القيمة الموجود بداخله، والثالثة strvalue وتعني اسم مدخل القيمة الذي نريد معرفة قيمته، والرابعة [default] وكما ترى فهو موضوع بين أقواس معقوفة للدلالة على أنها قيمة اختيارية أي يمكن تجاهلها، وهنا نضع قيمة افتراضية تظهر لنا في حال لم يكن مدخل القيمة الذي نبحث عن قيمته موجوداً .. مثال: (x = GetRegLong(HKEY_CURRENT_CONFIG, "Officena\visualbasic", "code2", 111 المثال السابق سيقوم بمعرفة قيمة المدخل من نوع DWORD value والذي يحمل الاسم code2 والموجود في المسار التالي HKEY_CURRENT_CONFIG\Officena\visualbasic، ويضع هذه القيمة في المتغيير X، أما إذا لم يجد هذا المدخل فسيقوم بجعل المتغير X يساوي (111) .. 7. الوظيفة: SaveRegByte البناء: (SaveRegByte(hKey,strpath,strvalue,strdata تقوم هذه الوظيفة بإنشاء مدخل قيمة جديد من نوع Binary value، وستحتاج هذه الوظيفة إلى تمرير أربع قيم الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد إضافة مدخل قيمة بداخله، والثالثة strvalue وتعني اسم مدخل القيمة الذي نريد إنشاءه، والرابعة strdata وتعني قيمة هذا المدخل الذي سننشئه .. مثال: (x = SaveRegByte(HKEY_CURRENT_CONFIG, "Officena\visualbasic", "code3", 33 المثال السابق سيقوم بإنشاء مدخل قيمة من نوع Binary value ويحمل الاسم code3 في المسار التالي HKEY_CURRENT_CONFIG\Officena\visualbasic، وهذا المدخل ستكون قيمته 33 .. 8. الوظيفة: GetRegByte البناء: ([GetRegByte(hKey,strpath,strvalue,[Default تقوم هذه الوظيفة بمعرفة قيمة مدخل قيمة من نوع Binary value موجود مسبقاً، أي أننا نريد معرفة ماهي قيمته، وستحتاج هذه الوظيفة إلى تمرير أربع قيم ثلاثة منها إجبارية والأخير اختياري، الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد معرفة قيمة مدخل القيمة الموجود بداخله، والثالثة strvalue وتعني اسم مدخل القيمة الذي نريد معرفة قيمته، والرابعة [default] وكما ترى فهو موضوع بين أقواس معقوفة للدلالة على أنها قيمة اختيارية أي يمكن تجاهلها، وهنا نضع قيمة افتراضية تظهر لنا في حال لم يكن مدخل القيمة الذي نبحث عن قيمته موجوداً .. مثال: (x = GetRegByte(HKEY_CURRENT_CONFIG, "Officena\visualbasic", "code3", 11 المثال السابق سيقوم بمعرفة قيمة المدخل من نوع Binary value والذي يحمل الاسم code3 والموجود في المسار التالي HKEY_CURRENT_CONFIG\Officena\visualbasic، ويضع هذه القيمة في المتغيير X، أما إذا لم يجد هذا المدخل فسيقوم بجعل المتغير X يساوي 11 .. 9. الوظيفة: DelRegValue البناء: (DelRegKey(hKey,strpath,strvalue هذه الوظيفة تقوم بحذف مدخل قيمة موجود بالفعل بغض النظر عن نوعه، وستحتاج هذه الوظيفة إلى تمرير ثلاث قيم الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي يحتوي على مدخل القيمة نريد حذفه، والثالثة strvalue وتعني مدخل القيمة الذي نريد حذفه .. مثال: ("x = DelRegValue(HKEY_CURRENT_CONFIG, "Officena\visualbasic", "code1 المثال السابق سيقوم بحذف مدخل القيمة code1 الموجود في المسار التالي HKEY_CURRENT_CONFIG\Officena\visualbasic .. 10. الوظيفة: GetRegSubKeyList البناء: (GetRegSubKeyList(hKey,strpath وتقوم هذه الوظيفة بإعطائنا المفاتيح الفرعية داخل مفتاح معين، وتحتاج هذه الوظيفة إلى تمرير قيمتين الأولى hKey وتعني المفتاح الرئيسي، والثانية strpath وتعني المسار للمفتاح الفرعي الذي نريد معرفة المفاتيح الفرعية بداخله ويمكن تمرير قيمة فارغة وهنا سيتم عرض المفاتيح الفرعية داخل المفتاح الرئيسي .. تقوم هذه الوظيفة بإعادة المفاتيح الفرعية على شكل مصفوفة في متغير من نوع Variant .. يمكننا بعد ذلك أن نقوم بعرض هذه المصفوفة في مربع قائمة List Box .. وبالمثال يتضح المقال: مثال: XGroup = GetRegSubKeyList(HKEY_LOCAL_MACHINE, "SOFTWARE") For Each XElemens In XGroup List1.AddItem XElemens Next المثال السابق يقوم بتجميع المفاتيح الفرعية الموجودة تحت المسار HKEY_LOCAL_MACHINE\SOFTWARE ويقوم بوضعها في المتغير XGroup ثم بعد ذلك يقوم بعرضها في مربع القائمة List1 .. 11. الوظيفة : RegistryEnumerateValues البناء: RegistryEnumerateValues eRootKey, strKeyName, astrValues(), lngValueCount تقوم هذه الوظيفة بإعطائنا مدخلات القيم الموجودة تحت أي مفتاح نريده، وتحتاج هذه الوظيفة إلى تمرير أربع قيم، الأولى eRootKey وتعني المفتاح الرئيسي، والثانية strKeyName وتعني المسار للمفتاح الفرعي الذي نريد معرفة مدخلات القيم بداخله، والثالثة astrValues() وهو مصفوفة من نوع نص، ولابد أن تكون معرفة مسبقاً، وفائدتها أنه سيتم إرجاع مدخلات القيم بها، والرابعة lngValueCount وهو متغير رقمي، وفائدته أنه سيحتوي على عدد مدخلات القيم الموجودة بالمفتاح .. يمكننا بعد ذلك أن نقوم بعرض المصفوفة التي تحصلنا عليها في مربع قائمة List Box .. وإليك المثال: مثال: Dim astrValues() As String Dim lngValueCount As Long RegistryEnumerateValues HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", astrValues(), lngValueCount If Not lngValueCount = 0 Then For Each XElemens In astrValues List1.AddItem XElemens Next Else MsgBox "المسار الذي حددته لا يحتوي على أي مدخلات قيم" End If المثال السابق يقوم بتجميع مدخلات القيم في مصفوفة ومن ثم عرضها في مربع قائمة List Box، وفي حال كون المسار لا يحتوي على مدخلات قيم فإنه يقوم بإظهار رسالة تخبر بذلك .. يكفي أن نعرف الوظائف السابقة لكي نتمكن من التعامل مع الريجستري أما الوظائف الباقية وهي: 12. الوظيفة: CopyRegByte 13. الوظيفة: CopyRegString 14. الوظيفة: CopyRegLong فهي تقوم بنسخ مدخل القيمة من مكان لآخر، وإذا أردتم أن أشرحها فأنا جاهز لذلك .. في الختام تحياتي الخالصة لكم جميعاً .. وفي حال وجود صعوبات في فهم هذا الموديول بإمكانكم السؤال في هذا الموضوع وستجدون الحل بإذن الله .. وإلى مزيد من التقدم .. ModRegistry.zip

كل الشكر للأخ خضر على هذه المعلومات المفيدة .. وبما أن الموضوع يهمكم فقد قمت بإضافة بعض الدروس في قسم الدعم الفني: http://www.officena.net/ib/index.php?showtopic=5343 وأتمنى لكم التوفيق ..

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

في الرابط التالي يوجد كتابين يقدمان نبذة جيدة عن الأوفيس وهما بعنوان مقدمة تطبيقات الحاسب و تطبيقات الحاسب المتقدمة http://cdd.gotevot.edu.sa/college/computer/com.htm

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

الماكرو عبارة عن كود VBA يتم عمله للقيام بوظيفة معينة أو لتسهيل مهمة ما .. طبعاً استخداماته لا يمكن حصرها، فكل واحد يستفيد منه حسب حاجته .. يمكنك أن لا تستخدم أي ماكروات ولا يوجد أي مشكلة ..

جميل جداً بارك الله فيك