word'de sıralama

[arrigo]

Merhaba
Aşağıdaki metni kalın kelimelerinden sıralamak istiyorum.

https://hizliresim.com/kmdulpo

ama normal olarak sıralamak istediğimizde hep kayıyor, bunu düzgünce nasıl sıralarız?

 

[necati]

Merhaba,
Örnek olarak birkaç sayfayı ekleyebilir misiniz?

 

[arrigo]

Merhaba,

İndir test123 docx

Dosyayı indir test123 docx

dosya.co

 

[necati]

Makro mantığını açıklıyorum:
* Belgenin paragraflarını tarıyor
* İlk kelimesi kalın olan paragrafın düzeyini "Düzey1" olarak değiştiriyor
* Makro tamamlanınca manuel olarak Görünüm > Anahat seçilir
* Düzey göster > Düzey1
* Belgeyi tarayın
* Giriş menüsü > Sırala
* Bu kadar. Böylece sadece kelimeler ve altlarındaki birkaç paragraf alfabetik olarak sıralanır.

Daha sonra "Düzey1" olarak değiştirilen paragrafları tekrar "Gövde metni" ne dönüştürmek isterseniz (İsteğe bağlı, gerekli görürseniz) aynı makroda şu satırı pasif yapıp
objPar.Range.ParagraphFormat.OutlineLevel = wdOutlineLevel1
şu satırı aktif yapıp tekrar çalıştırırsınız .
'objPar.Range.ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText

Sub duzey_uygulamak()
Dim objPar As Paragraph

For Each objPar In ActiveDocument.Paragraphs
    If objPar.Range.Words(1).Bold = True Then
        'objPar.Range.ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText
        objPar.Range.ParagraphFormat.OutlineLevel = wdOutlineLevel1
    End If
Next objPar
MsgBox "Düzey değiştirmesi tamamlandı", vbInformation
End Sub

 

[arrigo]

maalesef hiçbir değişiklik yapmıyor..

 

[necati]

Açıklamayı yazdım ama yeterli değil sanırım. Değişiklik dışarıdan görünmüyor.
Herhangi bir kelime paragrafında iken paragraf düzeyine bakar mısınız. Düzey1 olmuş mu?

 

[arrigo]

size ulaşabilir miyiz, tam anlayamadık..

 

[necati]

Anlaşılmayan yerler için, burada yazışmayı uzatmamak adına özelden görüşebiliriz.

 

[necati]

Makro mantığını biraz daha ayrıntılı açıklıyorum:
Sizin belgenizdeki gibi bir sıralama için benim kullandığım yöntem paragrafın Düzey seviyesini değiştirmek suretiyle mümkün olabilmektedir. Bunun için biraz makro ile biraz da manuel işlem yapıyoruz.
* Makroyu çalıştırdık ve bitti.
* Böylece ilk kelimesi kalın olan paragrafların düzeyini "Düzey1" olarak değiştirdik.
* Sonra manuel olarak Görünüm menüsüne gelelim
* Anahat butonuna tıklayalım
* Düzey göster kutusunda Düzey1'i seçelim
* Şimdi karşımızda sadece kalın kelimelerin paragraflarının olduğunu göreceksiniz.
* Belgeyi tarayın (Ctrl+A)
* Giriş menüsüne gelelim
* Sırala
* Bu kadar. Böylece sadece kelimeler ve altlarındaki birkaç paragraf alfabetik olarak sıralanır.

Düzey1 bir paragraf sitili düzeyidir. Mesela Başlıkların çeşitli düzeyleri, seviyeleri (1., 2., ... gibi ) vardır. Sizin çalışmanızda bir kalın kelime paragrafı ve buna bağlı, bununla birlikte yer değiştirmesi gereken bir kaç paragraf bulunuyor. Biz kalın kelimenin olduğu paragrafı Düzey1 olarak işaretledik. Onun altındaki birkaç paragrafın düzeyini değiştirmedik. Normal görünüm ekranında sırala yapınca her paragraf sıralamaya dahil olur, istemediğimiz bir karmaşa meydana gelir. Anahat görünümünde Düzey1 de iken sıralama yaptığımızda ise Sadece Düzey1'ler sıralanır, altlarındaki paragraflar da onları takip eder.

 

[arrigo]

İşimize çok yaradı, teşekkürler.