Macro to change language for all boxes in a presentation

[djecris]

Hello everybody,

I have been struggling with a problem for a while. I have some presentations in spanish, but powerpoint (on Macbook) detects it as english and marks all words as spelling mistakes. I need to be able to mark all the boxes from all the slides as "Spanish" to make the spelling mistake detections disappear and make Powerpoint understand that the whole presentation is in Spanish. I have tried all "simple" solutions for a while without success, and I am now asking for help to build a macro to do it. I have seen in the youtube video (link below) that they have built such a macro working on Microsoft, and I would need the same for Macbook.

Is anybody here able to help me?

link:
https://www.youtube.com/watch?v=ME1EPXFe_fc

[Aussiebear]

Does this work?


Option Explicit
Public Sub ChangeSpellCheckingLanguage()
Dim j as Integer
Dim k as Integer
Dim scount as Integer
Dim 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
ActicePresentation.Slides(j).Shapes(k).TextFrame2.TextRange.LanguageID = msoLanguageIdSpanish
End If
Next k
Next j
End Sub

[djecris]

OMG YOU ARE THE BEST
You cannot imagine how much that helps me
Is there any tipping system in this kind of website ?:D

[Aussiebear]

Not for me my friend. I simply went online and researched the issue for you.

[djecris]

Not for me my friend. I simply went online and researched the issue for you.

Thank you very much! :bow:

[djecris]

Does this work?


Option Explicit
Public Sub ChangeSpellCheckingLanguage()
Dim j as Integer
Dim k as Integer
Dim scount as Integer
Dim 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
ActicePresentation.Slides(j).Shapes(k).TextFrame2.TextRange.LanguageID = msoLanguageIdSpanish
End If
Next k
Next j
End Sub


Hi Aussiebear, thanks again, you macro is helping me a lot :) I have a question: do you know how to also include the "notes" section in the macro? (the part at the bottom of every slide?)

[John Wilson]

Try this


Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
Next osld
End Sub

[djecris]

Try this


Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
Next osld
End Sub




Thank you John but it doesn't work: i've put in color the text that powerpoint told me there is a problem with (see above)

[John Wilson]

Pretty sure it does work

Did you copy paste the code?

[djecris]

Pretty sure it does work

Did you copy paste the code?

Yes here is the copy screen. Could the reason be that I am working on a Macbook?

30170

[John Wilson]

It could be because you have a Mac. I know that LanguageID wasn't supported in earlier Mac VBA but I thought it was fixed in newer versions. You may need to work with TextRange2 like this


Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
Next osld
End Sub

[djecris]

It could be because you have a Mac. I know that LanguageID wasn't supported in earlier Mac VBA but I thought it was fixed in newer versions. You may need to work with TextRange2 like this


Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
Next osld
End Sub

That works thank you John!! : pray2:: pray2:

[djecris]

Does this work?


Option Explicit
Public Sub ChangeSpellCheckingLanguage()
Dim j as Integer
Dim k as Integer
Dim scount as Integer
Dim 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
ActicePresentation.Slides(j).Shapes(k).TextFrame2.TextRange.LanguageID = msoLanguageIdSpanish
End If
Next k
Next j
End Sub


Hello! Thanks again for all the help so far. I have noticed that the macro works perfectly for all text boxes, except for the text boxes grouped with another element (in my case some text boxes are grouped with arrows or numbers so that they stick to each other when I move them). Any idea how to include them too?

[Aussiebear]

What is this group of text boxes called?

[djecris]

What is this group of text boxes called?

Thanks Aussiebear for trying to help. Here you can see in red one of the shapes I am talking about. It seems to be the same name structure, but they are marked as a sub-category.

30187

[Aussiebear]

They are not "Google" shapes. They belong to "Word".

[djecris]

They are not "Google" shapes. They belong to "Word".

Oh ok sorry for that, how can I then check how are they called? I have just taken normal text boxes and grouped them with objects or other text boxes

[John Wilson]

Try


Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
Dim L As Long
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoGroup Then
For L = 1 To oshp.GroupItems.Count
If oshp.GroupItems(L).HasTextFrame Then
oshp.GroupItems(L).TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next L
End If
If oshp.HasTextFrame Then
oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
Next osld
End Sub

[djecris]

Try


Sub toSpanish()
Dim osld As Slide
Dim oshp As Shape
Dim L As Long
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoGroup Then
For L = 1 To oshp.GroupItems.Count
If oshp.GroupItems(L).HasTextFrame Then
oshp.GroupItems(L).TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next L
End If
If oshp.HasTextFrame Then
oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
For Each oshp In osld.NotesPage.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame2.TextRange.LanguageID = msoLanguageIDSpanish
End If
Next oshp
Next osld
End Sub




It works THANK YOU! :bow: