Word Belgesi Makroları

[airborne]

Ekli word beelgesinde bulunan açıklamalar doğrultusunda yardıma ihtiyacım var. Yardımcı olacak üstadlara şimdiden teşekkürler.

 

[udentr2002]

merhaba ekli dosyada sayın haluk hocamın yapmış olduğu bir örnek var kendinize göre uyarlayabilrsiniz sanırım.

yer imi oluşturabilmek için

verinin yazılmasını istediğiniz alanı işaretleyip araç çubuklarından
ekle>yerimi tıklayıp isim veriyorsunuz (türkçe karakter kullanmadan isim vermelisiniz

 

[hsayar]

arkadaşlar kodları [ code ][ / code ] bloğu içinde yayınlarsanız en azından fikir sahibi olabilriz
buyrun sorum
buyrun cevabınız.

ne işe yarayacağını bileceğim ki dosyayı indireyim.

 

[udentr2002]

arkadaşlar kodları [ code ][ / code ] bloğu içinde yayınlarsanız en azından fikir sahibi olabilriz
buyrun sorum
buyrun cevabınız.

ne işe yarayacağını bileceğim ki dosyayı indireyim.

hocam özür ama [ code ][ / code ] nasıl yapılıyor onu bilmiyorum anlatırsanız belki aynı hatayı tekrarlamayız

 

[hsayar]

[ code ][ / code ] içindeki boşlukları silersen görürsün mesala bu mesajda alıntıya bas örn

Sub Kodyayınlama()

end sub

 

[udentr2002]

Yapabildimmi acaba

Private Sub CommandButton1_Click()
With ActiveDocument
.FormFields(1).Result = TextBox1
.FormFields(2).Result = TextBox2
.FormFields(3).Result = TextBox3
.FormFields(4).Result = TextBox4
End With
End Sub
[/code][/QUOTE]

 

[udentr2002]

kusura bakma hocam ya tekrar denedim bu arada arkadaşın sorusunuda engellemiş olmakta istemiyorum asma

Private Sub CommandButton1_Click()
    With ActiveDocument
        .FormFields(1).Result = TextBox1
        .FormFields(2).Result = TextBox2
        .FormFields(3).Result = TextBox3
        .FormFields(4).Result = TextBox4
    End With
End Sub

[/QUOTE]

 

[airborne]

Teşekkür ederim. yardımlarınız için. Bir Problemim daha var acaba word de auto_open makrosu nasıl yapılır. Aşağıdaki gibi deniyorum. Birtürlü olmuyor.

Private Sub auto_open ()
UserForm1.show
End Sub