Sadece Yazıyı Silmek

[Seyit Tiken]

S.A,
Arkadaşlar Word Sayfasında yazı ve resimler mevcut, kodla sadece yazıları silebilir miyiz?, teşekkür ediyorum, Allah razı olsun.
Kullandığım Kod yazıyla beraber resimleri de siliyor.

Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1

 

[Haluk]

Word belgesi içine yerleştirilen resimler, yerleştirildikteki bölümlere bağlandıkları için; yazının silindiği bölüm VBA ile silinirken, resim de silinir.

Bu nedenle, pek mümkün görünmüyor.

.

 

[Seyit Tiken]

Haluk abe Allah razı olsun, teşekkür ediyorum, resim gizli dahi olsa gene siliyor.

 

[Haluk]

Estağfurullah Seyit Bey.

Sanırım başka bir yol bulmanız gerekecek ....

.

 

[leumruk]

S.A,
Arkadaşlar Word Sayfasında yazı ve resimler mevcut, kodla sadece yazıları silebilir miyiz?, teşekkür ediyorum, Allah razı olsun.
Kullandığım Kod yazıyla beraber resimleri de siliyor.

Selamlar,
Seyit Bey, yazı karakterlerini döngüye alarak replace metoduyla isteğinizi gerçekleştirebilirsiniz.
Eklediğim kod resim hariç tüm karakterleri silecektir.

Sub nktsl()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
For X = 1 To 255
    With Selection.Find
        .Text = Chr(X)
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
Next
MsgBox "Karakterler silindi."
End Sub

 

[Haluk]

Sayın leumruk'un çözümüne alternatif olarak, aşağıdaki kodu da deneyebilirsiniz.

Döngü kullanılmadığı için daha hızlı çalışacaktır. Tek sıkıntısı; eğer metinlerde biçimlendirme yapıldıysa, bunlar kalkacaktır.

Sub Test()
    'Haluk - 19/06/2018
    With Selection
        .WholeStory
        .Copy
        .Delete
        .PasteAndFormat (wdFormatPlainText)
    End With
End Sub

 

[Haluk]

Ben tam tersini yapan bir kod yazmışım ...... yazıları bırakıp, resimleri silmişim.

Neyse, alternatif olsun ....... belki birisinin işine yarar.

.

 

[Seyit Tiken]

Sayın leumruk çook teşekkür ediyorum, Allah razı olsun, mükemmel oldu, Haluk beye de teşekkür ediyorum...

 

[Haluk]

Sadece yazıları silmek için de aşağıdaki gibi bir kod kullanılabilir....

Sub Test2()
    'Haluk - 20/06/2018
    '
    With Selection.Find
        .Text = "^?"
        .Replacement.Text = ""
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
End Sub

 

[Seyit Tiken]

Haluk bey çook teşekkür ediyorum, saygılarımı sunuyorum, Allah razı olsun, kodunuz gayet güzel çalışıyor...

 

[leumruk]

Sadece yazıları silmek için de aşağıdaki gibi bir kod kullanılabilir....

Sub Test2()
    'Haluk - 20/06/2018
    '
    With Selection.Find
        .Text = "^?"
        .Replacement.Text = ""
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Evet, Böylece kod mükemmele ulaştı. Elinize sağlık...

 

[Haluk]

Teşekkürler Mustafa Bey.

.