Yazılara Arkafon Ekleme

Option Explicit

Sub Main
    Dim i, j, o, SEL, u, RR
    With Netcad
        Set SEL = .NewSelectionSet ' Yeni bir seçim seti oluşturuluyor
        Set o = .NewObject ' Yeni bir nesne oluşturuluyor
        If SEL.Select("İtalik yapılacak yazıları seçiniz", Array(otext)) Then ' Kullanıcıdan metin nesnelerini seçmesi isteniyor
            For i = 0 To SEL.NE - 1 ' Seçilen her nesne için döngü
                j = SEL.GetSelectedObject(i, o) ' Nesne alınıyor
                HarfDuzelt o ' Metin düzenleme fonksiyonu çağrılıyor
                .PutObject j, o ' Düzenlenen nesne geri yazılıyor
            Next
            SEL.RedrawAndRewind ' Ekran yenileniyor
            Set u = .GetCurrentWindow ' Aktif pencere alınıyor
            .SetCurrentWindow u, 1 ' Pencere güncelleniyor
        End If
        Set u = Nothing ' Kaynak serbest bırakılıyor
        Set SEL = Nothing ' Kaynak serbest bırakılıyor
        Set o = Nothing ' Kaynak serbest bırakılıyor
    End With
End Sub

Sub HarfDuzelt(o)
    If o.Tag = otext Then ' Sadece yazı objeleri için çalış
    if   o.flags = 0 then    o.flags = 4 ' normal
    if   o.flags = 1 then    o.flags = 5 ' italik
    if   o.flags = 2 then    o.flags = 6 ' altçizgi
    if   o.flags = 3 then    o.flags = 7 ' italil ve çizgi
    if   o.flags = 4 then    o.flags = 4 ' arkafon
    if   o.flags = 5 then    o.flags = 5 ' arkafon italik
    if   o.flags = 6 then    o.flags = 6 ' arkafon altçizzgi               
    if   o.flags = 7 then    o.flags = 7 ' tümü 
  
    End If
End Sub