Open fonksiyonuna argüman olarak verdiğiniz adrese sahip bir belge bulunamazsa, karşınıza şunun gibi bir hata mesajı çıkabilir:
Run-time error ‘5174’:
Ne yazık ki dosyanızı bulamadık. Taşınmış, yeniden adlandırılmış veya silinmiş olabilir mi?
Mesajın tam metni işletim sisteminin sürümüne ve diline bağlı olarak farklı olabilir, ama kesinlikle verdiğiniz adreste bir dosya bulunmadığını belirtiyor olacaktır. Altyordamın çalışması da duracaktır.
Açılacak bir belgenin varlığını kontrol ettirmek için Dir fonksiyonunu kullanabilirsiniz. Bu fonksiyon aslında joker karakterlerle oluşturabileceğiniz arama kriterlerine uyan ilk dosyanın tam adresini belirler. Öyle bir dosya yoksa da boş bir karakter dizgisi verir. Siz argüman olarak arama kriteri yerine tam dosya adresini verirseniz, sonuç boş değilse, o adla bir dosya var demektir.
Belge açacak bir komuttan önce şöyle bir kontrol yaptırabilirsiniz:
belgeAdi = "TestKlasoru\" & "Test" & n & ".docx"
If Dir(belgeAdi) > "" Then
Set belge = Application.Documents.Open(belgeAdi)
Me.Content.InsertAfter (belge.Content.Text)
belge.Close
Else:
MsgBox ("Maalesef " & belgeAdi & " adlı dosyayı bulamadık.")
End If
Sırası gelen dosya yoksa bir çalışma hatası oluşmasına seyirci kalmayıp, MsgBox fonksiyonuyla kendi belirlediğiniz bir uyarı mesajı görüntülemiş olacaksınız. Kullanıcı mesaj kutusundaki “Tamam” (veya “OK”) etiketli düğmeyi tıklayıp geçtikten sonra altyordam geri kalan komutları işleme koyarak devam edecektir.