8. Mesaja yazdığınız kodda
Kırmızı olan set ile başlayan kodun başına tek tırnak ekle.
Hemen altındaki if ile başlayan kodun başına tek tırnak ekle
İki satır alttaki end if kodunun başına da tek tırnak ekle.

4 satırlık koddan sadece 

Set WordApp = CreateObject("Word.Application")

Kodu aktif kalsın. Diğer 3 satırın başına yukarıda belirttiğim gibi tek tırnak ekle.

Deneyip bilgi veriniz.