Sadece Yazıyı Silmek

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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.
Kod:
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
 
Son düzenleme:

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Haluk abe Allah razı olsun, teşekkür ediyorum, resim gizli dahi olsa gene siliyor.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Estağfurullah Seyit Bey.

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

.
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,469
Excel Vers. ve Dili
Office 2010 & 2013 tr
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.
Kod:
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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.

Kod:
Sub Test()
    'Haluk - 19/06/2018
    With Selection
        .WholeStory
        .Copy
        .Delete
        .PasteAndFormat (wdFormatPlainText)
    End With
End Sub
 
Son düzenleme:

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Ben tam tersini yapan bir kod yazmışım ...... yazıları bırakıp, resimleri silmişim. :LOL:

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

.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Sayın leumruk çook teşekkür ediyorum, Allah razı olsun, mükemmel oldu, Haluk beye de teşekkür ediyorum...
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Sadece yazıları silmek için de aşağıdaki gibi bir kod kullanılabilir....

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

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Haluk bey çook teşekkür ediyorum, saygılarımı sunuyorum, Allah razı olsun, kodunuz gayet güzel çalışıyor...
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,469
Excel Vers. ve Dili
Office 2010 & 2013 tr
Sadece yazıları silmek için de aşağıdaki gibi bir kod kullanılabilir....

Kod:
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Teşekkürler Mustafa Bey.

.
 
Üst