Word dosyasında değişiklik yapma

[VeliDemir]

Merhaba. Öncellikle verdiğinizden bu hizmetten ötürü sizlere teşekkür ederim.

Bir Word dosyasında yer alan başında * sonunda : karakterleri bulunan ve tüm harfleri büyük olan kelime veya kelimeleri, yalnızca ilk harfleri büyük olacak şekilde >< karakterleri arasında bulunmasını ve bu kelimelerin hemen altında ise aynı kelimelerin tek başına bulunmasını sağlayacak bir makro programını sizlerden rica ediyorum.

İyi geceler.

NOT: Makro programına ilişkin örnek dosya ekte yer almaktadır.

 

[leumruk]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Sub Makro1()
For Each prg In ActiveDocument.Paragraphs
If prg.Range.ComputeStatistics(Statistic:=3) > 0 Then
Deg = Split(prg, ": ")
If UBound(Deg) > 0 Then
If Left(Deg(0), 1) = "*" Then
uzn = Len(Deg(0))
prg2 = Right(prg.Range, Len(prg.Range) - uzn - 1)
sz = Split(Replace(Replace(LCase(Right(Deg(0), uzn - 2)), "İ", "i"), "I", "ı"), " ")

For x = 0 To UBound(sz)
szc = szc & " " & UCase(Left(sz(x), 1)) & Right(sz(x), Len(sz(x)) - 1)
Next
prg.Range = ">" & szc & "<" & Chr(10) & szc & Chr(10) & prg2
szc = ""

End If
End If
End If
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[VeliDemir]

Programla ilgili ufak bir düzeltme talebi

Merhaba. Öncellikle bu yardımızından ötürü size teşekkür ederim.

Başında * karakteri ile boşluk olan ve sonu : karakteriyle biten kelimelerin bu programın kapsamında olmasını istiyorum. Ancak, hazırladığınız makro programı sonu : karakteriyle biten tüm kelimeleri kapsıyor, ayrıca bu makro programı bütün harfleri büyük olan söz konusu kelime veya kelimelerin sadece baş harflerinin büyük olmasını sağlamıyor.

Sizden ricam, bu hususları düzeltebilir misiniz?

İyi akşamlar.

NOT: Yukarıda bahsedilen hususlara ilişkin örnek dosya ekte yer almaktadır.

 

[leumruk]

Merhaba,
Kodu ve dosyayı isteğiniz doğrultusunda güncelledim.

 

[VeliDemir]

Lütfen kusuruma bakmayınız

Merhaba.

Programı güncellemeniz çok iyi oldu. Teşekkür ederim.

Ancak, programda istediğim düzeltme tam olmamış. Başında * karakteri ile boşluk olan ve sonu : karakteriyle biten kelimelerin bu programın kapsamında olmasını istiyorum. Maalesef, bu program sonu : karakteriyle biten tüm kelimeleri işliyor.

Lütfen bu programı yukarıda belirtildiği şekilde tekrar güncelleyebilir misiniz?

Sizi çok yoruyorum, ancak lütfen kusuruma bakmayınız.

İyi Günler.

NOT: Bu düzeltme talebine ilişkin örnek dosya ekte yer almaktadır.

 

[leumruk]

Kodlar ve dosya güncellenmiştir.

 

[VeliDemir]

Allah sizden razı olsun.