আমি কীভাবে একবারে সমস্ত পাওয়ারপয়েন্ট স্লাইডগুলির ভাষা পরিবর্তন করব?


151

যদিও এই থ্রেডটি বেশ পুরানো, মাইক্রোসফ্ট আমার জানা কোনও সমাধান দেয় নি। আমি ম্যাক ব্যবহারকারীদের জন্য আরেকটি পদ্ধতির পরামর্শ দিচ্ছি: কীনোটে আপনার উপস্থাপনাটি খুলুন, বানানের ভাষা পরিবর্তন করুন এবং সম্ভবত আপনার সম্পূর্ণ উপস্থাপনাটি সম্পাদনা করুন, তারপরে এটিকে পাওয়ারপয়েন্টে রফতানি করুন।



1
দেখে মনে হচ্ছে পাওয়ার পয়েন্টের নতুন সংস্করণটি এই ক্ষেত্রে বিশেষভাবে বগি। আমার একটি পাঠ্য বাক্স আছে যেখানে আমি সমস্ত পাঠ্যের ভাষা এ ভাষায় পরিবর্তন করেছি A. (ডিফল্ট ভাষা বি)) সুতরাং যখন আমি সেই পাঠ্য বাক্সের মধ্যে টাইপ করা শুরু করি, তখন ভাষাটি স্বয়ংক্রিয়ভাবে বিতে পরিবর্তিত হয় I ভাষা সহায়তা করে (অন্য কিছু চেষ্টা করেও) তবে না। এখন ডিফল্ট ভাষা এ, পাঠ্য বাক্সের অন্য সমস্ত পাঠ্যের ভাষা এ (এবং আমি পিপি পুনরায় চালু করেছি) তবে সমস্ত নতুন পাঠ্যটি এখনও বি হিসাবে উপস্থিত হয় তবে আমার একমাত্র অবশিষ্ট প্রশ্নটি: প্রুফিং স্যুইচ করার কোনও উপায় আছে কি? পুরোপুরি বন্ধ?
lebatsnok

হ্যাঁ বানান যাচাইয়ের মোড় ঘুরিয়ে দেওয়ার একটি উপায় রয়েছে: সমর্থন.microsoft.com/en-us/help/937422/… - আমার সমস্যার সমাধান!
lebatsnok

উত্তর:


165

পুরো পাওয়ারপয়েন্টের ভাষা সহজেই পরিবর্তন করতে, ভিউ ট্যাবটি খুলুন এবং আউটলাইন ভিউ নির্বাচন করুন ।

এখন টিপুন

  • Ctrl+ Aসব নির্বাচন করতে।
  • সরঞ্জামগুলিভাষা set সেট করতে আপনার ভাষা চয়ন করুন।

একইভাবে আপনার সমস্ত কিছু নির্বাচিত হওয়ার সাথে সাথে আপনি অন্যান্য জিনিস যেমন ফন্ট, রং ইত্যাদি পরিবর্তন করতে পারেন যদিও অবশ্যই অনেক ক্ষেত্রে স্লাইড মাস্টার পরিবর্তন করে এটি আরও ভাল করা যায়, এমন একটি উপস্থাপনা যা অনেক সম্পাদককে থাকতে পারে প্রচুর 'হার্ড' ফর্ম্যাটিং সেট থাকতে পারে অন্তর্নিহিত মাস্টার থেকে বিচ্যুত হয় এবং সামঞ্জস্য হতে পুনরায় সেট করা দরকার। আপনি পৃথক স্লাইডগুলি মাস্টার স্টাইলে পুনরায় সেট করতে পারেন তবে এর ফলে স্থানধারকরা পাশাপাশি চলতে পারে যা কিছু পরিস্থিতিতে অবাঞ্ছিত হতে পারে।

পাওয়ারপয়েন্ট 2013

  • দেখুনআউটলাইন all Ctrl+ এর মাধ্যমে সমস্ত স্লাইড (বাম মেনুতে) নির্বাচন করুন A
  • পর্যালোচনাভাষাপ্রুফিং ভাষা সেট করুন ... set সেট করার জন্য আপনার ভাষা চয়ন করুন।

আমার হিসাবে - পাওয়ারপয়েন্ট পুনঃসূচনা দরকার ছিল। সম্ভবত কারণ আমিও সম্পাদনার ভাষা পরিবর্তন করেছি :

  • পর্যালোচনাভাষাপ্রুফিং ভাষা সেট করুন ...ভাষা পছন্দসমূহ Ed সম্পাদনা করার ভাষা চয়ন করুন

31
উত্তরের জন্য ধন্যবাদ, তবে ভাষা পরিবর্তন করার পরে, নতুন টাইপ করা পাঠ্যটি এখনও আগের ভাষায় (ডিফল্ট কোনও) রয়েছে। তদুপরি, আপনি যদি মাস্টার স্লাইডগুলিতে যান, স্লাইডটি নির্বাচন করুন , আপনি লক্ষ্য করুন যে ভাষা বারের ভাষাটি এখনও ডিফল্ট, এবং এটির পরিবর্তনের মেনুটি ধূসর করে দেওয়া হয়েছে। আমি পাগল হয়ে যাচ্ছি যে এটি এত বছর মাইক্রোসফ্ট দ্বারা সমাধান করা হয়নি।
এন্ড্রজু

1
অসাধারণ! নিখুঁত না হলেও এটি অবশ্যই সহায়তা করে। আমি @ ইন্দ্রজুর সাথে একমত, কেন এখনও এটি স্থির হয়নি ?!
মাইক

1
রেকর্ডের জন্য, অফিস 2013 এ, ভাষা মেনুটি পর্যালোচনা ফলকের মধ্যে রয়েছে (প্রুফিং ভাষা সেট করুন)
মারিয়া ইনেস পার্নিসারি

2
পাওয়ারপয়েন্টটি কি হতবাকভাবে খারাপ হয় তাই না? আমার যখন এই জাতীয় সমস্যা থাকে তখন আমি প্রকৃতপক্ষে ওপেন অফিস ব্যবহার করা মিস করি। তারা একটি ভিডিওতে সংরক্ষণ করা সমর্থন করার সাথে সাথে আমি অফিস খুলতে ফিরে আসব।
mjaggard

2
এর প্রধান সীমাবদ্ধতা হ'ল যদি কেউ তাদের অসীম প্রজ্ঞায় সঠিক শিরোনাম + বিষয়বস্তু বিন্যাস ব্যবহার না করে কাস্টম পাঠ্য বাক্স তৈরি করে, তবে এটি কার্যকর হবে না।
লিলিয়ানথাল

34

পাওয়ারপয়েন্ট 2010 ব্যবহার করে আমি আউটলাইন মেনুটি খুললাম -

রূপরেখা ট্যাব

সমস্ত পাঠ্য (সিটিআরএল + এ) নির্বাচন করেছেন, ভাষার মেনুটি খোলেন এবং আমার প্রুফিং ভাষা সেট করুন

ভাষা বিকল্প

এবং এটা কাজ করে!

ভাষা মেনুটি পর্যালোচনা ফিতা ট্যাবে অবস্থিত (স্লাইড শো ট্যাবের পরে এবং স্ক্রিনশটে দৃশ্যমান নয়)।


4
কেবলমাত্র একটি একক স্লাইডের জন্য কাজ করে
হেল্জ ক্লেইন

9
এটি বেসিক স্লাইড বিন্যাসগুলির জন্য কাজ করে। এটি পাঠ্য বাক্সগুলির ভিতরে বা অন্য আকারের মধ্যে নেস্টেড পাঠ্যের জন্য ভাষা পরিবর্তন করবে না।
ডানকান জোন্স

অফিস 2007 এও কাজ করে।
আলফ্রেডো

অফিস ম্যাকেও কাজ করেছেন।
জিম ম্যাককিথ

23

বিদ্যমান উত্তরগুলি রূপরেখায় উপস্থিত পাঠ্যের জন্য কাজ করে। দুর্ভাগ্যক্রমে আমার ক্ষেত্রে এটি পাঠ্যের একটি উল্লেখযোগ্য অংশকে পরিবেশন করতে পারেনি, এতে চিত্র, টেবিল ইত্যাদি রয়েছে including

এই ম্যাক্রোটি আমার জন্য সমস্যার সমাধান করেছে:

 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" যে কোনও পছন্দসই ভাষা দ্বারা প্রতিস্থাপিত হতে পারে। ভাষার সম্পূর্ণ তালিকা এই নিবন্ধে পাওয়া যাবে

(ক্রেডিট এখানে গণিক কুমারের কাছে যায় যিনি এখানে মূল ম্যাক্রো পোস্ট করেছেন I আমি প্রথম স্তরের আকারের গোষ্ঠীকরণের জন্য সমর্থন যোগ করেছি further আরও উন্নত করতে ম্যাক্রোকে অন্যান্য গোষ্ঠীগুলি রয়েছে এমন গোষ্ঠীগুলির সন্ধানের জন্য পুনরাবৃত্তি করা যেতে পারে ইত্যাদি))


+1 শুভ সূচনা। এই উত্তরের উপর ভিত্তি করে একটি সম্পূর্ণ পুনরাবৃত্ত সংস্করণের জন্য আমার উত্তর দেখুন ।
ডানকান জোন্স

20

আমি একটি পুনরাবৃত্ত সংস্করণ প্রদান করার জন্য ইনিগোর জবাবটির উন্নতি করেছি যা সমস্ত আইটেমকে কাঙ্ক্ষিত ভাষায় পরিবর্তন করে।

এই সংস্করণটি প্রতিটি ধরণের গ্রুপ আকারের পুনরাবৃত্তভাবে তদন্ত করবে। কিছু পরীক্ষা-নিরীক্ষার পরামর্শ দেয় msoGroupএবং msoSmartArtএটি গ্রুপের প্রকারগুলি - যদি আপনি পাঠ্যের অবজেক্টগুলিকে ধারণ করতে পারে এমন অন্যান্য ধরণের আকার খুঁজে পান তবে সেই তালিকায় যুক্ত হন নির্দ্বিধায়।

Sub ChangeProofingLanguageToEnglish()
    Dim j As Long, k As Long
    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 Long

    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

1
ওএসএক্স-এ পাওয়ার পয়েন্ট 16.10 এ চালানোর সময়, আমি পেয়েছি:Compile error: Method or data member not found
ইটিয়েন লো-ডিকারি

10

আইনিগো, ডানকান, মারিয়া এবং ডোমডেভের উত্তরের ভিত্তিতে, এটি এখন এবং ভবিষ্যতে আকার, টেবিল, গোষ্ঠী, স্মার্টআর্টের জন্য কাজ করে:

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

অন্যান্য সমাধানের যখন উপর ওএসএক্স পাওয়ার পয়েন্ট 16.10 এই চলমান জন্য হিসেবে আমি পাবেন: Compile error: Method or data member not found। কোন প্রস্তাবিত সমাধান? এটি হাইলাইট বলে মনে হচ্ছে .DefaultLanguageID
এটিয়েন লো-ডিকারি

@ এটিইনলও-ডেকারি: পাওয়ার পয়েন্ট 16 এআইপি পরিবর্তন হতে পারে; আমার কাছে এটি নেই তাই আমি চেক করতে পারি না, দুঃখিত।
tricasse

উইন্ডোজ 7 তে পাওয়ারপয়েন্ট 2016 এ আমার জন্য কাজ করে (সঠিক এমএস অফিস সংস্করণটি 16.0.11029.20108)
ক্রিস্টোফার কে।

পারফেক্ট! কেবলমাত্র উন্নতির জন্য আমি স্লাইড নোট বিভাগগুলির জন্য ভাষা পরিবর্তন করা ভাবতে পারি :)
মার্কাস মঙ্গেলসডর্ফ

7

ডানকানের সংস্করণ টেবিল ছাড়াও সমস্ত কিছুর জন্য ভাল কাজ করে। আমি অন্য একটি কোড পেয়েছি যা টেবিলগুলির সাথেও কাজ করে বলে মনে হচ্ছে: https://stackoverflow.com

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

5

মাস্টারগ্যালেনের দেওয়া উত্তর ছাড়াও এবং নতুন ধরণের পাঠ্য সম্পর্কিত মন্তব্যগুলিতে সম্বোধন করতে:

আপনি যদি খেয়াল করেন যে আপনি যখনই নতুন পাঠ্য টাইপ করতে শুরু করেন (যা খুব বিরক্তিকর) তখন সেই ভাষাটি স্বয়ংক্রিয়ভাবে ফিরে আসবে, আপনাকে পাওয়ারপয়েন্টের জন্য বর্তমান ডিফল্ট ভাষা পরিবর্তন করতে হবে:

  • পাওয়ারপয়েন্ট উইন্ডোটি একটি সক্রিয় উইন্ডো কিনা তা নিশ্চিত করুন
  • মধ্যে Windows Taskbar(হ্যাঁ, পাওয়ার পয়েন্ট আসলে নয়), যদি পরীক্ষা Language barদৃশ্যমান
    • যদি না যান Control Panel > Region and Language > Keyboards and Languages। ক্লিক করুন Change keybords..., Language barট্যাবে স্যুইচ করুন এবং Docked in the taskbarবিকল্পটি পরীক্ষা করুন । (এটি উইন 7 থেকে, তাই অন্যান্য সংস্করণে কিছুটা আলাদা হতে পারে)।
  • এখন কী পদক্ষেপ - Language barটাস্কবারের মধ্যে, ভাষা কোডটি ক্লিক করুন এবং EN এ স্যুইচ করুন (আপনি যদি বর্তমানে পাওয়ারপয়েন্টে ইংরেজি ব্যবহার করতে চান)। এখন থেকে, পাওয়ারপয়েন্টে সমস্ত নতুন পাঠ্য নির্বাচিত ভাষায় হবে :-)
  • আপনি যদি আপনার মূল ভাষায় লিখতে চান তবে কেবল এটি ফিরে করুন।

1
ওহ ,শ্বর, তারা কেন এমন কিছু করবে ?! আপনাকে ধন্যবাদ, পুরোপুরি কাজ।
থিবল্ট ডি

1
একদম ঠিক! গ্রহণযোগ্য উত্তর পাশাপাশি যুক্ত করা উচিত।
এম। আবদেলহফিদ

1
তবে এটি কি-বোর্ড লেআউটও পরিবর্তন করে, তাই না? ... আমি ইংরেজি পাঠ্য টাইপ করতে চাই তবে আমি অবশ্যই আমার জার্মান কীবোর্ড লেআউটটি রাখতে চাই ....
জোহানেস এস

2
@JohannesS। যদি আপনি Enটাস্ক বারে ডান ক্লিক করেন এবং Settings..আপনি নির্বাচিত ভাষা জার্মান (ডিই) এবং ইংলিশ (এন) এ দেখতে পাবেন, আপনি যদি ইংরেজী প্রসারিত করেন তবে Keyboardsতালিকাভুক্ত হবে , কিবোর্ডগুলি প্রসারিত করবেন এবং আপনার পছন্দসই জার্মান কীবোর্ড যুক্ত করুন, সম্ভবত ইংরাজীটি সরিয়ে ফেলুন এছাড়াও। আমি এটি চেষ্টা করে দেখিনি, তবে তত্ত্বের সাথে কাজ করা উচিত ;-)
গ্যাস '

অপেক্ষা করুন, তাই আমি যদি আমার আলাদা প্রুফিং ভাষা পেতে চাই তবে আমার কীবোর্ডের ভাষাটি পরিবর্তন করা দরকার? ওটা বোকামি.
মাতেজ রাইনস্কে

3

আমি নিজের জন্য ২০১৪ সালে একটি অ্যাড-ইন করেছি যা এখনও পাওয়ার পয়েন্ট ২০১ in এ দুর্দান্ত কাজ করে htt https://github.com/wobba/officeaddin/releases/tag/v1.0.1

এটি ব্যবহৃত ভাষার জন্য স্ক্যান করে এবং আপনাকে একবারে সমস্ত পরিবর্তন করতে দেয়, লুপ করে।

এখানে চিত্র বর্ণনা লিখুন

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.