how to download all ms word font at once
In this video i will describe how to download all the fonts at once using macro script.
Originally i found this answer on Reddit. So thanks to the original creator of this script, and also the user that shares it.
I am sharing this so anybody can follow easily using this video tutorial.
original reddit post that i got this --
This is taken from reddit, which worked.
link in the first pinned comment.
Pause the screen in the video or copy the entire code as shown in the video
###### COPY THE CODE BELOW####
Sub DownloadAllFonts()
'
'
DownloadAllFonts Macro
'
'
para = 1
For Each fontID In Application.FontNames
ActiveDocument.Content.InsertAfter Text:=fontID
ActiveDocument.Paragraphs(para).Range.Font.Name = fontID
para = para + 1
ActiveDocument.Content.InsertAfter Text:=vbCrLf
Next
End Sub