Word Marko, mit dem in einer Schulaufgabe/Schularbeit zwischen Angabe und Lösung gewechselt werden kann. Dazu muss die Lösung markiert werden, indem sie entweder unterstrichen wird, oder sie von der Formatvorlage "Lösung (versteckt)" bzw. "Lösung (angezeigt)" erbt

Angabe-Lösung-vbs

Sub Angabe()
'
' Angabe Macro
'
'
    With ActiveDocument.Content.Find
     .ClearFormatting
     .Font.Underline = wdUnderlineDotted
     .Replacement.ClearFormatting
     .Replacement.Font.Color = wdColorWhite
     .Replacement.Font.UnderlineColor = wdColorBlack
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
     .Execute Replace:=wdReplaceAll
    End With
    '
    With ActiveDocument.Content.Find
     .ClearFormatting
     .Style = ActiveDocument.Styles("Lösung (angezeigt)")
     .Replacement.ClearFormatting
     .Replacement.Style = ActiveDocument.Styles( _
        "Lösung (versteckt)")
     .Execute Replace:=wdReplaceAll
    End With
End Sub
Sub Lösung()
'
' Lösung Macro
'
'
    With ActiveDocument.Content.Find
     .ClearFormatting
     .Font.Underline = wdUnderlineDotted
     .Replacement.ClearFormatting
     .Replacement.Font.Color = wdColorBlack
     .Replacement.Font.UnderlineColor = wdColorBlack
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
     .Execute Replace:=wdReplaceAll
    End With
    '
    With ActiveDocument.Content.Find
     .ClearFormatting
     .Style = ActiveDocument.Styles("Lösung (versteckt)")
     .Replacement.ClearFormatting
     .Replacement.Style = ActiveDocument.Styles( _
        "Lösung (angezeigt)")
     .Execute Replace:=wdReplaceAll
    End With
End Sub