Word Belgesinde Paragrafları Toplu olarak kaldırma

[asdsxx]

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.

 

[Necdet]

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]

Teşekkürler Necdet Bey.

 

[asdsxx]

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

 

[necati]

Merhaba,
Dipnotlar Dahil tüm belgede bul değiştir makrosu:

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]

Merhaba,
Dipnotlar Dahil tüm belgede bul değiştir makrosu:

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ş.

 

[necati]

Rica ederim, kolay gelsin.

 

[mhaluksen]

Merhaba,
Dipnotlar Dahil tüm belgede bul değiştir makrosu:

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

 

[necati]

Üstad ellerine sağlık.Özür dilerim ama WORD da makro işi nasıl oluyor yapılmış halini atabilir misiniz

Yazılandan bir şey anlayamadım!

 

[mhaluksen]

Word belgesinde excel gibi makro yazma işi oluyor mu

 

[necati]

Bu sitede bununla ilgili bir bölüm var. Ana sayfada biraz aşağıda. Oradan inceleyiniz.

 

[asdsxx]

Merhaba,
Dipnotlar Dahil tüm belgede bul değiştir makrosu:

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?

 

[necati]

"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.

.Text = "^l"
.Replacement.Text = " "

şeklinde çalıştırınız.

 

[mhaluksen]

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

 

[asdsxx]

Arkadaşım dosyanın son halini atar mısın bir de biz görsek.Şimdiden teşekkürler

Dosyanın son hali derken...

 

[mhaluksen]

makrolu hali