title: With VBA, how can I check if, in Windows Explorer, the file extensions for known file types are hidden?
body: <p>Without opening Windows Explorer. I want to check for this from Word VBA.</p>
  
  <p>Thanks.</p>
  
  <p>EDIT:</p>
  
  <p>This code works now:</p>
  
  <pre><code>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." _
          &amp; vbCrLf &amp; vbCrLf &amp; " This prevents the file extension from appearing as part of the document number in" _
          &amp; "the document body and page headers.", Buttons:=vbOKOnly + vbCritical, Title:="Critical"
  End If
  </code></pre>