https://qiita.com/NE_0813_/items/e6d9725b05b7d4e6a7b6 の改良版
コメントで教えてくれた方がいたので参考にして改良
コメントで教えてくれた方の言う通りデザイン/フォントの方が数式の誤変換も修正されるしいい感じ
でも、練習したってことでアップします！

Sub Font_Change2() 'フォントの種類別一括変換
　Dim doc_all As String
　Dim doc As Range
　Dim k As Long
　With ActiveDocument
　　doc_all = .Range(0, .Bookmarks("\EndOfDoc").End)
　End With
　For k = 1 To Len(doc_all)
　　Set doc = ActiveDocument.Range(k - 1, k)
　　With doc.Font
　　　If doc.Font.Name = "Cambria Math" Then '数式用のフォントを確認
　　　Else:
　　　　'日本語用フォント
　　　　.NameFarEast = "ＭＳ明朝 (本文のフォント - 日本語)"
　　　　'英数字用フォント
　　　　.NameAscii = "Century (本文のフォント)"
　　　　.Name = "ＭＳ明朝 (本文のフォント - 日本語)"
　　　　End If
　　End With
　Next
End Sub