मौजूदा उत्तर पाठ के लिए काम करते हैं जो रूपरेखा में मौजूद है। दुर्भाग्य से मेरे मामले में इसने पाठ का एक महत्वपूर्ण हिस्सा शामिल नहीं किया, जिसमें आंकड़े, टेबल आदि शामिल हैं।
इस मैक्रो ने मेरे लिए समस्या हल कर दी:
Sub ChangeProofingLanguageToEnglish()
Dim j, k, m, scount, fcount, gcount 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
ActivePresentation.Slides(j).Shapes(k) _
.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS
End If
If ActivePresentation.Slides(j).Shapes(k).Type = msoGroup Then
gcount = ActivePresentation.Slides(j).Shapes(k).GroupItems.Count
For m = 1 To gcount
If ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m).HasTextFrame Then
ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m) _
.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS
End If
Next m
End If
Next k
Next j
End Sub
"MsoLanguageIDEnglishUS" जो उपरोक्त मैक्रो में उपयोग किया जाता है, को किसी भी वांछित भाषा से बदला जा सकता है। भाषाओं की पूरी सूची इस लेख में मिल सकती है
(श्रेय गणेश कुमार को जाता है जिन्होंने यहां मूल मैक्रो पोस्ट किया । मैंने पहले स्तर के आकार समूह के लिए समर्थन जोड़ा। इसे और बेहतर बनाने के लिए मैक्रो को उन समूहों की तलाश के लिए पुनरावर्ती बनाया जा सकता है जिनमें अन्य समूह शामिल हैं, आदि)