word de satır başındaki ilk 5 karakteri silme

[tukayf]

Merhabalar. Word de satır başındaki ilk 4 karakter rakam, 5. karakter ise . (nokta) ctrl h ile bu rakamlardan kurtulabilmenin yolu var mıdır acaba ya da daha farklı bir yöntemi.
Excele alıp sildirebiliyorum ancak bu sefer renklendirme ve biçim değişiyor bu nedenle excel çözüm olmuyor.
Yanıtlar için şimdiden teşekkürler.

 

[necati]

Merhaba,
Joker karakter seçeneği seçili iken,
Aranan kutusu: (^13)([0-9]{4}.)
Yeni Değer kutusu : \1
Bu tüm paragrafların ilk 5 karakterini 4'ü sayı 5.si nokta ise siler.
Silinecek olanlar ikinci parantez içindekilerdir. Noktadan sonra boşluk falan varsa onu da burada sonuncu olarak eklersiniz. İlk paragraftakini manuel değiştirirsiniz.

 

[tukayf]

Hocam çok teşekkürler. Bi deneyeyim. Bir sorum daha var. Word de yine font rengi değişitirme var mı acaba tek seferde tüm sarıları kırmızı yapma gibi.

 

[necati]

Rica ederim.
Font değiştirme de var aynı yerden yapabilirsiniz. Kutular boş olacak. Sadece biçimlendirmeleri dolduracaksınız. Bunun gibi yukarıdaki çözüm ile başka alternatifleri birleştirebilirsiniz.

 

[tukayf]

Hocam biçim kısmını biliyorum ancak font rengini seçmeyi başaramadım.

 

[necati]

Bul/Değiştir kutusunda "yazı tipi" "yazı tipi rengi" her türlü ayar mevcut.

 

[tukayf]

Teşekkürler hocam çok sağolun

 

[tukayf]

Sayın hocam son bir soru sorabilir miyim. A dan Z ye ya da artan azalan sıralama yapabiliyoruz ama karışık sıralama için kısayol ya da çözüm var mı acaba.

 

[necati]

Örnek dosya var mıydı. Tam anlaşılmıyor.

 

[tukayf]

Hocam altın üyelik bitmiş.

accent aksan, şive
accept: kabul etmek
acceptable: kabul edilebilir
acceptance kabul
Access: erişim
accessible ulaşılabilir, erişilebilir
Accident: kaza

Örnek olarak bu liste alfabetik. Bunu random sıralama yaptırabilir miyim.

 

[necati]

Aktif belgenin sonuna tüm paragrafları yeniden rastgele sıralı olarak yazan webden bulduğum bir kod:

Sub rastgele_paragraf()
n = ActiveDocument.Paragraphs.Count
ReDim a(1 To 2, 1 To n)
Randomize
For i = 1 To n
    a(1, i) = Rnd
    a(2, i) = i
Next
For i = 1 To n - 1
    For j = i + 1 To n
        If a(1, j) > a(1, i) Then
            t = a(2, i)
            a(2, i) = a(2, j)
            a(2, j) = t
        End If
    Next
Next
ActiveDocument.Paragraphs.Add 'Bu satır eklendi.
For I = 1 To n
'    Set p = ActiveDocument.Content.Paragraphs.Add  'Bu satır alttaki ile değiştirildi.
    Set p = ActiveDocument.Paragraphs.Last
    p.Range.Text = ActiveDocument.Paragraphs(a(2, I)).Range.Text
Next
End Sub

 

[tukayf]

Deniyorum hocam hemen. Zihninize sağlık.

 

[tukayf]

Hocam denedim dosya çalışıyor. Ancak şöyle bir sorun var belki sorun değildir. Büyük boyutlu dosyalarda bi kısım sıralanmıyor. Diğer sıralanan kısım ise tüm listede değil de birbirine yakın satırlarda değişiklik yapıyor gibi bir durum oluşmuş. Emekleriniz için teşekkür ederim.

 

[necati]

Dosya büyüklüğü sıralamaya engel değil. Başka bir özellikten dolayı sıralama problemi olmalı. Mesela bazı yerlerde "paragraf karakteri" değil de "satır sonu karakteri" varsa oradaki sıralama problem çıkartır. Bu makroda benim gördüğüm hata son satırda boş paragraf yoksa, o satırın üzerine yazıyordu. Yani bir satır kayıp veriyordu. 11. mesajdaki kodu değiştirdim. Yinede bu kod pek kullanışlı gelmedi. Daha kullanışlı bir kod var. Verileriniz düz paragraflar halinde mi, tablo halinde mi ona göre iki kullanımı var. Alternatif olarak bunlar da denenebilir.
TABLO HALİNDEKİ BELGE İÇİN

Sub rastgele_paragraf_Tablo()
Dim Tmax As Integer
Dim strCell As String
Dim strQ As Variant
Dim strText As String
Dim I As Integer
Dim Z As Integer
Dim intQsLeft As Integer
Dim rndQ As Integer
Dim Q As Integer
Dim vArray As Variant
Dim strNew As String

Application.ScreenUpdating = False
Set objDict = CreateObject("Scripting.Dictionary")

Tmax = ActiveDocument.Tables(1).Rows.Count

For I = 1 To Tmax
strCell = ActiveDocument.Tables(1).Cell(I, 1).Range.Text
strQ = Left(strCell, Len(strCell) - 1)
objDict.Add strQ, strQ
Next I

ReDim arrQs(I - 2) '1 idi 2 yaptım

intQsLeft = I - 2
Z = 0


Do Until intQsLeft < 0
Randomize
rndQ = Int((intQsLeft + 1) * Rnd)
intQsLeft = intQsLeft - 1
vArray = objDict.Items
strText = vArray(rndQ)
arrQs(Z) = strText
Z = Z + 1
objDict.Remove strText
Loop

For Q = 1 To Tmax
strNew = arrQs(Q - 1)
strNew = Left(strNew, Len(strNew) - 1)
ActiveDocument.Tables(1).Cell(Q, 1).Range.Text = strNew
Next Q
Application.ScreenUpdating = True
MsgBox ""
End Sub

DÜZ PARAGRAFLAR HALİNDEKİ BELGE İÇİN

Sub rastgele_paragraf_Duz()
Dim Tmax As Integer
Dim strCell As String
Dim strQ As Variant
Dim strText As String
Dim I As Integer
Dim Z As Integer
Dim intQsLeft As Integer
Dim rndQ As Integer
Dim Q As Integer
Dim vArray As Variant
Dim strNew As String

Application.ScreenUpdating = False
Set objDict = CreateObject("Scripting.Dictionary")

Tmax = ActiveDocument.Paragraphs.Count

For I = 1 To Tmax
strCell = ActiveDocument.Paragraphs(I).Range.Text

strQ = Left(strCell, Len(strCell) - 1)
objDict.Add strQ, strQ
Next I

ReDim arrQs(I - 2)

intQsLeft = I - 2
Z = 0


Do Until intQsLeft < 0
Randomize
rndQ = Int((intQsLeft + 1) * Rnd)
intQsLeft = intQsLeft - 1
vArray = objDict.Items
strText = vArray(rndQ)
arrQs(Z) = strText
Z = Z + 1
objDict.Remove strText
Loop

For Q = 1 To Tmax
strNew = arrQs(Q - 1)
ActiveDocument.Paragraphs(Q).Range.Text = strNew & Chr(13)
Next Q
Application.ScreenUpdating = True

End Sub

 

[tukayf]

Hocam bu yanıtınızı yeni gördüm deneyip dönüş yapacağım, yanıtlarınız için çok teşekkür ederim.
Veriler tek satır halinde manuel numaralandırılma yapılmış elle boşluk bırakılmış satır başında vs. epey uğraştırdı. Yarın deneyip net sonuç bildireyim sizlere.