Word' de makro ile ara

[tamer42]

Merhabalar,

Bir Word dosyasındaki aşağıdaki kod üzerinde;

.........
With Selection.Find
.Text = "abcdef"
End With
..............

Eğer burada aranan ifade ("abcdef") bulunursa;

MsgBox "Bulundu"

Eğer arana ifade ("abcdef") bulunamazsa;

MsgBox "Bulunamadı"

Þeklinde nasıl düzenleme yapılabilir.

İyi Çalışmalar dilerim.

 

[Haluk]

Aşağıdaki prosedürü deneyin...

Sub Test()
    With ActiveDocument.Content.Find
        .Text = "abcdef"
        .Format = False
            Do While .Execute
                i = i + 1
            Loop
        .Execute
    End With
    If i >= 1 Then
        MsgBox i & " adet bulundu..."
    Else
        MsgBox "Bulunmadi..."
    End If
End Sub

 

[tamer42]

Sn Haluk,
Çok Teşekkürler...

Aranan değeri bulduğu zaman bu kelimenin tamamını seçili hale getirme işlemi nasıl yapabilirim.

İyi Çalışmalar dilerim.

 

[Haluk]

Merhaba;

Bu işinize yarar mı ?

Sub Test2()
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "abcdef"
            Do While .Execute
                i = i + 1
            Loop
        .Execute
    End With
    If i >= 1 Then
        MsgBox i & " adet bulundu..."
    Else
        MsgBox "Bulunmadi..."
    End If
End Sub