DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
İlgine çok teşekkürler;lakin tüm satırları düzeltmiyorMerhaba,
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.
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