Einträge in "Zuletzt verwendete Schriftarten" löschen

Question

Guten Tag,

wie der Titel es oben sagt: Habe Office Word LTSC Pro und mir ist es nicht möglich, diese Liste (siehe Anhang) zu löschen!

Was ich versucht habe:

1. Rechte Maustaste im Fenster "Zuletzt werwendete Schriften"
   Ergebnis: Ohne Erfolg
2. In der Registry unter "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Common\Fonts"
   einen DWORD-Wert namens "NoFontMRUList" zugefügt und auf "1" gesetzt, um die Anzeige der
   zuletzt verwendeten Schriftarten im Schriftartauswahlfeld zu deaktivieren. Wert "1": Eintrag "Zuletzt verwendete Schriftarten" wird deaktiviert
   Wert "0": Eintrag "Zuletzt verwendete Schriftarten" wird aktiviert
   Ergebnis: Ohne Erfolg
3. In der Registry unter "HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\Options" eine "Neue Zeichenfolge" => "NoFontMRUList" zugefügt und auf den Wert "1" gesetzt.
   Ergebnis: Ohne Erfolg

Hinweis: Die Nummern in der Registry (11.0 12.0 13.0 14.0 15.0 16.0) können je nach Word-Version variieren!Der Ordner 16.0 in der Registry steht für Office 2016, 2019, 2021 und LTSC !

4. Ein Makro dazu mit folgenden Inhalt erstellt:

Sub ClearRecentFonts() ' Löscht Einträge der Zuletzt verwendeten Schriften
    Dim i As Integer
    Dim F As Font
    For i = 1 To 100 ' Delete entries in FontMRU
        On Error Resume Next
        F = ActiveDocument.Fonts(i)
        If F.Name <> "" Then F.Delete
        On Error GoTo 0
    Next i
    MsgBox "Liste der zuletzt verwendeten Schriftarten wurde gelöscht!", vbInformation, "Erfolg"
End Sub

Ich bekomme zwar den Hinweis, das die liste gelöscht wurde, aber das stimmt so nicht!
Ergebnis: Ohne Erfolg

5. Ein Makro zur direkten Löschung der Registry geschrieben:

Private Declare PtrSafe Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Sub ClearRecentFonts() ' Löscht Einträge der Zuletzt verwendeten Schriften
    Const HKEY_CURRENT_USER = &H80000001
    Dim RetVal As Long
    RetVal = RegDeleteKey(HKEY_CURRENT_USER, "Software\Microsoft\Office\16.0\Word\Font MRU")
    If RetVal = 0 Then
        MsgBox "Die Liste der zuletzt verwendeten Schriftarten wurde erfolgreich gelöscht.", vbInformation, "Erfolg"
    Else
        MsgBox "Es ist ein Fehler aufgetreten. Stellen Sie sicher, dass Sie alle Word-Anwendungen geschlossen haben.", vbCritical, "Fehler"
    End If
End Sub

Ergebnis: Ohne Erfolg

Also so lamgsam sind mir die Ideen dazu ausgegangen. Soll jemand mal sagen, dass ich nix probiert habe!

Hat jemand eine Idee dazu, wie ich diese Liste löschen kann? Das Verrückte daran ist, das bei jeder anderen benutzten Schriftart diese Liste immer länger wird und Schriften, die ich aus dem System entfernt habe, erscheinen immer noch. Ist doch nicht normal!!! Microsoft hätte dazu wenigstens eine Option in den Einstellungen einbauen sollen... aber wie immer...

Darum gehts es:

Answer 1

Hallo Thomas,

Michael hatte die gleiche Frage im englischsprachigen Forum gestellt:
https://www.msofficeforums.com/word/53718-how-delete-entries-recently-used-fonts.html

Dort wurde als Lösung bereitgestellt, den Registry Key
HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\16.0\Word\Options

so zu ergänzen:

Neue Zeichenfolge: NoFontMRUList
Wert: 1

(Für meine Word-Version (Microsoft 365) funktioniert die Zeichenfolge im Registry Key
HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\Options
Unter HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\16.0 müsste der Schlüssel Word\Options erst noch angelegt werden.)

Viele Grüße

Lisa

Answer 2

Hallo Michael,

vielen Dank für deine Nachricht.

Bitte stelle hier die Lösung bereit, damit andere Benuter dire auch nutzen können.

Answer 3

BEREITS ERLEDIGT

Answer 4

Habe bereits Hilfe aus dem Amerikanischen Office Forum erhalten!!! Dort wird HILFE wenigstens noch groß geschrieben. Hier hätte ich vergeblich gewartet... THEMA ERLEDIGT!