PPT: Rechtschreibüberprüfung auf deutsch stellen

Seite 1 von 1 - Forum: Applications, Apps & Drivers auf overclockers.at

URL: https://www.overclockers.at/applications/ppt-rechtschreibberprfung-auf-deutsch-stellen_256199/page_1 - zur Vollversion wechseln!

Athlon1 schrieb am 11.08.2020 um 14:16

Das PPT macht mich wahnsinnig.

Ich habe eine englische Präsentation die ich af deutsch übersetze. Er will aber immer alles auf englisch korrigieren. Habe per google gefunden man soll auf gliederungsansicht wechsel, alles markieren und dann die Korrektursprache auf deutsch stellen. Habe ich gemacht, Ergebnis ist aber wieder da gleiche, er unterstreicht alles deutsche rot und schlägt irgendwelche komischen englischen Wörter zur korrektur vor :bash:

Hat jemand noch Tipps?

Danke!

Edit: Ok, ich hab rausgeufnden dass nach Änderung der Sprache via Gliederungsnasicht zwar die Folie als "deutsch" markiert ist, aber sobal ich in ein Textfeld klicke spingt es wieder auf englisch. Mjss doch auch gehen das für alle auf einmal zu ändern, oder? Danke!

Athlon1 schrieb am 11.08.2020 um 15:02

ok...jetzt hab ich doch was gefunden das hilft, mit einem Makro gehts:

Sub ChangeProofingLanguageToGerman()
Dim j, k As Integer
Dim languageID As MsoLanguageID

'Set this to your preferred language
languageID = msoLanguageIDGerman

For j = 1 To ActivePresentation.Slides.Count
For k = 1 To ActivePresentation.Slides(j).Shapes.Count
ChangeAllSubShapes ActivePresentation.Slides(j).Shapes(k), languageID
Next k
Next j
End Sub
Sub ChangeAllSubShapes(targetShape As Shape, languageID As MsoLanguageID)
Dim i As Integer

If targetShape.HasTextFrame Then
targetShape.TextFrame.TextRange.languageID = languageID
End If

Select Case targetShape.Type
Case msoGroup, msoSmartArt
For i = 1 To targetShape.GroupItems.Count
ChangeAllSubShapes targetShape.GroupItems.Item(i), languageID
Next i
End Select
End Sub

siehe https://superuser.com/questions/432...slides-at-once/