Spelling

And this is an add-in that you can create for fixing spelling. This article
describes creating and installing an add-in (you don't need any of there
code - just create paste save and install)
http://support.microsoft.com/kb/q222737/


Sub Auto_Open()
On Error Resume Next
Dim oToolbarL As CommandBar 'Build a toolbar
Dim oButtonUK As CommandBarButton 'A button for the toolbar
Dim oButtonUS As CommandBarButton
Dim oButtonNone As CommandBarButton
Dim oButtonNoProofing As CommandBarButton
Dim LanguageToolbar As String

' Give the toolbar a name
MyToolbar = "Languages"

' First, delete the toolbar if it already exists
On Error Resume Next ' so that it doesn't stop on the next line if
the toolbar doesn't exist
Application.CommandBars(LanguageToolbar).Delete
On Error GoTo errorhandler ' turns error handling back on

' Build the command bar
Set oToolbarL = CommandBars.Add(Name:=LanguageToolbar,
Position:=msoBarTop, Temporary:=True)

' Now add a button to the new toolbar
Set oButtonUK = oToolbarL.Controls.Add(Type:=msoControlButton)
With oButtonUK ' And set some of the button's properties
.DescriptionText = "Language for spell checking" 'Tooltip text
when mouse if placed over button
.Caption = "Spelling UK" 'Text if Text in Icon is chosen
.OnAction = "Language_UK" 'Runs the Sub Button1() code when
clicked
.Style = msoButtonIcon 'AndCaption ' Button displays as icon,
not text or both
.FaceId = 2566 'chooses icon # from the available Office
icons
End With


' Now add a button to the new toolbar
Set oButtonUS = oToolbarL.Controls.Add(Type:=msoControlButton)
With oButtonUS ' And set some of the button's properties
.DescriptionText = "Language for spell checking" 'Tooltip text
when mouse if placed over button
.Caption = "Spelling US" 'Text if Text in Icon is chosen
.OnAction = "Language_US" 'Runs the Sub Button1() code when
clicked
.Style = msoButtonIcon 'AndCaption ' Button displays as icon,
not text or both
.FaceId = 1613 'chooses icon # from the available Office
icons
End With



' Now add a button to the new toolbar
Set oButtonNoProofing = oToolbarL.Controls.Add(Type:=msoControlButton)
With oButtonNoProofing ' And set some of the button's properties
.DescriptionText = "Language for spell checking" 'Tooltip text
when mouse if placed over button
.Caption = "Spelling No Proofing" 'Text if Text in Icon is
chosen
.OnAction = "Language_NoProofing" 'Runs the Sub Button1() code
when clicked
.Style = msoButtonIcon 'AndCaption ' Button displays as icon,
not text or both
.FaceId = 1611 'chooses icon # from the available Office
icons
End With



' Now add a button to the new toolbar
Set oButtonNone = oToolbarL.Controls.Add(Type:=msoControlButton)
With oButtonNone ' And set some of the button's properties
.DescriptionText = "Language for spell checking" 'Tooltip text
when mouse if placed over button
.Caption = "Spelling None" 'Text if Text in Icon is chosen
.OnAction = "Language_None" 'Runs the Sub Button1() code when
clicked
.Style = msoButtonIcon 'AndCaption ' Button displays as icon,
not text or both
.FaceId = 1610 'chooses icon # from the available Office
icons
End With




oToolbarL.Visible = True

Exit Sub ' so it doesn't go on to run the errorhandler code

errorhandler:
'Just in case there is an error
MsgBox Err.Number & vbCrLf & Err.Description

End Sub


Sub Language_UK()
' Declare variables.
Dim sld As Slide
Dim shp As Shape

' Loop through all of the slides in the presentation.
For Each sld In ActivePresentation.Slides

' Loop through each shape on each slide.
For Each shp In sld.Shapes

' If the Shape is a text box...
If shp.Type = msoTextBox Or msoPlaceholder Then
If shp.HasTextFrame Then

' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
' List of languages can be found at:
'
http://support.microsoft.com/default.aspx?scid=kb;en-us;221435
' 2057 = English U.K.
shp.TextFrame.TextRange.LanguageID = 2057

End If
End If
Next
Next
End Sub
Sub Language_US()
' Declare variables.
Dim sld As Slide
Dim shp As Shape

' Loop through all of the slides in the presentation.
For Each sld In ActivePresentation.Slides

' Loop through each shape on each slide.
For Each shp In sld.Shapes

' If the Shape is a text box...
If shp.Type = msoTextBox Or msoPlaceholder Then
If shp.HasTextFrame Then

' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
' List of languages can be found at:
'
http://support.microsoft.com/default.aspx?scid=kb;en-us;221435
' 2057 = English U.S.
shp.TextFrame.TextRange.LanguageID = 1033

End If
End If
Next
Next
End Sub
Sub Language_NoProofing()
' Declare variables.
Dim sld As Slide
Dim shp As Shape

' Loop through all of the slides in the presentation.
For Each sld In ActivePresentation.Slides

' Loop through each shape on each slide.
For Each shp In sld.Shapes

' If the Shape is a text box...
If shp.Type = msoTextBox Or msoPlaceholder Then
If shp.HasTextFrame Then

' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
' List of languages can be found at:
'
http://support.microsoft.com/default.aspx?scid=kb;en-us;221435
' 1024 = No Proofing
shp.TextFrame.TextRange.LanguageID = 1024

End If
End If
Next
Next
End Sub
Sub Language_None()
' Declare variables.
Dim sld As Slide
Dim shp As Shape

' Loop through all of the slides in the presentation.
For Each sld In ActivePresentation.Slides

' Loop through each shape on each slide.
For Each shp In sld.Shapes

' If the Shape is a text box...
If shp.Type = msoTextBox Or msoPlaceholder Then
If shp.HasTextFrame Then

' NOTE: To change the language ID to another language,
' change the msoLanguageID value here to a
' different language.
' List of languages can be found at:
'
http://support.microsoft.com/default.aspx?scid=kb;en-us;221435
' 0 = Language (None)
shp.TextFrame.TextRange.LanguageID = 0

End If
End If
Next
Next
End Sub