DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Makro1()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "="
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute
If Selection.Text = "=" Then
Do While krk = 0
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
krk = Selection.Range.ComputeStatistics(Statistic:=wdStatisticCharacters)
If krk = 0 Then Selection.TypeBackspace
Loop
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Delete
Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
Selection.Delete
End If
End Sub
Merhaba,sn leumruk,
tşk ederim, kod çalışıyor fakat 2 sorum olacak;
1-belge çok uzun ve içinde "=" geçen başka paragrafları da siler mi bu makro?
2-makroyu word her açıldığında otomatik öalıştırsın diye nasıl kaydedebilirim? (her belgede çalıştırmak üzere)
Sub Autoopen()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "="
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute
If Selection.Text = "=" Then
Do While krk = 0
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
krk = Selection.Range.ComputeStatistics(Statistic:=wdStatisticCharacters)
If krk = 0 Then Selection.TypeBackspace
Loop
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Delete
Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
Selection.Delete
End If
End Sub
Sn. turkanet,Peki,
"__________ NOD32" ile başlayıp "Information __________" ile biten cümleyi nasıl sildirebiliriz? Ortasındaki yazanlar değişkendir.
Sub dene()
With Selection.Find
Do
.Text = "__ NOD32"
.Execute
If .Found = True Then
.Wrap = wdFindContinue
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete
End If
Loop While .Found = True
End With
End Sub
Merhaba,sağolun işime yaradı,
sayfa sonundaki boş satırları silmek için de yardımınıza ihtiyacım var. şimdiden tşk.
Sub Bosluk_Sil()
Selection.EndKey Unit:=wdStory
Do While krk = 0
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
krk = Selection.Range.ComputeStatistics(Statistic:=wdStatisticCharacters)
Selection.TypeBackspace
Loop
End Sub
alt + f8 makroyu çalıştırmaz; makro penceresini açar. Makroyu buradan seçip çalıştırmalısınız. Makroyu ancak bir kısayol tuşuna atayarak bu şekilde çalıştırabilirsiniz.sn üstad;
kodu vba penderesini açıp run dediğimde çalışıyor ama word belgesinde alt+f8 yapınca çalıştırmıyor. kodu her yere yazıp denedim. hata nerede olabilir?
alt+f8 için bir çözüm önerim yok.ben de onu demek istedim. makro penceresini açıp, makroyu seçip çalıştır demekten bahsediyorum zaten. bir de, sayfanın son satırında " " (boşluk) karakteri olunca Bosluk_Sil makrosu o satırda karakter olduğu için silmiyor. bunu da yapmam mümkün mü? yani son satırda sadece boşluk olan satırı da silebilmek? tşk ederim
Sub Makro1()
Selection.EndKey Unit:=wdStory
Do While krk = 0
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
krk = Selection.Range.ComputeStatistics(Statistic:=wdStatisticCharacters)
If krk = 0 Then
Selection.TypeBackspace
End If
Loop
End Sub