PowerPoint प्रस्तुति पर वर्तनी-जाँच भाषा बदलें


42

मुझे दर्जनों स्लाइड्स के साथ एक PowerPoint प्रस्तुति मिली, जिनमें से प्रत्येक में कई टेक्स्ट बॉक्स हैं। हालाँकि यह प्रस्तुति अंग्रेजी में लिखी गई है, लेकिन वर्तनी जाँच की भाषा कैनेडियन फ़्रेंच पर सेट है। मैं भाषा को अंग्रेजी में बदलने की कोशिश कर रहा हूं, लेकिन भले ही मैं सभी स्लाइड का चयन करता हूं और भाषा संवाद बॉक्स पर एक नया तत्व चुनता हूं, पाठ बॉक्स की भाषा समान रहती है। इसलिए मुझे पाठ बक्से का चयन करके स्लाइड को स्लाइड करना होगा और फिर व्यक्तिगत रूप से भाषा को बदलना होगा।

क्या ऐसा करने के लिए इससे अच्छा तरीका है?

PowerPoint का संस्करण जो मैंने स्थापित किया है वह 2002 SP3 है।


एक उत्तर जोड़ने के लिए प्रतीत नहीं हो सकता (पर्याप्त प्रतिनिधि होने के बावजूद)। मैक उपयोगकर्ताओं के लिए: macscripter.net/viewtopic.php?id=38622 एक अद्भुत ऐप्पल स्क्रिप्ट प्रदान करता है जिसे कई उपयोगों के लिए संशोधित किया जा सकता है।
एटिएन लो-डेकेरी

जवाबों:


34

मुझे पता है कि एक उत्तर पहले ही स्वीकार कर लिया गया है (जो मैंने +1 किया था क्योंकि यह काम करता है और अच्छी तरह से लिखा गया है), लेकिन कुछ लोगों को मैक्रो बनाने, सहेजने, उपयोग करने का विचार बहुत डरावना हो सकता है (या उनमें सुरक्षा सेटिंग्स हो सकती हैं) जगह है कि इस मुश्किल को प्राप्त करने के लिए)। तो एक आसान समाधान यह करने के लिए सामान्य अंतर्निहित कार्यक्षमता का उपयोग करना है। चाल को स्लाइड के बजाय सभी स्लाइड्स पर सभी ऑब्जेक्ट्स का चयन करने में सक्षम होना चाहिए, और यह आसानी से आउटलाइन व्यू में प्राप्त किया जाता है (दुख की बात है कि एक सुविधा का उपयोग किया जाता है, लेकिन स्लाइड डेक को पुनर्गठित करने, बढ़ावा देने और डीमोट करने के लिए महान है) पूरे विखंडू, जैसे गोलियां> नई स्लाइड या इसके विपरीत)।

मेरे पास PowerPoint 2002 ("XP") नहीं है, इसलिए मुझे यकीन नहीं है कि अगर आपको 2000 या 2003 के निर्देशों का पालन करने की आवश्यकता है तो मैं दोनों को कवर करता हूं:

  • पीपी 2000 में : आउटलाइन दृश्य पर जाएं, जो स्क्रीन के नीचे बाईं ओर बाईं ओर से दूसरा आइकन है (इंडेंटेशन वाली लाइनें जैसा दिखता है)।
  • पीपी 2003 में आगे : "सामान्य" दृश्य (तीन फलक लेआउट) पर जाएं और स्लाइड के शीर्ष पर नेविगेटर "स्लाइड" के बजाय "रूपरेखा" चुनें।

पुराने संस्करणों में, आप दिखाई उपकरण पट्टी बाह्य रेखांकन है सुनिश्चित करें ( View> Toolbars> Outlining) और क्लिक Expand all(बाद के संस्करण तुम सही क्लिक के माध्यम से इस पर मिलता है) बटन।

  • Ctrl-A सभी का चयन करने के लिए।
  • Tools>> Languageसेट करने के लिए अपनी भाषा चुनें।
  • (पावरपॉइंट 2013 से) REVIEW>> Languageप्रूफ़िंग भाषा सेट करें

काम हो गया।

इसी तरह जब आपके पास सब कुछ है तो आप अन्य चीजों को बदल सकते हैं जैसे कि फोंट, रंग आदि। हालांकि कई मामलों में यह स्लाइड मास्टर को बदलकर बेहतर होता है, एक प्रस्तुति जिसमें कई संपादक थे, बहुत सारे 'हार्ड' फॉर्मेटिंग सेट हो सकते हैं जो अंतर्निहित मास्टर से विचलित होता है और संगत होने के लिए रीसेट करने की आवश्यकता होती है। आप मास्टर स्टाइल में व्यक्तिगत स्लाइड भी रीसेट कर सकते हैं, लेकिन इसके परिणामस्वरूप प्लेसहोल्डर्स आगे बढ़ सकते हैं, जो कुछ स्थितियों में अवांछनीय हो सकता है।


बस एक त्वरित नोट: शायद निम्नलिखित वाक्य को बोल्ड करें, ताकि समाधान तुरंत स्पष्ट हो: 'चाल को सभी स्लाइड्स पर सभी ऑब्जेक्ट्स का चयन करने में सक्षम होना चाहिए, बजाय स्लाइड्स के, और यह आसानी से हासिल किया गया है। आउटलाइन दृश्य में
राबार्शकी

2
धन्यवाद एडम, महान जवाब! हालाँकि, इस दृष्टिकोण के साथ समस्या यह है कि स्लाइड में टेक्स्टबॉक्स कैसे जोड़े गए थे, इस पर निर्भर करते हुए, वे रूपरेखा दृश्य में नहीं दिखा सकते हैं। जो प्रस्तुति मुझे ठीक करनी थी, उस पर लगभग हर वस्तु के लिए बहुत ज्यादा मामला था।
लियोनार्डो

हां, मुझे लगता है कि अगर लोग बहुत सारे स्वतंत्र टेक्स्ट बॉक्स जोड़ते हैं, तो उन्हें मूल मैक्रो जैसे पोस्ट किए गए तरीके का उपयोग करके चुना जाना चाहिए।
एडमवी

मेरे लिए, यह केवल PowerPoint 2010 में मौजूदा पाठ पर काम किया। नए जोड़े गए पाठ के लिए, भाषा अभी भी कुछ मामलों में बदल जाएगी।
पीटर

यह अब तक इससे निपटने का सबसे साफ तरीका है। यह 2013 संस्करण में भी काम करता है।
GoTTimw

18

इस सूत्र में वह उत्तर है जो मेरे लिए काम करता है।

मैंने जिन चरणों का पालन किया, वे थे:

  1. एक नया मैक्रो बनाएँ:
    1.1। टूल्स, मैक्रो, विजुअल बेसिक एडिटर पर जाएं।
    1.2। सम्मिलित करें, मॉड्यूल का चयन करके एक नया खाली मॉड्यूल डालें।
  2. इस कोड को दाएं पैनल पर पेस्ट करें और मैक्रो को सहेजें:

    Option Explicit  
    Public Sub ChangeSpellCheckingLanguage()  
        Dim j As Integer, k As Integer, scount As Integer, fcount 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 = msoLanguageIDEnglishAUS
                End If
            Next k
        Next j
    End Sub
    

    msoLanguageIDEnglishAUSकिसी भी वांछित भाषा द्वारा प्रतिस्थापित किया जा सकता है। भाषाओं की पूरी सूची यहां पाई जा सकती है

  3. मैक्रो को निष्पादित करें (संपादक के भीतर F5 दबाकर, या उपकरण, मैक्रो, मैक्रोज़, चेंजसेपेलचेकिंग लैंग्वेज और रन पर क्लिक करके) का चयन करें।

उसके बाद प्रस्तुति के भीतर सभी पाठ तत्वों में नई वर्तनी भाषा होगी।


1
यह कोड Shapeसमूहों में s को प्रभावित नहीं करेगा । एक अधिक सामान्य कोड में पोस्ट किया जाता है superuser.com/a/1119420/245595
sancho.s को फिर से बहाल मोनिका

3

कई प्रस्तुतियों के बाद जहां मैंने इसे हाथ से किया या एक-एक मैक्रो का उपयोग किया, मैं आखिरकार टूट गया और इसे एक उचित PowerPoint ऐड-इन में बनाया।

मैंने इसे अपनी वेब साइट पर अपलोड किया है: PowerPoint LanguageFixer

यह ध्यान रखता है:

  • डिफ़ॉल्ट भाषा सेट करना
  • टेक्स्ट फ़्रेम के साथ सभी आकृतियाँ
  • समूहीकृत आकृतियों में पाठ फ़्रेम (जहाँ तक संभव हो)
  • तालिकाओं में पाठ
  • स्लाइड / नोट / हैंडआउट मास्टर पर सामान

अपनी इच्छित भाषा के लिए केवल एक टेक्स्ट बॉक्स सेट करें, उसे चुनें और बटन पर क्लिक करें।


1

आपकी स्थिति के आधार पर यहां दो विकल्प हैं:


स्थिति 1: कार्यालय की मूल प्रति एक कनाडाई फ्रांसीसी भाषा आधारित स्थापित मीडिया से स्थापित की गई थी।

आप डिफ़ॉल्ट भाषा को अंग्रेजी में सेट कर पाएंगे, लेकिन कोर फ़ंक्शन इंस्टॉलेशन मीडिया की मूल भाषा का उपयोग करेंगे।

एकमात्र फिक्स कनाडाई फ्रेंच संस्करण की स्थापना रद्द करना है, और एक अंग्रेजी-आधारित स्थापित मीडिया से इंस्टॉल करना या पूरी प्रस्तुति को एक नए दस्तावेज़ और पुन: प्रारूप में कॉपी / पेस्ट करना है।


स्थिति 2: सब कुछ अंग्रेजी लगता है, लेकिन सीमित परिस्थितियों में विदेशी भाषाएं दिखाई देती हैं।

इस स्थिति में, कार्यालय 2002 के लिए मरम्मत के निर्देश हैं:

  1. स्टार्ट मेनू पर क्लिक करें
  2. कार्यक्रम की ओर इशारा
  3. Microsoft Office उपकरण को इंगित करें
  4. Microsoft Office XP भाषा सेटिंग्स पर क्लिक करें।
  5. सक्षम भाषा टैब पर क्लिक करें।
  6. Microsoft Office बॉक्स के डिफ़ॉल्ट संस्करण पर जाएं
  7. अपनी इच्छित भाषा का चयन करें
  8. ओके पर क्लिक करें। एक संदेश आपको बताएगा कि क्या परिवर्तन किए जाएंगे।
  9. जारी रखें पर क्लिक करें

आशा है कि ये आपकी मदद करेगा।


आपके उत्तर के लिए धन्यवाद! यह उन स्थितियों में से कोई नहीं था, हालाँकि। क्या होता है कि हर टेक्स्ट बॉक्स को वर्तनी जांच के लिए एक अलग भाषा में सेट किया जा सकता है, और इस विशेष परिदृश्य में सभी तत्वों में गलत भाषा थी। सिस्टम में डिफ़ॉल्ट भाषा (और कार्यालय स्थापना में) अंग्रेजी है।
लियोनार्डो

0

जर्मन पावरपॉइंट के साथ प्रस्तुतिकरण और अंग्रेजी में मैन्युअल रूप से अनुवादित होने के साथ मुझे वही समस्याएं हैं। समस्या यह है कि भाषा सेटिंग अनिवार्य रूप से एक स्वरूपण है जो प्रत्येक पाठ बॉक्स तत्व पर स्वयं लागू होती है।

मुझे किसी भी सुविधाजनक समाधान के बारे में पता नहीं है - मुझे या तो मिसमैच के साथ रहना पड़ता है या प्रत्येक स्लाइड पर प्रत्येक व्यक्तिगत टेक्स्ट बॉक्स की भाषा "प्रारूप" को बदलना पड़ता है। मजाक नहीं, इसलिए ज्यादातर मैं इसके साथ रहता हूं।


0

लियोनार्डो द्वारा पोस्ट किया गया कोड सरल और आम तौर पर प्रभावी है, लेकिन यह Shapeसमूहों में प्रभावित नहीं करेगा । उस मामले से निपटने के लिए एक अधिक सामान्य कोड पुनरावर्तन का उपयोग करता है ( यहां से थोड़ा बदला गया है , जो लियोनार्डो द्वारा कोड के समान धागे में है):

Private Function ChangeLangOfAllText_caller()
    'ChangeLangOfAllText (msoLanguageIDEnglishUS)
    ChangeLangOfAllText (msoLanguageIDSpanishArgentina)
End Function

Private Function ChangeLangOfAllText(ByVal LangID As Long)
    Dim MySlide As Slide
    Dim MyShape As Shape
    Dim MyD As Design
    Dim MyHeaderFooter As HeaderFooter
    Dim i, nbs As Integer
    ''''' First deal with the master slides
    For Each MyD In ActivePresentation.Designs
        For Each MyShape In MyD.SlideMaster.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MyD
    ''''' Now deal with the slides
    ' Enable this for debugging
    'Debug.Print "File " & ActivePresentation.Name & _
      ": working with " & ActivePresentation.Slides.Count & " slides"
    For Each MySlide In ActivePresentation.Slides
        ' Enable this for debugging
        'Debug.Print " Slide index " & MySlide.SlideIndex & ", Slide number " & MySlide.SlideNumber & _
          ": working with " & MySlide.Shapes.Count & " shapes"
        For Each MyShape In MySlide.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the Notes
        For Each MyShape In MySlide.NotesPage.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the master ' doesn't appear to work, have to try something else
        For Each MyShape In MySlide.Master.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MySlide
End Function

Private Function ProcessShapes(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If ((MyShape.Type = msoGroup) Or (MyShape.Type = msoTable)) Then
        On Error Resume Next
        For i = 1 To MyShape.GroupItems.Count
            ''' The trick is to recurse!
            ProcessShapes MyShape.GroupItems.Item(i), LangID
        Next i
    Else
        ChangeLang MyShape, LangID
    End If
End Function

Private Function ChangeLang(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If (MyShape.HasTextFrame) Then
        ' Enable this for debugging
        'Debug.Print " Shape " & MyShape.ZOrderPosition & ", type: " & MyShape.Type & _
          ", has text frame: " & MyShape.HasTextFrame & ", has text: " & MyShape.TextFrame.HasText & _
          ", alt. text: " & MyShape.AlternativeText
        MyShape.TextFrame.TextRange.LanguageID = LangID
    End If
End Function
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.