একটি পাওয়ার পয়েন্ট উপস্থাপনার বানান পরীক্ষা ভাষা পরিবর্তন করুন

Question

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

এই কাজ করতে একটি ভাল উপায় আছে কি?

PowerPoint I এর সংস্করণটি ইনস্টল হয়েছে 2002 SP3।

Comments

একটি উত্তর যোগ করা বলে মনে হচ্ছে না (যথেষ্ট rep হচ্ছে থাকার সত্ত্বেও)। সেখানে ম্যাক ব্যবহারকারীদের জন্য: macscripter.net/viewtopic.php?id=38622 অনেক ব্যবহারের জন্য সংশোধন করা যেতে পারে যে একটি আশ্চর্যজনক আপেল স্ক্রিপ্ট প্রদান করে।

— Etienne Low-Décarie

এখানে উল্লিখিত আপেলস্ক্রিপ্টের একটি তালিকা আছে: gist.github.com/4440395

— Etienne Low-Décarie

Answer 1

আমি জানি যে একটি উত্তর ইতিমধ্যে গ্রহণ করা হয়েছে (যা আমি এটি +1 করে দিয়েছি এবং এটি ভাল লেখা আছে), কিন্তু কিছু লোকের কাছে একটি ম্যাক্রো ব্যবহার, সংরক্ষণ, সংরক্ষণের ধারণা খুব ভীতিজনক হতে পারে (অথবা তাদের মধ্যে সুরক্ষা সেটিংস থাকতে পারে এই অর্জন করা কঠিন যে জায়গা)। তাই একটি সহজ সমাধান এটি করতে স্বাভাবিক অন্তর্নির্মিত কার্যকারিতা ব্যবহার করা হয়। কৌশলটি স্লাইডগুলির পরিবর্তে একবারে সমস্ত স্লাইডে সমস্ত বস্তু নির্বাচন করতে সক্ষম হ'ল এবং এটি সহজে রূপরেখা দর্শনে অর্জন করা যায় (দুঃখজনকভাবে একটি অন্তর্নিহিত বৈশিষ্ট্য, তবে স্লাইড ডেক পুনর্বিন্যাসের জন্য দারুন, সমগ্র অংশগুলিকে প্রচার এবং স্থগিত করা, যেমন বুলেটগুলি> নতুন স্লাইড বা বিপরীত)।

আমার পাওয়ারপয়েন্ট 2002 ("এক্সপি") নেই তাই আমি নিশ্চিত নই যে আপনাকে যদি ২000 বা ২003 এর জন্য নির্দেশাবলী অনুসরণ করতে হয় তবে আমি এখানে দুটোই আচ্ছাদন করি:

• পিপি 2000 : সীমারেখা ভিউতে যান, যা পর্দার নীচে বাম দিকের বাম দিকের দ্বিতীয় আইকন (ইন্ডেন্টেশনের সাথে লাইনগুলির মত দেখায়)।
• পিপি 2003 এর পরে : "স্বাভাবিক" ভিউতে যান (তিনটি ফলক বিন্যাস) এবং স্লাইড নেভিগটারের শীর্ষে "স্লাইডস" এর পরিবর্তে "রূপরেখা" নির্বাচন করুন

পুরোনো সংস্করণে, নিশ্চিত করুন যে আপনার আউটলাইনিং সরঞ্জামদণ্ডটি দৃশ্যমান ( দৃশ্য করুন & gt; সরঞ্জাম দণ্ড করুন & gt; outlining ) এবং ক্লিক করুন সব কিছু বিশদভাবে ব্যক্ত করা বোতাম (পরবর্তী সংস্করণগুলি আপনাকে ডান ক্লিকের মাধ্যমে এটিকে পেতে দেয়)।

• জন্য Ctrl-এ সব নির্বাচন করুন।
• সরঞ্জামসমূহ করুন & gt; ভাষা করুন & gt; সেট করতে আপনার ভাষা চয়ন করুন।
• (পাওয়ার পয়েন্ট 2013 থেকে) পর্যালোচনা করুন & gt; ভাষা করুন & gt; প্রুফিং ভাষা সেট করুন

কাজ শেষ.

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

Comments

শুধু একটি দ্রুত নোট: সম্ভবত নিম্নোক্ত বাক্যের সাহায্যে সমাধান করুন, যাতে সমাধানটি অবিলম্বে স্পষ্ট হয়: 'কৌশলটি স্লাইডগুলির পরিবর্তে সমস্ত স্লাইডে সমস্ত বস্তু নির্বাচন করতে সক্ষম হ'ল এবং এটি সহজেই অর্জন করা যায় রূপরেখা দেখুন '

— Rabarberski

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

— Leonardo

হ্যাঁ, আমি মনে করি লোকে প্রচুর স্বাধীন পাঠ্য বাক্স যুক্ত করলে এই মূল ম্যাক্রো পোস্ট করার মতো পদ্ধতি ব্যবহার করে এটি নির্বাচন করতে হবে।

— AdamV

আমার জন্য, এটি শুধুমাত্র পাওয়ারপয়েন্ট ২010 এর বিদ্যমান পাঠ্যতে কাজ করেছে। নতুন যোগ করা পাঠ্যের জন্য, ভাষাটি এখনও কিছু ক্ষেত্রে পরিবর্তিত হবে।

— Pieter

এই পর্যন্ত এই সঙ্গে ডিল করার সবচেয়ে পরিষ্কার উপায়। এটা খুব 2013 সংস্করণে কাজ করে।

— GoTTimw

Answer 2

এই থ্রেড আমার জন্য কাজ যে উত্তর রয়েছে।

আমি অনুসরণ ধাপ ছিল:

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 টি টিপে, বা সরঞ্জাম, ম্যাক্রো, ম্যাক্রো, চেঞ্জস্পেল চেকিং ভাষা নির্বাচন করে এবং রান ক্লিক করে)।

তারপরে উপস্থাপনায়ের মধ্যে সমস্ত পাঠ্য উপাদান নতুন বানান ভাষা থাকবে।

Comments

এই কোড এটা প্রভাবিত করবে না Shape গ্রুপের মধ্যে। একটি আরো জেনেরিক কোড পোস্ট করা হয় superuser.com/a/1119420/245595

— sancho.s

Answer 3

অনেক উপস্থাপনা পরে যেখানে আমি হাত দিয়ে এটি ব্যবহার করেছিলাম বা এক বন্ধ ম্যাক্রো ব্যবহার করেছি, অবশেষে আমি তা ভেঙে দিয়ে সঠিক পাওয়ারপয়েন্ট অ্যাড-ইন তৈরি করেছি।

আমি এটি আমার ওয়েব সাইটে আপলোড করেছি: পাওয়ার পয়েন্ট লিংক ফিক্সার

এটি যত্ন নেয়:

• ডিফল্ট ভাষা সেটিং
• টেক্সট ফ্রেম সঙ্গে সব আকার
• গোষ্ঠী আকারে টেক্সট ফ্রেম (যতদূর সম্ভব)
• টেবিল টেক্সট
• স্লাইড / নোট / হ্যান্ডআউট মাস্টার উপর স্টাফ

আপনার পছন্দের ভাষাতে পাঠ্য বাক্সগুলির একটি সেট করুন, এটি নির্বাচন করুন এবং বোতামটিতে ক্লিক করুন।

Answer 4

এখানে আপনার পরিস্থিতি অনুসারে দুটি বিকল্প রয়েছে:

---

পরিস্থিতি 1: কানাডীয় ফ্রেঞ্চ ভাষা ভিত্তিক ইনস্টল মিডিয়া থেকে অফিসের মূল কপি ইনস্টল করা হয়েছিল।

আপনি ডিফল্ট ভাষাটি ইংরাজিতে সেট করতে সক্ষম হবেন তবে মূল ফাংশন ইনস্টলেশন মিডিয়াটির স্থানীয় ভাষা ব্যবহার করবে।

একমাত্র সমাধান কানাডিয়ান ফরাসি সংস্করণটি আনইনস্টল করা, এবং একটি ইংরেজী-ভিত্তিক ইনস্টল মিডিয়া থেকে ইনস্টল করুন বা সমগ্র উপস্থাপনাটিকে একটি নতুন ডক এবং পুনরায় বিন্যাসে অনুলিপি / আটকান।

।

---

পরিস্থিতি 2: সবকিছু ইংরেজিতে বলে মনে হয়, কিন্তু সীমিত পরিস্থিতিতে বিদেশী ভাষা প্রদর্শিত হয়।

এই অবস্থায়, এখানে অফিস 2002 এর জন্য মেরামত নির্দেশাবলী রয়েছে:

1. স্টার্ট মেনু ক্লিক করুন
2. প্রোগ্রাম পয়েন্ট
3. মাইক্রোসফ্ট অফিস সরঞ্জাম পয়েন্ট
4. মাইক্রোসফ্ট অফিস এক্সপি ভাষা সেটিংস ক্লিক করুন।
5. সক্রিয় ভাষা ট্যাবে ক্লিক করুন।
6. মাইক্রোসফ্ট অফিস বক্সের ডিফল্ট সংস্করণে যান
7. আপনি চান ভাষা নির্বাচন করুন
8. ঠিক আছে ক্লিক করুন। একটি বার্তা প্রদর্শিত হবে আপনাকে কি পরিবর্তন করা হবে বলছে।
9. অবিরত ক্লিক করুন

---

আশা করি এটা কাজে লাগবে.

Comments

আপনার উত্তরের জন্য ধন্যবাদ! এটা কোন পরিস্থিতিতে ছিল না, যদিও। কী ঘটেছে যে বানান পরীক্ষণের জন্য প্রতিটি পাঠ্য বাক্স একটি ভিন্ন ভাষাতে সেট করা যেতে পারে, এবং এই বিশেষ পরিস্থিতিতে সমস্ত উপাদান ভুল ভাষা ছিল। সিস্টেমের ডিফল্ট ভাষা (এবং অফিসে ইনস্টলেশনে) ইংরেজি।

— Leonardo

Answer 5

আমি জার্মান পাওয়ারপয়েন্টের সাথে উপস্থাপিত উপস্থাপনাগুলির সাথে একই সমস্যা এবং ম্যানুয়ালি ইংরেজীতে অনুবাদ করেছি। সমস্যা হল যে ভাষা সেটিংটি মূলত একটি ফর্ম্যাটিং যা প্রতিটি টেক্সট বক্স উপাদান প্রয়োগ করা হয় ঠিক নিজের মতো.

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

Answer 6

কোড লিওনার্দো পোস্ট করেছেন সহজ এবং সাধারণত কার্যকর, কিন্তু এটি প্রভাবিত করবে না Shape গ্রুপের মধ্যে। একটি আরো জেনেরিক কোড যে ক্ষেত্রে মোকাবেলা করতে recursion ব্যবহার করে (সামান্য পরিবর্তিত এখানে , যা লিওনার্দো কোডের মতো একই থ্রেডে রয়েছে):

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