metin kopyalama ve silme.

[tukayf]

ekteki dosya içerisinde de belirttim.
1. sorum sayfa içerisinde tablodaki belli metinlerle başlayıp biten satırları silmek istiyorum.
2. sorum iki metin arasını nasıl kopyalayabiliriz. yani 2 paragraf arasını kopyalamak istiyorum.

yardımlar için şimdiden teşekkürler.

 

[hamitcan]

1.sorunuz;

Sub Sil()
    For i = ActiveDocument.Tables(1).Rows.count To 2 Step -1
     ActiveDocument.Tables(1).Rows(i).Delete
    Next
End Sub

 

[tukayf]

sn. hamitcan teşekkür ederim ama hata verdi bende. siz kontrol etmiş miydiniz kodu. run time error 32809 Appication-defined or object defined error.

 

[hamitcan]

Ben denedim, bende çalışıyor. Acaba eklediğiniz dosyadan farklı bir dosyada mı çalıştırdınız ?
Ayrıca koda bir eklenti daha yaptım.

Sub Sil()
    For i = ActiveDocument.Tables(1).Rows.count To 2 Step -1
     ActiveDocument.Tables(1).Rows(i).Delete
    Next
    With Selection.Find
        .Text = "Olay Özeti" & vbTab & "    : "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[tukayf]

hocam 2. kod harika ama belgede bulunan sadece ilk tabloyu siliyor geri kalan tablolara herhangi bir müdahalede bulunmuyor. bunu düzeltebilir miyiz. bazen belgede tablolardan yaklaşık 40-50 tane olabiliyor. tekrar teşekkürler.

 

[tukayf]

hocam 2. kod harika ama belgede bulunan sadece ilk tabloyu siliyor geri kalan tablolara herhangi bir müdahalede bulunmuyor. bunu düzeltebilir miyiz. bazen belgede tablolardan yaklaşık 40-50 tane olabiliyor. tekrar teşekkürler.

 

[hamitcan]

Böyle deneyin.

For j = 1 To ActiveDocument.Tables.count
    For i = ActiveDocument.Tables(j).Rows.count To 2 Step -1
     ActiveDocument.Tables(1).Rows(i).Delete
    Next
 Next
    With Selection.Find
        .Text = "Olay Özeti" & vbTab & "    : "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[tukayf]

Sn. Hamitcan bu kodu denediğimde Activedocument satırında hata veriyor. Kontrol edebilir misiniz acaba. Teşekkürler.

 

[hamitcan]

Bu şekilde deneyin.

For j = 1 To ActiveDocument.Tables.count
    For i = ActiveDocument.Tables(j).Rows.count To 2 Step -1
     ActiveDocument.Tables(j).Rows(i).Delete
    Next
 Next
    With Selection.Find
        .Text = "Olay Özeti" & vbTab & "    : "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[tukayf]

Zihninize sağlık hocam harika olmuş. Çok teşekkürler.

 

[tukayf]

Bu soruda ki metin silme kısmını Sn. Hamitcan Hocam'ın kodlarıyla çözdüm. Şimdi ise ekli dosyada belirtildiği şekilde 2 paragraf arasını kopyalamak istiyorum. Mümkünse eğer. Yardımlarınız için teşekkürler.