Goedemorgen allen,
Zoek een mogelijkheid om vanuit een Excel-file te checken of een bepaald Word-file al open is.
Zie een en ander voorbijkomen, maar niet DE oplossing
https://www.ozgrid.com/forum/index....t-open-if-it-s-already-open-just-activate-it/
Gaat er alleen om om te checken of dat document (Word) al open is om te voorkomen dat hij weer geopend wordt.
Already Thanks
Zoek een mogelijkheid om vanuit een Excel-file te checken of een bepaald Word-file al open is.
Zie een en ander voorbijkomen, maar niet DE oplossing
Code:
Sub CopyRTFDocToTemp()
WordApp dimmen als object
WordApp instellen = CreateObject("Word.Application")
'Op fout GoTo Errhandler
Met WordApp
'Controleer of het bestand al is geopend, als dat het is, omzeilt u '. Documents.Open bestandsnaam:=strpathfile", en activeer in plaats daarvan het bestand
Zo niet IsFileLocked (strpathfile) Dan
. Documents.Open bestandsnaam:=strpathfile
Anders
Documenten(strpathfile). Activeren
Beëindigen als
. ActiveDocument.Selecteren
. Selectie.Kopiëren
Eindig met
ActiveSheet.Range("A1"). Selecteren
ActiveSheet.Plakken
Met WordApp
. ActiveDocument.Sluiten
Eindig met
WordApp.Quit
WordApp instellen = Niets
CopyDataFromTemp aanroepen
Sub afsluiten
"Errhandler:
' Met WordApp
' . ActiveDocument.Sluiten
' Eindig met
' Oproep opnieuw opstarten
Sub beëindigen
Gaat er alleen om om te checken of dat document (Word) al open is om te voorkomen dat hij weer geopend wordt.
Already Thanks