How To Delete Entries in 'Recently Used Fonts'

[Michael-D]

Hello everyone,
I am from Germany and only have my good old school English. So please forgive any grammars (if any)!!!

Two days ago, I created a Thread in the Microsoft forum called How To Delete Entries in 'Recently Used Fonts' and unfortunately did not receive any replies. I still have the Office LTSC Pro Package. Ok, here's the translated Thread in your language...

1. Right-click in the “Recently Used Fonts” window.
Result: No success!

2. In the registry under “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\ Common\Fonts,” I
added a DWORD value named “NoFontMRUList” and set it to “1” to disable the display of recently used fonts in the font selection box. Value “1”: “Recently used fonts” entry is disabled.
Value “0”: “Recently used fonts” entry is enabled.
Result: No success!


3. In the registry under “HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\ Word\Options” I added a “New String” => ‘NoFontMRUList’ and set it to the value “1”.
Result: No success!

Note: The numbers in the registry (11.0 12.0 13.0 14.0 15.0 16.0) may vary depending on the version of Word! The folder 16.0 in the registry stands for Office 2016, 2019, 2021, and LTSC!

4. Then I created Macro with content as follows...

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 "List of recently used fonts has been successfully deleted!", vbInformation, "Success"
End Sub

I get a message saying that the list has been deleted, but that's not true!
Result: No success!

5. And again: A macro written for direct deletion of the registry...

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 "List of recently used fonts has been successfully deleted!", vbInformation, "Success"
    Else
        MsgBox "An error has occurred! Make sure you have closed all Word applications.", vbCritical, "Error"
    End If
End Sub

And again: Result: No success!

I'm slowly running out of ideas. Let someone say I haven't tried everything! What a crap

Does anyone have any ideas on how I can delete this list? The crazy thing is that with every other font I use, this list keeps getting longer and longer, and fonts that I've removed from the system still appear. That's not normal!!! Microsoft should have at least included an option for this in the settings... but as always...

Thank you in advance for your help....



Regards from Cologne, Germany...
Mike

Below is a picture (framed in red) so you can see about what I'm talking about.