كيف يمكن نقل الاختصارات ( التصحيح التلقائي )

[عبدالله سليمان]

من المعروف أنه يمكن نقل الماكروات والأنماط والنص التلقائي وأشرطة الأدوات عن طريق :

أدوات - قوالب ووظائف إضافية - تنظيم

ولكن كيف يمكن نقل اختصارات التصحيح التلقائي

[الحدادي]

حاولت بس ما قدرت اوصل الى نتيجة

الاحتمال الوارد هو: ليس باستطاعتك نقل التصحيح التلقائي، بل يمكنك كتابته في خانة التصحيح التلقائي كما في الصورة التالية

[عبد الله فتحي]

حاولت أنا أيضاً ولكن للأسف لم أتوصل إلى نتيجة مرضية ..

[عبدالله سليمان]

أشكرك لكما محاولتكما .

ومع ذلك فإني لازلت أعتقد بوجود حل إلا أن تفيد ميكروسوفت بأن هذا غير ممكن .

[أحمد الحربي]

الإخوة الكرام ..

السلام عليكم ورحمة الله وبركاته

تحية طيبة وكل عام وانتم بخير ومبروك عليكم الشهر ..

حاولت فوجدت الحل كالتالي :

ضع هذا الكود في ماكرو لاستخراج التصحيحات التلقائية

' استخراج مفردات التصحيح التلقائي ووضعه في جدول

    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

أرجو أن تعطوني رأيكم

[محمد طاهر عرفه]

صراحة كود أكثر من رائع (y)

و هو مثال جميل أيضا علي كيفية تخزين البيانات في جدول و استرجاعها

و يلاحظ أنه لتشغيل ماكرو الاسترجاع تقف فى الخلية الاولي ( التي بها الكلمة قبل التصحيح )

حيث انه باختلاف النسخة العربية و الانجليزية للوورد قد يختلف مفهوم الخلية الاولي

و قد أرفقت مثال به الاكواد السابقة فى موضوع منفصل كمثال علي التعامل مع البيانات فى الجداول

من هنا

[egyptian_eg]

فعلا كود جميل جدا

[أحمد الحربي]

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

[damanis]

السلام عليكم ورحمة الله وبركاته:

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

وعند نقله الى حاسب اخر يجب وضعه ضمن ملجد الويندوز ونغير اسمه الى اسم المستخدم الحالي للاوفيس على الجهاز الجديد

[عبدالله سليمان]

شكراً للجميع وللأخ أحمد الحربي خصوصاً وفعلاً هذا هو الكود المطلوب .

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