Word dosyasındaki tekrarlar

[VeliDemir]

Öncellikle vermiş olduğunuz bu hizmetten ötürü sizlere teşekkür ederim.

Bende Türkçe-İngilizce sözlük veritabanı olan bir Word dosyası var. Bu Word dosyasındaki Türkçe kelimeler şöyle bir kurala göre dizilidir:

1) Bu Türkçe kelimeler Word dosyasının bazı satırlarının başlarında yer almaktadır. Bu Türkçe kelimelerin yerlerini gösteren özellik ise, bulunduğu satırdan önceki satırın nokta işaretiyle bitmesi ve kendilerinin noktalı virgül işaretiyle bitmesidir.
2) Bu Türkçe kelimelerin sonundaki noktalı virgül işaretinden sonra ise bu Türkçe kelimelerin bir veya birden fazla satırı işgal eden İngilizce anlamları yer almaktadır.
3) Bu Türkçe kelimeler alfabetik sıradadır. (Bazı kelimelerde bulunan boşluk karakteri diğer harflere göre önceliğe sahiptir.)

Bu Word dosyasındaki problem, bazı Türkçe kelimelerin satır başlarında tekrar etmesidir. Bundan ötürü, bazı Türkçe kelimelerdeki tekrarı ortadan kaldıran ve bu Word dosyasındaki tüm Türkçe kelimeleri İngilizce anlamlarıyla birlikte yukarıdaki kurala göre tekrar dizerek başka bir Word dosyasına yazan bir makro programını yapmanızı sizlerden rica ediyorum.

İyi günler.


NOT: Örnek Word dosyası ekte yer almaktadır.

 

[leumruk]

Merhaba,
Tekrar ettiğini söylediğiniz kelimelerin İngilizce karşılıkları birbirinden farklı. Örneğin:

abide;monument. memorial.
abide;to wait; to pause; to delay. to stay. to wait for. to be prepared for. to endure. to sustain.

abide sözcüğü tekrar etmiş; ama açıklamalar farklı. Siz tekrar eden kelimelerin açıklamalarıyla beraber silinmesini mi istiyorsunuz ya da kelimenin silinip açıklamaların birleştirilmesini mi?
Açıkçası ne yapılması gerektiği tam anlaşılmıyor. Örnek dosyanıza ikinci bir ek olarak kod çalıştığında dosyanın alması gerektiği şeklini de ekler misiniz?

 

[VeliDemir]

Merhaba,

Tekrar eden Türkçe kelimelerin tek kelime haline getirilmesi ve bu kelimelerin açıklamalarının birleştirilmesini istiyorum. Buna ilişkin "ab" ve "abuk subuk" kelimeleri örnek gösterilerek Word dosyasının alması gereken hal ekte belirtilmektedir.

Çok teşekkür ederim.

 

[leumruk]

Merhaba,
Örnek dosyayı inceleyin. Makronun kısayol tuşu "CTRL + Ş"

Sub Makro1()
If ActiveDocument.Paragraphs.Count <= 1 Then Exit Sub
For x = ActiveDocument.Paragraphs.Count To 2 Step -1
deg = Split(ActiveDocument.Paragraphs(x).Range, ";")
deg2 = Split(ActiveDocument.Paragraphs(x - 1).Range, ";")
If Len(Trim(deg(0))) > 1 And Trim(deg(0)) = Trim(deg2(0)) Then
ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(x).Range.Start, _
        End:=ActiveDocument.Paragraphs(x).Range.End).Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Do
kelime = Selection.Bookmarks("\word").Range
Selection.Bookmarks("\word").Range.Delete
Loop While kelime <> ";"
Selection.TypeBackspace
Selection.TypeText Text:=" "
Say = Say + 1
End If
Next
If Say > 0 Then
ActiveDocument.SaveAs ThisDocument.Path & "\Yeni.doc"
MsgBox "İşleminiz başarıyla tamamlandı. Toplam: " _
& Say & " değişiklik yapıldı.", vbInformation, "Kodlayan: l e u m r u k"
Else:
MsgBox "Aynı kelime bulunmadığından değişiklik yapılmadı.", vbInformation, "Kodlayan: l e u m r u k"
End If
End Sub

 

[VeliDemir]

Çok teşekkür ederim.

 

[leumruk]

Son mesajınızı ilk isteğinizden farklı olduğu için, ayrı bir konu başlığı açarak aşağıdaki adrese taşıdım. Sorunuza ve cevabına bu adresten ulaşabilirsiniz.
http://www.excel.web.tr/f51/turkce-kelimelerin-manalaryndaki-tekrarlar-t103974.html#post565928