VB 4/6- und VBA-Forum - Beitragsübersicht -
Von Daniel Friedrich
E-Mail Dfriedrich69@gmail.com
Datum 23. März 2018 um 19:33:28
Frage Kann mir ieman helfen mit den folgenden,
Mein Acrobat Reader wurde heute durch Acrobat Reader 2017 ersetzt und ich kan den VBA code niet meer ausfuren kan ier mir iemand
vielecht helfen?


Option Explicit
Option Compare Text

'System-Konstanten für Acrobat Reader
Private Const iHKCU = &H80000001
Private Const iHKLM = &H80000002

Private Const sRegKey = "Software\Adobe\Acrobat Reader\"
Private Const sExeValue = "\Adobe\Reader %1\Reader\AcroRd32.Exe"

Private Const sExeSql = "Select * from Win32_Process Where Name='AcroRd32.Exe'"
Private Const sWinMan = "winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"
Private Const sWinReg = "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"

'Diese Function ermittelt den Programm-Pfad vom AcrobatReader
Public Function GetAcroReaderPath() As String
Dim intHKey As Variant, aValues As Variant, sValue As String, strAcroPath As String

With GetObject(sWinReg)
For Each intHKey In Array(iHKCU, iHKLM)
.EnumKey intHKey, sRegKey, aValues
If IsArray(aValues) Then
If IsNumeric(aValues(0)) Then sValue = aValues(0)
End If
Next
End With

If sValue <> "" Then
strAcroPath = Environ("ProgramFiles") & Replace(sExeValue, "%1", sValue)

With CreateObject("Scripting.FileSystemObject")
If .FileExists(strAcroPath) = False Then strAcroPath = ""
End With

GetAcroReaderPath = strAcroPath
End If
End Function

'Diese Function schließt den AcrobatReader
Public Sub CloseAcroPdfFiles()
Dim objProcess As Object

For Each objProcess In GetObject(sWinMan).ExecQuery(sExeSql)
objProcess.Terminate
Next
End Sub
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
E10: Acrobat Reader wurde heute durch Acrobat Reader 2017 ersetzt - Daniel Friedrich 23. März 2018 um 19:33:28

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Excel 2010 (VBA 6)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015