Results 1 to 5 of 5
  1. #1
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Montreal, Quebec, Canada
    Posts
    261
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Easy way to switch languages? Macro maybe? (2000)

    One of the drawbacks of working in a multilingual organization is that we end up with material created in different languages, then translated into English. Now, there's nothing wrong with the translation, but for some reason the proofing is either in the orginal language or set to "no proofing." The squiggly underlines drive me nuts as nearly every word is marked as misspelled. I can't ignore 'em because I depend on the dictionary for my spel checking. ;-)

    I can't find a way to tell PowerPoint "Set everything in this file as English, please!" Nor have I had any luck in creating a macro to do the obvious: select all text and set it to English (it just doesn't work).

    Is this a lost cause? Am I destined to set the language manually for every file?

  2. #2
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Easy way to switch languages? Macro maybe? (2000)

    This macro will set the language for all of the words in the presentation to English (Canadian). HTH --Sam
    <pre>Sub english()
    ActivePresentation.Slides.Range.Shapes.Range.TextF rame.TextRange.LanguageID _
    = msoLanguageIDEnglishCanadian
    End Sub</pre>

    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  3. #3
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Easy way to switch languages? Macro maybe? (2000)

    You probably want to set the default language also. I forgot about that:
    <pre>Sub english()
    ActivePresentation.Slides.Range.Shapes.Range.TextF rame.TextRange.LanguageID _
    = msoLanguageIDEnglishCanadian
    ActivePresentation.DefaultLanguageID = msoLanguageIDEnglishCanadian
    End Sub</pre>

    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  4. #4
    2 Star Lounger
    Join Date
    Nov 2004
    Location
    Cherrybrook, New South Wales, Australia
    Posts
    116
    Thanks
    6
    Thanked 0 Times in 0 Posts

    Re: Easy way to switch languages? Macro maybe? (2000)

    Hi,
    I used the macro to convert my presentation Australian English. It works fine for the slides.
    What additional code do I need to include the Notes pages in the conversion?
    Thanks,

  5. #5
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Easy way to switch languages? Macro maybe? (2000)

    Edited by HansV to correct error

    Try

    Dim sl As Slide
    For Each sl In ActivePresentation.Slides
    sl.NotesPage.Shapes.Range.TextFrame.TextRange.Lang uageID = msoLanguageIDEnglishAUS
    Next sl

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •