Unterdrückung von Fehlermeldung

[Markus Mühlich]

Hallo Ruth,

so aus dem Bauch raus gibt es zwei Möglichkeiten:

Sub OpenDoc(strLocation)

On Error Resume Next
»»Set objWord = CreateObject("Word.Application")
..
..

objWord.Documents.Open strLocation

set objWord = Nothing

End Sub

Für eleganter halte ich allerdings die Word-Version abzufragen und dann entsprechend zu reagieren:

Sub OpenDoc(strLocation)

»»Set objWord = CreateObject("Word.Application")
Select Case objWord.Version
   Case "8.0"   '=Word97
        Mach was
   Case "8.0a"  '=Word97/SP1
        Mach sonst was
   Case "?"     '=Word2000(Ich kenne die Versionsnummer nicht)
        Mach jenes
End Select
set objWord = Nothing

End

Viele Grüße aus Köln
Markus