On this page I am going to explain how I teach in the most effective way.
Find the Makro below which I talk about in the Video:
Sub HighlightErrorsAndGrammar()
'
' HighlightErrors Macro
'
Selection.WholeStory
Selection.ClearFormatting
ActiveDocument.AttachedTemplate.LanguageID = wdGerman
ActiveDocument.AttachedTemplate.NoProofing = False
Selection.LanguageID = wdGerman
Selection.NoProofing = False
Application.CheckLanguage = True
Dim range As range
Dim currentDoc As Document
Set currentDoc = ActiveDocument
For Each range In currentDoc.SpellingErrors
range.Font.Color = wdColorBlue
range.Font.Bold = True
Next
For Each range In currentDoc.GrammaticalErrors
range.Font.Color = wdColorGreen
Next
End Sub