عبدالله سليمان قام بنشر سبتمبر 30, 2003 مشاركة قام بنشر سبتمبر 30, 2003 من المعروف أنه يمكن نقل الماكروات والأنماط والنص التلقائي وأشرطة الأدوات عن طريق : أدوات - قوالب ووظائف إضافية - تنظيم ولكن كيف يمكن نقل اختصارات التصحيح التلقائي رابط هذا التعليق شارك More sharing options...
الحدادي قام بنشر أكتوبر 6, 2003 مشاركة قام بنشر أكتوبر 6, 2003 حاولت بس ما قدرت اوصل الى نتيجة الاحتمال الوارد هو: ليس باستطاعتك نقل التصحيح التلقائي، بل يمكنك كتابته في خانة التصحيح التلقائي كما في الصورة التالية رابط هذا التعليق شارك More sharing options...
عبد الله فتحي قام بنشر أكتوبر 6, 2003 مشاركة قام بنشر أكتوبر 6, 2003 حاولت أنا أيضاً ولكن للأسف لم أتوصل إلى نتيجة مرضية .. رابط هذا التعليق شارك More sharing options...
عبدالله سليمان قام بنشر أكتوبر 12, 2003 الكاتب مشاركة قام بنشر أكتوبر 12, 2003 أشكرك لكما محاولتكما . ومع ذلك فإني لازلت أعتقد بوجود حل إلا أن تفيد ميكروسوفت بأن هذا غير ممكن . رابط هذا التعليق شارك More sharing options...
أحمد الحربي قام بنشر أكتوبر 27, 2003 مشاركة قام بنشر أكتوبر 27, 2003 الإخوة الكرام .. السلام عليكم ورحمة الله وبركاته تحية طيبة وكل عام وانتم بخير ومبروك عليكم الشهر .. حاولت فوجدت الحل كالتالي : ضع هذا الكود في ماكرو لاستخراج التصحيحات التلقائية ' استخراج مفردات التصحيح التلقائي ووضعه في جدول 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 أرجو أن تعطوني رأيكم رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 28, 2003 مشاركة قام بنشر أكتوبر 28, 2003 صراحة كود أكثر من رائع (y) و هو مثال جميل أيضا علي كيفية تخزين البيانات في جدول و استرجاعها و يلاحظ أنه لتشغيل ماكرو الاسترجاع تقف فى الخلية الاولي ( التي بها الكلمة قبل التصحيح ) حيث انه باختلاف النسخة العربية و الانجليزية للوورد قد يختلف مفهوم الخلية الاولي و قد أرفقت مثال به الاكواد السابقة فى موضوع منفصل كمثال علي التعامل مع البيانات فى الجداول من هنا رابط هذا التعليق شارك More sharing options...
egyptian_eg قام بنشر أكتوبر 28, 2003 مشاركة قام بنشر أكتوبر 28, 2003 فعلا كود جميل جدا رابط هذا التعليق شارك More sharing options...
أحمد الحربي قام بنشر أكتوبر 28, 2003 مشاركة قام بنشر أكتوبر 28, 2003 شكراً لكم يا أساتذة وبارك الله فيكم وشهركم مبارك رابط هذا التعليق شارك More sharing options...
damanis قام بنشر فبراير 11, 2004 مشاركة قام بنشر فبراير 11, 2004 السلام عليكم ورحمة الله وبركاته: يمكن نقل الاختصارات عن طريق نقل ملف موجود ضمن مجلد الويندوز ولاحقته ACL ويحمل اسم المستخدم الذي سجلت فيه الاوفيس عند تنزيله على الجهاز أول مرة. وعند نقله الى حاسب اخر يجب وضعه ضمن ملجد الويندوز ونغير اسمه الى اسم المستخدم الحالي للاوفيس على الجهاز الجديد رابط هذا التعليق شارك More sharing options...
عبدالله سليمان قام بنشر أبريل 8, 2004 الكاتب مشاركة قام بنشر أبريل 8, 2004 شكراً للجميع وللأخ أحمد الحربي خصوصاً وفعلاً هذا هو الكود المطلوب . وكنت قبل فترة وجدت ماكرو لشركة مايكروسفت يقوم بالمهمة المطلوبة ، وقد نسيت هذا الموضوع . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.