word dosyasında belli bir aralığı seçmek

[tamer42]

Merhabalar,

Bir word dosyasında ;
dosya içerisinde başka yerde geçmeyen, ( "BAŞLA" ve "BİTİR" gibi) belirlenenebilecek iki farklı ifade ile başlayan satırlar arasındaki verileri seçip kopyalamak sonrada başka bir yere yapıştırmak istiyorum.

select >>> Copy

' ' ' ' >>>Paste


*
*
*
"BAŞLA........"
-------------------------------------------------------------
........
.........
.......... ' ' ' ' BU ARALIKTAKİ VERİLER ' ' ' '

...........
--------------------------------------------------------------
"BİTİR......."
*
*
*


Aslında bu işlemi kapalı bir dosyada yapabilirsem tanından yenmez!

Hürmetler,
İyi Çalışmalar dilerim.

 

[Seyit Tiken]

Bunun en pratik yolu nedir biliyormusunuz? Büyük ihtimalle biliyorsunuz diye tahmin ediyorum. Üyelik tarihiniz benden daha eski. Makro Kaydet ile yapılacak işmleri yapınız. Ve bunu bir menü butonuna bağlayıp deneyiniz. Bence en mantıklısı bu.

 

[tamer42]

Sn Seyit Tiken,

Bunun en pratik yolu nedir biliyormusunuz? Büyük ihtimalle biliyorsunuz diye tahmin ediyorum. Üyelik tarihiniz benden daha eski. Makro Kaydet ile yapılacak işmleri yapınız.

İltifatınıza teşekkürler,

Akıl akıldan üstündür. Excel neysede word dosyasında pek tecrübem yok.

Ben yapmak istediğimi ekli dosyada hem örnek verdim , hem de anlattım.

yani anlatırken aynı anda birde örnek yaptım. bunu yüzlerce dosyada kod yazarak nasıl yapabilirim.

Tüm arkadaşlara İyi Çalışmalar dilerim.

 

[Haluk]

Biraz gecikmiş bir cevap ama, aşağıdaki kodla istediğiniz hücrenin içeriği MsgBox ile görüntülenmektedir.

Gerisini siz halledersiniz herhalde ...

Sub Test()
    Dim RetVal As String
    RetVal = ThisDocument.Tables(1).Rows(2).Cells(2).Range.Text
    RetVal = Replace(RetVal, Chr(7), Empty)
    MsgBox RetVal
End Sub