Samstag, 15. Februar 2020

Verborgenen Text drucken

Quelle: https://m.pctipp.ch/tipps-tricks/artikel/word-2010-ausgeblendeten-text-drucken-ja-nein-63649/

Mit verborgenem Text können Lösungen im gleichen Arbeitsblatt eingefügt und versteckt werden. Das Arbeitsblatt kann nun einmal mit und einmal ohne Lösungen gedruckt werden.
Mit folgendem Makro kann das Drucken von verborgenem Text aktiviert bzw. deaktiviert werden.

Schalte im Menü von Word die Entwickltertools hinzu, falls du dies nicht schon gemacht hast.


Gehe nun auf Visual Basic - Normal - Mircosoft Word Objekte und wähle ThisDocument mit Doppelklick aus. Es wird ein leeres Fenster geöffnet, in welches du den untenstehenden Makrotext einfügen kannst. 



Makro:

Sub DruckAusgeblendetEinAus()
'Makro by Xpert 2012 on www.pctipp.ch
On Error Resume Next
If Options.PrintHiddenText = False Then
If MsgBox("Soll ausgeblendeter Text gedruckt werden?", vbYesNo) = vbYes Then
Options.PrintHiddenText = True
Rem MsgBox ("Die Option ausgeblendeten Text drucken, wurde eingeschaltet")
End If
Else
If MsgBox("Soll ausgeblendeter Text NICHT mehr gedruckt werden?", vbYesNo) = vbYes Then
Options.PrintHiddenText = False
Rem MsgBox ("Die Option ausgeblendeten Text drucken, wurde ausgeschaltet")
End If
End If
End Sub


Dann kannst du das ganze speichern und schliessen.

Nun kannst du das Makro über das Menü Datei - Optionen - Symbolleiste für den Schnellzugriff in die Wordleiste einfügen, damit du per Mausklick zwischen Drucken mit und ohne Text umschalten kannst.