Bu Word makrosunu nasıl yazabirim?

[rdemir]

Değerli arkadaşlar icra takip işlerinde yararlanmak için worde bir makro eklemek istiyorum. Yapmak istediğim şu; Makro çalıştığı zaman metinde istediğim yere istenen banka isimlerini sırası ile yerleştirerek yazıcıdan çıktı alabileyim.
Bu konuda acil yardıma ihtiyacım var. Saygılarımla.

 

[efeksk]

Sn. rdemir

Word olarak istemiş olduğunuz yazışma eki excel ile düzenlenmiştir. Office 2007 sürümü kullanıyorsanız eğer dosyayı açtığınızda makroyu çalıştır komutuna tıklayınız.

 

[rdemir]

Teşekkür

Üstadım ellerine sağlık, çok güzel bir makro yazmışsın. Ama sanırım ben ne istediğimi tam olarak anlatamdım. Bu konuda ayrıntılı bir çalışma yapıp tekrar dğerli bilgilerinizden istifade etmeye çalışacağım.

 

[efeksk]

Estafirullah. Detaylı bi çalışma gönderirseniz ona göre yeniden yardımcı olmaya çalışırım.

 

[leumruk]

Merhaba,
Aşağıdaki kodu deneyin. Kodu makro çalıştır kısmından çalıştırabilirsiniz.

Sub Makro1()
deg = Array("ZİRAAT BANKASI ŞUBE MÜDÜRLÜĞÜ'NE", "YAPI KREDİ BANKASI ŞUBE MÜDÜRLÜĞÜ'NE", "HALK BANKASI ŞUBE MÜDÜRLÜĞÜ'NE", "VAKIFBANK ŞUBE MÜDÜRLÜĞÜ'NE", "DENİZBANK ŞUBE MÜDÜRLÜĞÜ'NE")
For x = LBound(deg) To UBound(deg)
Selection.GoTo What:=wdGoToBookmark, Name:="banka_adi"
Selection.TypeText Text:=deg(x)
ActiveDocument.PrintOut
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = deg(x)
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

 

[rdemir]

Teşekkür

Üstadım ellerine sağlık, tam istediğim gibi olmuş, vakit ayırdığınız için teşekkür ederim.

 

[assenucler]

Teşekkürler...