سؤال كيف يمكنني تغيير لغة جميع شرائح Powerpoint في وقت واحد؟


أرغب في تغيير لغة التدقيق الخاصة بكل الشرائح الخاصة بي في Powerpoint. لقد حاولت ضبط اللغة من خلال قائمة تفضيلات اللغة ، ولكن هذا لا يغيرها إلا لنقاط القوة الجديدة.


133
2018-06-04 10:01


الأصل


ممكن نسخة من تغيير لغة التدقيق الإملائي في عرض تقديمي لـ PowerPoint - sancho.s
يبدو أن الإصدار الأحدث من PowerPoint هو buggy خاصة في هذا الصدد. لدي مربع نص قمت فيه بتغيير لغة كل النص إلى اللغة A. (اللغة الافتراضية هي B.) لذا عندما أبدأ الكتابة داخل مربع النص ، تتغير اللغة تلقائيًا إلى B. أعتقد أنه ربما تغيير الإعداد الافتراضي اللغة يساعد (بعد أن جربت كل شيء آخر) ولكن لا. الآن اللغة الافتراضية هي A ، لغة كل النص الآخر في مربع النص هي A (ولقد قمت بإعادة تشغيل PP) ولكن كل النص الجديد لا يزال يظهر على أنه B. لذا فإن سؤالي الوحيد المتبقي هو: هل هناك طريقة لتبديل التدقيق قبالة تماما؟ - lebatsnok
نعم ، هناك طريقة لتحويل التدقيق الإملائي: support.microsoft.com/en-us/help/937422/... - حل مشكلتي! - lebatsnok


الأجوبة:


أعلم أن الإجابة قد تم قبولها بالفعل ، لكن ذلك يغير فقط لغة التدقيق الخاصة بـ غير مرتبطة مربع النص ، ويتطلب منك تغييرها جميعًا يدويًا.

لتغيير لغة كامل PowerPoint بسهولة ، وفتح رأي علامة التبويب وحدد الخطوط العريضة رأي.

الآن اضغط

  • السيطرة+ا لتحديد الكل.
  • أدوات → لغة → اختر لغتك لضبط.

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

برنامج PowerPoint 2013

  • رأي → الخطوط العريضة → اختر جميع الشرائح (في القائمة اليسرى) عبر السيطرة+ا.
  • إعادة النظر → لغة → تعيين لغة التدقيق ... → اختر لغتك لضبط.

بالنسبة لي - باور بوينت إعادة بدء كان هناك حاجة. ربما لأنني أيضا تغيرت تحرير اللغة:

  • إعادة النظر → لغة → تعيين لغة التدقيق ... → تفضيلات اللغة → اختر تحرير اللغات.

146
2018-03-17 17:29



نشكرك على الإجابة ، ولكن بعد تغيير اللغة ، لا يزال النص المكتوب حديثًا باللغة السابقة (اللغة الافتراضية). علاوة على ذلك ، إذا قمت بالانتقال إلى الشرائح الرئيسية ، فحدد الشريحة، ستلاحظ أن اللغة في شريط اللغة لا تزال اللغة الافتراضية ، وأن القائمة لتغييرها غير نشطة. أنا مجنون أنه لم يتم حلها من قبل Microsoft لسنوات عديدة. - Endrju
رائع! في حين أنها ليست مثالية ، إلا أنها تساعد بالتأكيد. أتفق مع @ Endrju ، لماذا لم يتم إصلاح هذا بعد ؟! - Mike
بالنسبة للسجل ، في Office 2013 ، توجد قائمة اللغة في جزء المراجعة (تعيين لغة التدقيق) - Maria Ines Parnisari
Powerpoint هو مجرد أمر مثير للصدمة أليس كذلك؟ أنا في الواقع أفتقد استخدام المكتب المفتوح عندما يكون لدي مثل هذه القضايا. سأعود إلى المكتب المفتوح حالما يدعمون التوفير في الفيديو. - mjaggard
Endrju يجب عليك تغيير لغة PowerPoint في شريط مهام Windows لجعل النص المكتوب حديثًا باللغة الجديدة. انظر التفاصيل في إجابتي. لقد أزعجني كثيرا لوقت طويل - Gas


عن طريق بوربوينت 2010 فتحت قائمة المخطط التفصيلي -

outline tab

حددت كل النص (تحكم + A) ، وفتح قائمة اللغة وتعيين لغتي التدقيق

language option

وانها عملت!

توجد قائمة اللغة في علامة التبويب "مراجعة الشريط" (بعد علامة التبويب "عرض الشرائح" وغير مرئية على لقطة الشاشة).


34
2018-06-04 10:01



يعمل فقط لشريحة واحدة - Helge Klein
هذا يعمل لتنسيقات الشريحة الأساسية. لن يغير لغة النص داخل مربعات النص أو يتداخل داخل أشكال أخرى. - Duncan Jones
يعمل على Office 2007 أيضا. - Alfredo Osorio
عملت على مكتب ماك أيضا. - Jim McKeeth


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

حل هذا الماكرو المشكلة بالنسبة لي:

 Sub ChangeProofingLanguageToEnglish()
    Dim j, k, m, scount, fcount, gcount As Integer
    scount = ActivePresentation.Slides.Count
    For j = 1 To scount
        fcount = ActivePresentation.Slides(j).Shapes.Count
        For k = 1 To fcount
            If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then
                ActivePresentation.Slides(j).Shapes(k) _
                .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS
            End If
            If ActivePresentation.Slides(j).Shapes(k).Type = msoGroup Then
                gcount = ActivePresentation.Slides(j).Shapes(k).GroupItems.Count
                For m = 1 To gcount
                    If ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m).HasTextFrame Then
                    ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m) _
                    .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS
            End If
                Next m
            End If
        Next k
    Next j
End Sub

يمكن استبدال "msoLanguageIDEnglishUS" المستخدم في الماكرو أعلاه بأي لغة مطلوبة. يمكن العثور على القائمة الكاملة للغات هذه المقالة

(يذهب الائتمان إلى غانيش كومار الذي نشر الماكرو الأصلي هنا. أضفت الدعم للمستوى الأول من تجميع الأشكال. لمزيد من تحسينه ، يمكن جعل الماكرو عوديًا للبحث عن مجموعات تحتوي على مجموعات أخرى ، إلخ.)


19
2017-08-09 08:11



+1 بداية جيدة. نرى إجابتي للحصول على نسخة تكرارية بالكامل استنادًا إلى هذه الإجابة. - Duncan Jones


لقد تحسنت إجابة Inigo لتوفير نسخة تكرارية تقوم بتغيير كل العناصر إلى اللغة المطلوبة.

سيقوم هذا الإصدار بشكل متكرر بالتحقق من كل شكل يمثل نوع مجموعة. بعض التجارب تشير إلى ذلك msoGroup و msoSmartArt هي أنواع المجموعات - لا تتردد في إضافة إلى تلك القائمة إذا وجدت أنواع أخرى من الأشكال يمكن أن تعقد كائنات النص.

Sub ChangeProofingLanguageToEnglish()
    Dim j, k As Integer
    Dim languageID As MsoLanguageID

    'Set this to your preferred language
    languageID = msoLanguageIDEnglishUK

    For j = 1 To ActivePresentation.Slides.Count
        For k = 1 To ActivePresentation.Slides(j).Shapes.Count
            ChangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), _
              languageID
        Next k
    Next j
End Sub


Sub ChangeAllSubShapes(targetShape As shape, languageID As MsoLanguageID)
    Dim i As Integer

    If targetShape.HasTextFrame Then
        targetShape.TextFrame.TextRange.languageID = languageID
    End If

    Select Case targetShape.Type
        Case msoGroup, msoSmartArt
            For i = 1 To targetShape.GroupItems.Count
                ChangeAllSubShapes targetShape.GroupItems.Item(i), languageID
            Next i
    End Select
End Sub

17
2017-11-25 09:52



عند تشغيل هذا في PowerPoint 16.10 على OSX ، أحصل على: Compile error: Method or data member not found - Etienne Low-Décarie


استنادًا إلى إجابات Inigo و Duncan و Maria و DomDev ، فهذا يعمل على الأشكال والطاولات والمجموعات و SmartArt الآن وفي المستقبل:

Sub ChangeProofingLanguageToFrench()
    Dim j, k As Integer
    Dim languageID As MsoLanguageID

    'Set this to your preferred language
    languageID = msoLanguageIDFrench

    'Loop all the slides in the document, and change the language
    For j = 1 To ActivePresentation.Slides.Count
        For k = 1 To ActivePresentation.Slides(j).Shapes.Count
            ChangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), languageID
        Next k
    Next j

    'Loop all the master slides, and change the language
    For j = 1 To ActivePresentation.SlideMaster.CustomLayouts.Count
        For k = 1 To ActivePresentation.SlideMaster.CustomLayouts(j).Shapes.Count
            ChangeAllSubShapes ActivePresentation.SlideMaster.CustomLayouts(j).Shapes(k), languageID
        Next k
    Next j

    'Change the default presentation language, so that all new slides respect the new language
    ActivePresentation.DefaultLanguageID = languageID
End Sub

Sub ChangeAllSubShapes(targetShape As Shape, languageID As MsoLanguageID)
    Dim i As Integer, r As Integer, c As Integer

    If targetShape.HasTextFrame Then
        targetShape.TextFrame.TextRange.languageID = languageID
    End If

    If targetShape.HasTable Then
        For r = 1 To targetShape.Table.Rows.Count
            For c = 1 To targetShape.Table.Columns.Count
                targetShape.Table.Cell(r, c).Shape.TextFrame.TextRange.languageID = languageID
            Next
        Next
    End If

    Select Case targetShape.Type
        Case msoGroup, msoSmartArt
            For i = 1 To targetShape.GroupItems.Count
                ChangeAllSubShapes targetShape.GroupItems.Item(i), languageID
            Next i
    End Select
End Sub

8
2017-07-09 09:41



بالنسبة للحلول الأخرى ، عند تشغيل هذا في PowerPoint 16.10 على OSX ، أحصل على: Compile error: Method or data member not found. أي حلول مقترحة؟ يبدو لتسليط الضوء .DefaultLanguageID. - Etienne Low-Décarie
@ EtienneLow-Décarie: قد تكون واجهة برمجة التطبيقات قد تغيرت في PowerPoint 16 ؛ ليس عندي حتى لا أستطيع التحقق ، آسف. - tricasse


يعمل إصدار دنكان بشكل جيد في كل شيء باستثناء الجداول. لقد عثرت على رمز آخر يبدو أنه يعمل أيضًا مع الجداول: https://stackoverflow.com/questions/4735765/powerpoint-2007-set-language-on-tables-charts-etc-that-contains-text 

Public Sub changeLanguage()
    On Error Resume Next
    Dim gi As GroupShapes '<-this was added. used below
    'lang = "English"
    lang = "Norwegian"
    'Determine language selected
    If lang = "English" Then
        lang = msoLanguageIDEnglishUK
    ElseIf lang = "Norwegian" Then
        lang = msoLanguageIDNorwegianBokmol
    End If
    'Set default language in application
    ActivePresentation.DefaultLanguageID = lang

    'Set language in each textbox in each slide
    For Each oSlide In ActivePresentation.Slides
        Dim oShape As Shape
        For Each oShape In oSlide.Shapes
            'Check first if it is a table
            If oShape.HasTable Then
                For r = 1 To oShape.Table.Rows.Count
                    For c = 1 To oShape.Table.Columns.Count
                    oShape.Table.Cell(r, c).Shape.TextFrame.TextRange.LanguageID = lang
                    Next
                Next
            Else
                Set gi = oShape.GroupItems
                'Check if it is a group of shapes
                If Not gi Is Nothing Then
                    If oShape.GroupItems.Count > 0 Then
                        For i = 0 To oShape.GroupItems.Count - 1
                            oShape.GroupItems(i).TextFrame.TextRange.LanguageID = lang
                        Next
                    End If
                'it's none of the above, it's just a simple shape, change the language ID
                Else
                    oShape.TextFrame.TextRange.LanguageID = lang
                End If
            End If
        Next
    Next End Sub

6
2018-05-22 13:36





بالإضافة إلى الإجابة المقدمة من قبل Mastergalen ولمعالجة التعليقات المتعلقة بنوع النص الحديث:

إذا لاحظت ، سوف تتغير هذه اللغة تلقائيًا عندما تبدأ في كتابة نص جديد (وهو أمر مزعج للغاية) ، يجب عليك تغيير اللغة الافتراضية الحالية لـ PowerPoint:

  • تأكد من أن نافذة PowerPoint هي نافذة نشطة
  • في ال Windows Taskbar (نعم ، في الواقع ليس في PowerPoint) ، تحقق مما إذا كان Language bar مرئي،
    • إذا لم تذهب إلى Control Panel > Region and Language > Keyboards and Languages. انقر Change keybords...، التبديل إلى Language bar علامة التبويب والتحقق Docked in the taskbar اختيار. (هذا من Win7 ، لذلك قد يكون مختلفًا بعض الشيء في الإصدارات الأخرى).
  • الآن العمل الرئيسي - في Language bar في شريط المهام ، انقر فوق رمز اللغة والتبديل إلى EN (إذا كنت تريد حاليًا استخدام اللغة الإنجليزية في PowerPoint). من الآن فصاعدا ، سيكون النص الجديد في PowerPoint باللغة المختارة :-)
  • إذا كنت تريد الكتابة بلغتك الأصلية ، فما عليك سوى تغييرها.

2
2017-07-04 12:52



اللهم لماذا يفعلون شيئاً كهذا؟ شكرا لك ، عملت على أكمل وجه. - Thibault D.
بالضبط! يجب أن تضاف إلى الإجابة المقبولة كذلك. - Abdelhafid Madoui
ولكن هذا أيضًا يغير تخطيط لوحة المفاتيح ، أليس كذلك؟ ... أريد كتابة النص باللغة الإنجليزية ولكني أريد حقاً الحفاظ على تخطيط لوحة المفاتيح باللغة الألمانية .... - Johannes S.
JohannesS. إذا قمت بالنقر بزر الماوس الأيمن En في شريط المهام واختيار Settings.. سترى في اللغات المثبتة الألمانية (DE) والانكليزية (EN) ، إذا قمت بتوسيع اللغة الإنجليزية ، سيكون هناك Keyboards المدرجة ، وتوسيع لوحات المفاتيح ، وإضافة لوحة المفاتيح الألمانية المفضلة لديك ، وربما إزالة الإنجليزية واحدة أيضا. لم أحاول ذلك ، ولكن يجب أن تعمل من الناحية النظرية ؛-) - Gas


لقد قمت بعمل إضافة في عام 2014 لنفسي والتي لا تزال تعمل بشكل جيد في PowerPoint 2016. https://github.com/wobba/officeaddin/releases/tag/v1.0.1

يقوم بمسح للغات المستخدمة ، ويسمح لك بتغيير كل مرة ، مررًا.

enter image description here


2
2017-10-20 11:42