能否通过VBA将系统默认PDF查看器改为已装Adobe Reader DC及示例

该操作完全具备可行性，但无法通过直接硬改注册表的方式实现——Win10、Win11系统对默认文件关联加了UserChoice哈希校验机制，非官方接口写入的配置会被系统自动识别并回滚。
要通过VBA实现把默认PDF查看器切到已安装的Adobe Reader DC，正确的路径是调用微软官方提供的IApplicationAssociationRegistration COM接口，这个接口是系统原生组件，不需要额外安装第三方依赖，VBA可以直接通过COM互操作调用，配置后不会触发系统的回滚机制。

• 前置检测：遍历注册表项确认本机已安装Adobe Reader DC，且对应的PDF关联ProgID（标准DC版本为AcroExch.Document.DC）注册有效
• 初始化官方关联配置COM组件
• 调用接口方法将.pdf扩展名的默认打开程序绑定到Adobe Reader DC的对应ProgID
• 校验写入结果，返回执行状态提示

' 前置枚举定义
Private Enum ASSOCIATIONTYPE
    AT_FILEEXTENSION = 0 ' 对应文件扩展名关联
End Enum

' 检测本机Adobe Reader DC安装状态
Private Function IsAdobeReaderDCReady() As Boolean
    Dim wsh As Object
    Set wsh = CreateObject("WScript.Shell")
    On Error Resume Next
    ' 检查安装路径注册表项
    Dim installPath As String
    installPath = wsh.RegRead("HKLM\SOFTWARE\Adobe\Acrobat Reader\DC\Installer\InstallPath")
    ' 检查对应ProgID是否有效注册
    Dim progIdClsid As String
    progIdClsid = wsh.RegRead("HKCR\AcroExch.Document.DC\CLSID\")
    On Error GoTo 0
    IsAdobeReaderDC = (installPath <> "") And (progIdClsid <> "")
End Function

' 主执行过程
Public Sub SetDefaultPdfToAdobeReaderDC()
    ' 前置校验
    If Not IsAdobeReaderDCReady() Then
        MsgBox "未检测到有效的Adobe Reader DC安装，无法完成默认配置", vbExclamation
        Exit Sub
    End If

    On Error GoTo ErrHandle
    Dim assocReg As Object
    ' 初始化系统官方应用关联组件
    Set assocReg = CreateObject("Microsoft.Windows.Compatibility.IApplicationAssociationRegistration")
    
    ' 写入.pdf扩展名的默认关联配置
    assocReg.SetAppAssociation _
        ASSOCIATIONTYPE.AT_FILEEXTENSION, _
        ".pdf", _
        "AcroExch.Document.DC"
    
    MsgBox "默认PDF查看器已成功切换为Adobe Reader DC", vbInformation
    Exit Sub
ErrHandle:
    MsgBox "配置失败，错误详情：" & Err.Description, vbCritical
End Sub

• 该配置属于当前Windows用户的个性化设置，不需要管理员权限即可执行，修改后仅对当前登录用户生效
• 不要尝试直接修改HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.pdf\UserChoice下的注册表项，系统内置的保护机制会识别到无合法哈希的写入操作，在资源管理器刷新时自动把关联重置为原有配置
• 如果设备安装的是旧版Adobe Reader（非DC版本），需要将代码中的ProgID替换为旧版对应的AcroExch.Document才能正常匹配
• 部分Win11 23H2及以上版本会在接口写入配置时弹出系统级的用户确认提示，属于正常的安全校验流程

内容的提问来源于stack exchange，提问作者lerxer