Word uygulaması yüklü değilse uyarı verdirmek

[basaksehirli]

İyi geceler. Bir önceki açtığım konuyla alakalı ama benim gibi yolu düşen arkadaşların konuyu rahatça bulup faydalanması ve forum soru çeşitliliğinin artması bakımından yeni bir konu açma gereği duydum. Aradığım kadarıyla sonuca ulaşamadım. Herhangi bir örneği varsa konumun kaldırılmasını şimdiden talep ederim.

Soru: Excel Userform arayüzünden Word'e veri aktarmayla alakalı butonum var. Butona tıkladığımızda Userform arayüzündeki veriler, Excel içerisinde gömülü Word belgelerine aktarılıyor. Herhangi bir bilgisayarda Excel uygulaması olup da Word uygulaması olmaması durumunda program hata verecektir. Ben bunu On Error komutu ile atlattım ama istediğim Word uygulaması yoksa hata mesajı verdirmek istiyorum.

Tekrardan iyi geceler, hayırlı sahurlar.

 

[Haluk]

Sub Test()
    Dim objWord As Object
    
    On Error GoTo ErrHandler:
    Set objWord = CreateObject("Word.Application")
    
'   Makro kodları buraya yazilacak....
'   .........
'   .......
'   ....
'   ..
    
    
    GoTo SafeExit:
    
ErrHandler:
    If Err.Number = 429 Then
        MsgBox "MS Word yüklenmemiş !"
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
SafeExit:
    Set objWord = Nothing
End Sub

 

[basaksehirli]

Haluk bey kod için teşekkür ederim ama vba için uyarlayamadım. Butona tıklayınca msgbox açılıyor ama içerinde -2123232434 şeklinde sayı ve altında sistem belirtilen dosyayı bulamıyor şeklinde bir yazı var.

 

[basaksehirli]

Kod üzerinde değişiklik yaparak sorunu çözdüm teşekkür ediyorum.