Word Belgesinde Paragrafları Toplu olarak kaldırma

asdsxx

Altın Üye
Katılım
22 Mayıs 2012
Mesajlar
477
Excel Vers. ve Dili
Excel 2016 Türkçe
Word Belgesinde sayfalardaki Paragrafları Toplu olarak kaldırmak mümkün mü acaba
örnekte olduğu gibi

Word dosyasını eklemeye izin vermediği için ekran görüntüsü ekledim. Kırmızı çerçeveli paragraflar, Mavi çerçeveli şekilde olacak.

228266
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,180
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Seçimi belli bir bölgede yapacaksanız seçiniz, hepsini düzenleyecekseniz Ctrl+A tümünü seçip yapabilirsiniz.

Ctrl+H
Aranan (paragraf işareti,) (tüm seçenekler içinde Özel Karakterden Paragraf İşareti)
Yerine konacak için bir boşluk
Tümünü değiştir.
 

asdsxx

Altın Üye
Katılım
22 Mayıs 2012
Mesajlar
477
Excel Vers. ve Dili
Excel 2016 Türkçe
Kod:
Sub Deleemptylines()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Arkadaşlar daha önce buradaki arkadaşların yardımı ile Word dosyasındaki boş satırları toplu olarak silmek için yukarıdaki kod ile yardımcı olmuşlardı. Fakat yukarıdaki kod normal word sayfasında çalışıyor. Ancak Word dosyasındaki dipnotlarda bulunan boş satırlarda kod işe yaramıyor. bunun için kodda bir değişiklik yapmak mı gerekiyor.
Bunu yaparken aşağıdaki şekilde olursa iyi olur

235624
 
Son düzenleme:
Katılım
20 Şubat 2007
Mesajlar
502
Excel Vers. ve Dili
2007 Office, Tr
Merhaba,
Dipnotlar Dahil tüm belgede bul değiştir makrosu:
Kod:
Sub DipnotlarDahil()
Dim Bolumler As Range

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

For Each Bolumler In ActiveDocument.StoryRanges

With Bolumler.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
.Execute Replace:=wdReplaceAll
End With
Next Bolumler
End Sub
 

asdsxx

Altın Üye
Katılım
22 Mayıs 2012
Mesajlar
477
Excel Vers. ve Dili
Excel 2016 Türkçe
Merhaba,
Dipnotlar Dahil tüm belgede bul değiştir makrosu:
Kod:
Sub DipnotlarDahil()
Dim Bolumler As Range

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

For Each Bolumler In ActiveDocument.StoryRanges

With Bolumler.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
.Execute Replace:=wdReplaceAll
End With
Next Bolumler
End Sub
Necati Bey teşekkürler, ellerine sağlık.
Tam istediğim gibi olmuş.
 

mhaluksen

Altın Üye
Katılım
27 Ocak 2006
Mesajlar
204
Excel Vers. ve Dili
ofis 2010- Türkçe
Merhaba,
Dipnotlar Dahil tüm belgede bul değiştir makrosu:
Kod:
Sub DipnotlarDahil()
Dim Bolumler As Range

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

For Each Bolumler In ActiveDocument.StoryRanges

With Bolumler.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
.Execute Replace:=wdReplaceAll
End With
Next Bolumler
End Sub
Üstad ellerine sağlık.Özür dilerim ama WORD da makro işi nasıl oluyor yapılmış halini atabilir misiniz
 

mhaluksen

Altın Üye
Katılım
27 Ocak 2006
Mesajlar
204
Excel Vers. ve Dili
ofis 2010- Türkçe
Word belgesinde excel gibi makro yazma işi oluyor mu
 
Katılım
20 Şubat 2007
Mesajlar
502
Excel Vers. ve Dili
2007 Office, Tr
Bu sitede bununla ilgili bir bölüm var. Ana sayfada biraz aşağıda. Oradan inceleyiniz.
 

asdsxx

Altın Üye
Katılım
22 Mayıs 2012
Mesajlar
477
Excel Vers. ve Dili
Excel 2016 Türkçe
Merhaba,
Dipnotlar Dahil tüm belgede bul değiştir makrosu:
Kod:
Sub DipnotlarDahil()
Dim Bolumler As Range

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

For Each Bolumler In ActiveDocument.StoryRanges

With Bolumler.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
.Execute Replace:=wdReplaceAll
End With
Next Bolumler
End Sub
Necati bey kod güzel çalışıyor. Ancak tesadüfen fark ettim daha doğrusu ilk başta çalışmıyor sandım ama iş farklı imiş. Olay şöyle:
Word belgesinde "enter" ile paragraf yapılarak açılan boş satırları siliyor ancak bilinçli veya farkına varmadan "Shift+Enter" ile paragraf yapılmadan açılan boş satırları kaldırmıyor.
Bunun bir çözümü var mı? Kod'a bir eklenti yapılabilir mi?
 
Katılım
20 Şubat 2007
Mesajlar
502
Excel Vers. ve Dili
2007 Office, Tr
"Shift+Enter" yani satır sonu karakteri satırın bütünlüğünü bölmüş ise onun yerine bir adet boşluk koymak gerek.

Kod:
.Text = "^l"
.Replacement.Text = " "
şeklinde çalıştırınız.
 
Son düzenleme:

mhaluksen

Altın Üye
Katılım
27 Ocak 2006
Mesajlar
204
Excel Vers. ve Dili
ofis 2010- Türkçe
Necati bey kod güzel çalışıyor. Ancak tesadüfen fark ettim daha doğrusu ilk başta çalışmıyor sandım ama iş farklı imiş. Olay şöyle:
Word belgesinde "enter" ile paragraf yapılarak açılan boş satırları siliyor ancak bilinçli veya farkına varmadan "Shift+Enter" ile paragraf yapılmadan açılan boş satırları kaldırmıyor.
Bunun bir çözümü var mı? Kod'a bir eklenti yapılabilir mi?
Arkadaşım dosyanın son halini atar mısın bir de biz görsek.Şimdiden teşekkürler
 

mhaluksen

Altın Üye
Katılım
27 Ocak 2006
Mesajlar
204
Excel Vers. ve Dili
ofis 2010- Türkçe
makrolu hali
 
Üst