Word 2010: Ausgeblendeten Text drucken Ja/Nein

[Xpert]

Ich habe das Makro noch etwas ausgebaut. Hier benötigt es nur ein Makro und somit nur ein Icon, welches den Status der Option "Ausgeblendeter Text drucken" prüft und nachfragt, ob die Option ein- oder ausgeschaltet werden soll.

Sub DruckAusgeblendetEinAus()

'Makro by Xpert 2012 on http://www.pctipp.ch

On Error Resume Next

    If Options.PrintHiddenText = False Then
     If MsgBox("Es wird kein versteckter Text gedruckt, möchten Sie versteckten Text drucken?", vbYesNo) = vbYes Then
            Options.PrintHiddenText = True
           MsgBox ("Die Option versteckter Text drucken, wurde eingeschaltet")
     End If

    Else
    
        If MsgBox("Versteckter Text wird im Moment gedruckt, möchten Sie versteckten Text nicht drucken?", vbYesNo) = vbYes Then
          Options.PrintHiddenText = False
          MsgBox ("Die Option versteckter Text drucken, wurde ausgeschaltet")
        End If

    End If
End Sub

 

[Gaby Salvisberg]

Hallo Xpert

Nicht schlecht, wird ergänzt :)

Liebe Grüsse
Gaby

 

[H&S]

2. Ergänzung

Dialogboxen sind sicherlich eine Geschmacksfrage.
Hier eine kleine Modifikation, sodass man mit einem einzigen Klick auskommt, um die passende Einstellung vorzunehmen.

Mit dem Button 'Seitenansicht und Drucken' in der 'Symbolleiste für den Schnellzugriff' hat man auch immer das Ergebnis schnell vor Augen.


Sub DruckAusgeblendetEinAus()
'Makro by Xpert 2012 variiert von H&S on http://www.pctipp.ch
On Error Resume Next
If Options.PrintHiddenText = False Then
If MsgBox("Ausgeblendeten Text drucken?", vbYesNo) = vbYes Then
Options.PrintHiddenText = True
'MsgBox ("Die Option ausgeblendeten Text drucken, wurde eingeschaltet")
End If
Else
If MsgBox("Ausgeblendeten Text drucken?", vbYesNo) = vbYes Then
Else
Options.PrintHiddenText = False
'MsgBox ("Die Option ausgeblendeten Text drucken, wurde ausgeschaltet")
End If
End If
End Sub

Eine Makroerweiterung, die zusätzlich nach dem Druck die Grundeinstellung wieder herstellt wäre auch chic, überfordert aber meine Makrokenntnisse.

Christoph Schmitt