Parantez içi rakamları toplu değiştir

[Necdet]

Deneme yaptım.
Tablo olarak biçimlendirilen yerlerde çalışmıyor, tabloları paragrafa çevirin.

 

[Haluk]

Ama, dokümanda tablo yok ..

.

 

[Haluk]

Aşağıdaki resimde belirtildiği şekilde Bul/Değiştir ile denedim, oldu ... (Değiştirilecek formatı da ayarlamayı unutmayın)







Ayrıca, bu işleme ait "Makro Kaydet" yöntemiyle elde ettiğim kodlar da aşağıdaki gibidir...... artık siz ister manuel, ister aşağıdaki kodlarla bu işi yapabilirsiniz...

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = "\([0-9]*\)"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

.

.

 

[asdsxx]

Hocalarım Ellerinize sağlık (Bul-değiştir) yöntemi çalıştı.
Tekrar zaman harcama nezaketinde bulunup emeği geçen tüm Üstad'lara teşekkürler...

 

[asdsxx]

Aşağıdaki resimde belirtildiği şekilde Bul/Değiştir ile denedim, oldu ... (Değiştirilecek formatı da ayarlamayı unutmayın)



Ekli dosyayı görüntüle 250769



Ayrıca, bu işleme ait "Makro Kaydet" yöntemiyle elde ettiğim kodlar da aşağıdaki gibidir...... artık siz ister manuel, ister aşağıdaki kodlarla bu işi yapabilirsiniz...

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = "\([0-9]*\)"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

.

.

Haluk Bey word dosyasında boş satırları nasıl kaldırabiliriz.
Yalnız benim kasteddiğim

sadece "Enter" tuşu ile açılan boş satırlar değil,
boş satırlarda "boşluk tuşu" ile çeşitli sayılarda karakter görünüyor.



Üst resimde görüldüğü gibi aslında satır dolu gibi olduğundan "Bul değiştir" deki yöntem çalışmıyor. ama sadece boşluk tuşu ile " space" yapıldığı için boş. Bu gibi (boş olmayan) boş satırları toplu olarak nasıl yok edebiliriz.