Satır Düzenleme

[ilhanx]

Merhaba

E-Kitap düzenlerken zaman zaman satırlar,satır sonunda değilde alakasız yerlerde
bölünüyor.
Sola yanaşık olarak uyguladığım düzenlemelerde bunun önüne geçme imkanım
(makro ile) varmı ?


İlgilerinize şimdiden teşekkürler

 

[leumruk]

Merhaba,
Bunu için makroya gerek yok. CTRL+ H ile değiştir menüsünü açın. Bul kısmına "bir boşluk ile ^p karakterini ekleyin. Değiştir kısmına da bir boşluk bırakın ve tümünü değiştir butonuna basın. Sonrasında Bul kısmına sadece sağ tarafında bir boşluk kalacak şekilde ^p yazın. Deiştir kısmına da bir boşluk bırakın ve Tümünü değiştire basın kaymalar düzelecektir.

 

[ilhanx]

Merhaba,
Bunu için makroya gerek yok. CTRL+ H ile değiştir menüsünü açın. Bul kısmına "bir boşluk ile ^p karakterini ekleyin. Değiştir kısmına da bir boşluk bırakın ve tümünü değiştir butonuna basın. Sonrasında Bul kısmına sadece sağ tarafında bir boşluk kalacak şekilde ^p yazın. Deiştir kısmına da bir boşluk bırakın ve Tümünü değiştire basın kaymalar düzelecektir.

İlgine çok teşekkürler;lakin tüm satırları düzeltmiyor

 

[leumruk]

Düzelmeyen kısımları da göz önünde bulundurarak bir kod hazırladım.

Sub Makro1()
deg = " ^p"
For x = 1 To 2
    With Selection.Find
        .Text = " ^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
deg = "^p "
Next
For Each prg In ActiveDocument.Paragraphs
If Left(Right(prg.Range, 2), 1) <> "." Then
prg.Range.Select
Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeBackspace
Selection = " "
End If
Next
MsgBox "İşlem tamamlandı.", vbInformation, "Kodlayan: l e u m r u k"
End Sub

 

[ilhanx]

İlgine çok teşekkürler
Sorun çözülmüştür