IK ben bezig een knop te maken om de actieve word documenten en de actieve PDF bestanden allemaal te sluiten.
voor de word bestanden heb ik op internet al iets gevonden .
=================================================
maar voor de PDF bestanden heb ik nog niets werkend gekregen
ik kan ze wel openen.
met de volgende code
zoek1 is een bepaald pdf bestand
De bedoeling is dat er meerdere PDF bestanden geopend kunnen zijn en deze wil ik allemaal in eenkeer sluiten .
Wie kan mij hierbij helpen
Alvast bedankt
Ben
voor de word bestanden heb ik op internet al iets gevonden .
Code:
Sub wordsluiten()
'Switch to Microsoft Word so it won't go away when you finish.
On Error Resume Next
AppActivate "Microsoft Word"
'If Word isn't running, start and activate it
If Err Then
Shell "c:\Program Files\Microsoft Office\Office\" _
& "Winword /Automation", vbHide
AppActivate "Microsoft Word"
End If
On Error GoTo 0
'Get an Application object so you can automate Word.
Set appWord = GetObject(, "Word.Application")
appWord.Quit wdDoNotSaveChanges
End Sub=================================================
maar voor de PDF bestanden heb ik nog niets werkend gekregen
ik kan ze wel openen.
met de volgende code
zoek1 is een bepaald pdf bestand
Code:
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Shell")
Call objWSH.Run("""" & "" & zoek1 & "" & """")
Set objWSH = NothingDe bedoeling is dat er meerdere PDF bestanden geopend kunnen zijn en deze wil ik allemaal in eenkeer sluiten .
Wie kan mij hierbij helpen
Alvast bedankt
Ben
Laatst bewerkt door een moderator:
