Field-Renk sorunu?

[prtkl]

Herkese merhabalar,
Küçük bir sorunla boğuşuyorum, yardım ederseniz çok sevinirim.

Word belgesi içerisinde herhangi bir işlem yapmadan, aşağıdaki kodlarda yapacağım bir değişiklikle; fieldlere texboxlardan gönderilen verilerilerden sadece Tel.Text in renginin word belgesinde kırmızı gözükmesini nasıl sağlayabilirim?

Private Sub Gönder_Click()
Dim ss As Field
Dim bilgiler(4) As String
bilgiler(0) = Ad.Text
bilgiler(1) = Soyad.Text
bilgiler(2) = Yaş.Text
bilgiler(3) = Tel.Text
Dim i As Integer
 i = 0
For Each ss In ActiveDocument.Content.Fields
ss.Result.Text = bilgiler(i)
 i = i + 1
Next
End Sub

Dosya ektedir.İyi çalışmalar.

 

[Ferhat Pazarçevirdi]

Merhabalar,

En basit şekliyle, "field"leri seçip, font rengini ayarlayabilirsiniz. Bunun için; döngünüze kırmızı ile gösterdiğim satırları ilave ediniz.

....
For Each ss In ActiveDocument.Content.Fields
   ss.Result.Text = bilgiler(i)
[COLOR=red]  ss.Select[/COLOR]
[COLOR=red]  Selection.Font.Color = RGB(255, 0, 0)[/COLOR]
   i = i + 1
Next
...

.

 

[prtkl]

Ferhat Bey merhabar,

Çözüm için çok teşekkür ederim. Kod yazma bilgim çok zayıf olduğundan projem için sitede bulduğum hazır kodları kullanıyorum; bu yüzden de basit noktalarda takılıp kalıyorum arasıra. Verdiğiniz örnekten yola çıkarak istediğimi yapmaya çalıştımsa da tek bir fielde uyarlayamadım kodu.

Verdiğiniz kodla bütün fieldlerin rengi kırmızı oldu. Sadece 3 numaralı field in (Tel) kırmızı olmasını nasıl sağlayabilirim.

İlginiz için teşekkürler. Kolaygelsin.

 

[prtkl]

biraz daha zorladım kendimi sizce aşağıdaki kodlar çözüm için mantıklı olmuş mu?

...
For Each ss In ActiveDocument.Content.Fields
ss.Result.Text = bilgiler(i)
[COLOR="Red"]If i = 3 Then
ss.Select
Selection.Font.Color = RGB(255, 0, 0)
Else
ss.Select
Selection.Font.Color = RGB(0, 0, 0)
End If[/COLOR]
i = i + 1
Next
...

 

[Ferhat Pazarçevirdi]

Evet, düzenlediğiniz şekliyle, kod iş görür. Siyah font rengi zaten mevcut olduğu için, kodlarda, siyah renge dönüştürmenin bir anlamı yok. Bunu gözönüne alarak, şu şekilde kodunuzu düzenleyiniz.

For Each ss In ActiveDocument.Content.Fields
    ss.Result.Text = bilgiler(i)
    If i = 3 Then
        ss.Select
        Selection.Font.Color = RGB(255, 0, 0)
    End If
    i = i + 1
Next

Not : Field'leri başlangıcı 0'a indexlenmiş olabilir. Bu durumda, i=2'yi kullanarak ilgili field'i renklendirebilirsiniz.