Word - Markup drucken Option dauerhaft deaktivieren?

[Funkenschlag]

Kurze Frage. Weiß jemand ob man Word diese Option hier dauerhaft abgewöhnen kann? Jedes mal wenn man ein neues Word öffnet ist diese Option wieder von alleine aktiviert. Andersherum wäre mir lieber (nur bei Bedarf aktivieren)

 

[S.W.R.]

Google ist dein Freund...

 

[Funkenschlag]

Das ist nicht das was ich möchte. Das blendet die Markups im Dokument aus. Ich mag aber nur die Option Drucken beeinflussen.

 

[Zer0DEV]

@Funkenschlag Ich glaube das geht nicht. Auch nicht über die Policy IDs die man in den Administrativen Vorlagen der Gruppenrichtlinie auf Benutzerebene aktivieren kann, damit bestimmte Optionen in der Benutzeroberfläche der Office-Programme nicht mehr angezeigt/aktiviert werden.

Du kannst dich grundsätzlich nochmal selbst rückversichern...
https://github.com/OfficeDev/office-fluent-ui-command-identifiers/tree/main

Dort findest Du für 2013 - 2019 die "wordcontrols.xlsx". Da stehen die Policy-ID drin.
Falls Du fündig wirst...
Gruppenrichtlinien unter Windows aufrufen (gpedit.msc) und dort unter:
Benutzerkonfiguration > Administrative Vorlagen > Microsoft Word 20xx > Elemente in der Benutzeroberfläche deaktivieren > Benutzerdefiniert > Befehle deaktivieren auf "Aktiviert" setzen und dann bei Optionen auf Anzeigen gehen und die ID eingeben.

 

[Funkenschlag]

Super. Danke für die Info. Hab mir jetzt anderweitig beholfen per ChatGPT und einem Makro:

Antwort Chat GPT: Dieses Makro speichert zunächst den aktuellen Status der Änderungsverfolgung und deaktiviert sie dann vorübergehend. Anschließend werden die vorhandenen Kommentare und Notizen in temporären Variablen gespeichert und gelöscht, bevor das Dokument gedruckt wird. Nach dem Drucken werden die ursprünglichen Kommentare und Notizen an ihre ursprünglichen Positionen zurückgesetzt.

Sub DruckenMitTemporärenÄnderungen() ' Speichere den aktuellen Status der Änderungsverfolgung Dim vorherigeÄnderungsverfolgung As Boolean vorherigeÄnderungsverfolgung = ActiveDocument.TrackRevisions ' Deaktiviere die Änderungsverfolgung ActiveDocument.TrackRevisions = False ' Speichere die vorhandenen Kommentare und Notizen in temporären Variablen Dim tempKommentare As New Collection Dim tempNotizen As New Collection Dim cmt As Comment For Each cmt In ActiveDocument.Comments tempKommentare.Add cmt.Range.Text cmt.Delete Next cmt Dim note As Annotation For Each note In ActiveDocument.Annotations tempNotizen.Add note.Range.Text note.Delete Next note ' Drucke das Dokument ActiveDocument.PrintOut ' Aktiviere die Änderungsverfolgung wieder (falls erforderlich) ActiveDocument.TrackRevisions = vorherigeÄnderungsverfolgung ' Füge die zuvor gelöschten Kommentare wieder ein Dim i As Integer For i = 1 To tempKommentare.Count ActiveDocument.Comments.Add Range:=Selection.Range, Text:=tempKommentare(i) Next i ' Füge die zuvor gelöschten Notizen wieder ein For i = 1 To tempNotizen.Count ActiveDocument.Annotations.Add Range:=Selection.Range, Type:=wdAnnotationRevision, Text:=tempNotizen(i) Next iEnd Sub

 

[cumulonimbus8]

Mal eine dumme Frage:
Reicht es nicht sich ein Druck-Makro zu schreiben das einen Druckprozess ohne Markups auslöst, sofern das denn über VBA abzuschalten wäre?
Alle Markups zu lesen, zwischenzulagern und zurückzuschreiben erscheint mir zwar ambitioniert aber, salopp, überkandidelt?!

CN8

 

[AndiVo]

Hallo zusammen,

Ich habe letzte Woche im Netz nach einer Lösung gesucht, wie ich die nervigen Markups (Markierungen) in Word abstellen kann, die beim Exportieren von PDFs entstehen.
Beim Erstellen von Dokumentationen brauchen wir als Zwischenversionen PDFs, die dann jeder Mitarbeiter anschauen kann und wenn man das oft machen muss, ist das Geklicke mühsam.

Wenn man mit Markierungen/Korrekturanmerkungen in Word arbeitet und nicht bis zum Schluss alle Markierungen gelöscht hat, wird das exportierte PDF in Word immer mit den Markups exportiert, was mühsam ist, weil man bei jedem Export den Export ohne Markups anklicken muss, um zu sehen, wie die Dokumentation ohne die Markups aussieht.

Daher habe ich mir mit ChatGPT und dem Ansatz von diesem Forum ein eigenes Skript gebastelt, welches ich hier zur Verfügung stelle. Die Anleitung dazu kann hier herunter geladen werden.
Ich habe das Makro noch um die Funktion ergänzt, dass alle Inhaltsverzeichnisse und Felder vor dem Exportieren aktualisiert werden, unabhängig, ob die Drucken-Aktualisierung im verwendeten Word-File aktiviert ist.
Als erstes muss man das Makro erstellen und dann den Button in Word in der Menuleiste anfügen (siehe Anleitung).

Sub PrintWithoutMarkups()

' Makro exportiert ein Word ohne Markups und aktualisiert alle Tabellen, Inhalts- und Abbildungsverzeichnisse.
' AVO + ChatGPT 28.01.2025
' V1.0


' Alles im Word-Dokument aktualisieren:
' Quelle:

YouTube

An dieser Stelle steht ein externer Inhalt von YouTube, der den Forumbeitrag ergänzt. Er kann mit einem Klick geladen und auch wieder ausgeblendet werden.

YouTube-Embeds laden

Ich bin damit einverstanden, dass YouTube-Embeds geladen werden. Dabei können personen­bezogene Daten an YouTube übermittelt werden. Mehr dazu in der Datenschutzerklärung.

YouTube-Embeds laden

Datenschutzerklärung

, Indra Kohl
Selection.WholeStory 'Ganzes Dok markieren
Selection.Fields.Update 'Aktualisierung der Felder
Selection.HomeKey 'Spring an die 1. Position

ActiveDocument.PrintPreview 'Öffnen der Druckvorschau
ActiveDocument.ClosePrintPreview 'Schliessen der Druckvorschau

Dim pdfPath As String
Dim dlgSaveAs As FileDialog
Dim fileName As String
Dim toc As TableOfContents
Dim figTable As TableOfFigures

' Deaktiviere die Anzeige von Markups
ActiveDocument.TrackRevisions = False

' Alle Inhaltsverzeichnisse aktualisieren
For Each toc In ActiveDocument.TablesOfContents
toc.Update
Next toc

' Abbildungsverzeichnisse aktualisieren
For Each figTable In ActiveDocument.TablesOfFigures
figTable.Update
Next figTable

' Öffne den Dialog zum Speichern als PDF
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
dlgSaveAs.Title = "PDF speichern als"

' Entferne die Dateierweiterung (falls vorhanden) und setze den Standard-Dateinamen auf PDF
fileName = ActiveDocument.Name
If InStrRev(fileName, ".") > 0 Then
' Entferne die Erweiterung (.docm, .docx, etc.)
fileName = Left(fileName, InStrRev(fileName, ".") - 1)
End If



' Setze den Dateinamen und den Pfad im Dialog
dlgSaveAs.InitialFileName = ActiveDocument.Path & "\" & fileName & ".pdf"

' Zeige den Dialog an
If dlgSaveAs.Show = -1 Then
pdfPath = dlgSaveAs.SelectedItems(1) ' Gibt den ausgewählten Pfad zurück

' Überprüfen, ob der Benutzer einen Dateinamen ausgewählt hat
If pdfPath = "" Then Exit Sub

' Falls der Benutzer den Dateinamen ohne .pdf eingegeben hat, fügen wir es hinzu
If Right(pdfPath, 4) <> ".pdf" Then
pdfPath = pdfPath & ".pdf"
End If

' Speichern als PDF
On Error GoTo ErrorHandler
ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF

' PDF nach dem Speichern automatisch öffnen
Call OpenPDF(pdfPath)

Exit Sub

Else
Exit Sub
End If

ErrorHandler:
MsgBox "Fehler beim Speichern als PDF. Überprüfe den Dateipfad und versuche es erneut.", vbCritical
End Sub

' Funktion, um das gespeicherte PDF zu öffnen
Sub OpenPDF(pdfPath As String)
On Error Resume Next
' Versuche, das PDF mit dem Standard-PDF-Viewer zu öffnen
Shell "cmd /c start """" """ & pdfPath & """", vbHide
On Error GoTo 0
End Sub