Sub just_Numbers()
Dim iCol As Integer
Dim iRow As Integer
Dim otbl As Table
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
Select Case oshp.HasTable
Case False
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then Call fixLang(oshp)
End If
Case True
Set otbl = oshp.Table
For iRow = 1 To otbl.Rows.Count
For iCol = 1 To otbl.Columns.Count
If otbl.Cell(iRow, iCol).Shape.TextFrame.HasText Then Call _
fixLang(otbl.Cell(iRow, iCol).Shape)
Next iCol
Next iRow
End Select
Next oshp
Next osld
End Sub
Sub fixLang(oshp As Shape)
Dim W As Long
For W = 1 To oshp.TextFrame.TextRange.Words.Count
If IsNumeric(oshp.TextFrame.TextRange.Words(W)) Then
oshp.TextFrame.TextRange.Words(W).LanguageID = msoLanguageIDEnglishUS
End If
Next W
End Sub
Bookmarks