Zengin Metin Alanındaki Biçim Özellikleri Worde Aktarma

.Selection.TypeText Nz(Kayit.Fields("DURUMU"), "")

kodunun üstüne

If Nz(Kayit.Fields("DURUMU"), "") = "kaydı var" Then

                .Selection.Font.ColorIndex = wdRed

                Else

                .Selection.Font.ColorIndex = wdBlue

                End If

kodu ekle.

Çok teşekkür ederim Ozan hocam.sayenizde işlemler gerçekleşti. Çalışmalarınızda başarılar diliyorum.