vba - VBAを使用して、Windowsエクスプローラーで既知のファイルタイプのファイル拡張子が非表示になっているかどうかを確認するにはどうすればよいですか？

Question

Windowsエクスプローラーを開かずに。WordVBAから確認したいのですが。

ありがとう。

編集：

このコードは現在機能しています：

Set WshShell = CreateObject("WScript.Shell")

If WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") = 0 Then
    MsgBox Prompt:="In Windows Explorer, set the folder options to hide file extensions of known file types." _
        & vbCrLf & vbCrLf & " This prevents the file extension from appearing as part of the document number in" _
        & "the document body and page headers.", Buttons:=vbOKOnly + vbCritical, Title:="Critical"
End If