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.

sayın angelos,

Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte;Cevaplanmış Sorular kategorisi içerisine taşınıp kapatılmış ve örnek eklemesinin dahi yapılamayacağı bir konuda,mesaj eklemesinde bulunmayınız.

bu konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek yeni bir konu açarak sorununuza çözüm arayabilirsiniz.

böylece,hem bu konunun mesaj yoğunluğunu artırmamış olursunuz hem de benzer soruna maruz kalabilecek olan diğer üyelerin site içi aramalarda alternatif bir konuya da bakılmasını ve incelemesini de sağlamış olursunuz.

konunuza,örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır.

uygulamanızda herhangi bir soruna veya hataya maruz kalacak olursanız,bu hata veya sorunların gerek isimlerini ayrıntılı belirterek ya da sorunları net ifade ederek ve gerekse de ekran görüntüleri dahi eklemek sureti ile,çözümler arayabilirsiniz.

katılımcılar tarafından,açacağınız konuda uygun görülecek olan gerekli bilgi ya da örnek paylaşımlarının yapılması da mümkün olacaktır.

bilginize...iyi çalışmalar,saygılar.

Sn ozanakkaya;
 Vallahi ne diyeceğimiz bilmiyorum on numara çalışıyor şu an çok teşekkürler hatanın sebebi ne acaba herkeste çalışan bu kodlar bende neden hata veriyor, tekrar teşekkürler

sayın angelos,

aynı kod satırları içerisinde

Set WordApp = GetObject(, "Word.Application")

Set WordApp = CreateObject("Word.Application")

kullanımlarına dair fikir vermesi için,

GetObject ve CreateObject kullanımları hk.

yukarıda bağlantısı yazılı konuyu inceleyiniz.

bilginize...iyi çalışmalar,saygılar.