Powerpoint: change language, delete notes and no proofing

Hi all,

Could anyone assist me for these 3 little scripts?

1. Set the language of all slides to French or English (if it helps, I don't mind having to manually select the first slide to start the script and have a message error as the script reaches the last slide)

2. Delete all notes from slides (if it helps, I can put myself in Notes Page view)

3. Set all notes text to no proofing (so as not to be bothered during spell check: however I just realised that (no proofing) is an option in Ppt for Windows, but not for Mac, so is there a work around?)

Any help would be greatly appreciated.


For reference, and if it helps, here are the corresponding macros in VBA...

****
Sub IntoEnglish()
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 = msoLanguageIDEnglishUK
End If
Next k
Next j
End Sub

***

Sub DeleteAllNotes()

Dim objSlide As Slide
Dim objShape As Shape

For Each objSlide In ActivePresentation.Slides
For Each objShape In objSlide.NotesPage.Shapes
If objShape.TextFrame.HasText Then
objShape.TextFrame.TextRange = ""
End If
Next
Next

*****

Sub NoProofing()
ActiveWindow.Selection.TextRange.LanguageID = msoLanguageIDNoProofing

End Sub