Necesito saber si alguien sabe cómo preguntar por código en Word, si existe una clave en el registro

Moderador: Moderadores
Código: Seleccionar todo
Sub VerificarClaveRegistro()
Dim shell As Object
Dim clave As String
Dim valor As Variant
' Crear el objeto WScript.Shell
Set shell = CreateObject("WScript.Shell")
' Ruta de la clave del Registro que quieres verificar
clave = "HKEY_CURRENT_USER\Software\MiAplicacion\MiClave"
On Error Resume Next ' Ignorar errores para verificar existencia
valor = shell.RegRead(clave)
If Err.Number = 0 Then
MsgBox "La clave existe. Valor: " & valor, vbInformation, "Registro"
Else
MsgBox "La clave no existe.", vbExclamation, "Registro"
End If
On Error GoTo 0 ' Restaurar manejo de errores
End Sub
Código: Seleccionar todo
clave = "HKEY_CURRENT_USER\Software\MiAplicacion\MiClave\SubClave"