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

[asdsxx]

Arkadaşlar word belgesinde 600 den fazla sayfa olan bir çalışmada parantez içindeki sayıları Parantezler ile birlikte toplu olarak nasıl biçimlendirebilirim. Yüzlerce....
Örnek (12) rakamını (rakam grubunu) toplu olarak
(12) şeklinde değiştirmek istiyorum. (Rakamlar farklı. hem aynı sayı değil.

 

[Haluk]

Yani, renklendirmek mi istiyorsunuz?

Örnek bir dosyanız var mı?

.

 

[asdsxx]

Yani, renklendirmek mi istiyorsunuz?

Örnek bir dosyanız var mı?

.

Haluk Hocam word dosyasında yüzlerce yukarıdaki örnekte verdiğim gibi parantez içinde rakamlar var. Ben bu parantez içindeki rakamları parantezleriyle birlikte biçimlendirmek istiyorum. dikkat çekmesi için.

 

[Haluk]

Aşağıdaki kod, isteğinizi karşılar...

Sub Test()
    ' Haluk - 22/03/2024
    ' sa4truss@gmail.com
    Dim regExp As Object, myRange As Range
    
    Set regExp = CreateObject("VBscript.RegExp")
    
    regExp.Pattern = "\(\d+\)"
    regExp.Global = True
    
    For Each Match In regExp.Execute(ActiveDocument.Range.Text)
        Set myRange = ActiveDocument.Range(Match.FirstIndex, Match.FirstIndex + Match.Length)
        myRange.Font.Color = vbRed
    Next
    
    Set myRange = Nothing
    Set regExp = Nothing
End Sub

.

 

[asdsxx]

Aşağıdaki kod, isteğinizi karşılar...

Sub Test()
    ' Haluk - 22/03/2024
    ' sa4truss@gmail.com
    Dim regExp As Object, myRange As Range
   
    Set regExp = CreateObject("VBscript.RegExp")
   
    regExp.Pattern = "\(\d+\)"
    regExp.Global = True
   
    For Each Match In regExp.Execute(ActiveDocument.Range.Text)
        Set myRange = ActiveDocument.Range(Match.FirstIndex, Match.FirstIndex + Match.Length)
        myRange.Font.Color = vbRed
    Next
   
    Set myRange = Nothing
    Set regExp = Nothing
End Sub

.

Haluk Bey çok teşekkür ederim. istediğim bu idi. Eline sağlık
Kod'a biçimlendirmeyi koyu(Kalın) olacak şekilde bir satır ekleyebilirmiyiz.

 

[Necdet]

Merhaba,
Bence kodları inceleseniz siz de yapabilirsiniz. Aşağıdaki kodu ekleyin.

        myRange.Font.Bold = True

 

[asdsxx]

Haluk Bey teşekkür ederim sorunu ben çözdüm

myRange.Font.Bold = True

satırı ekleyerek çözüldü
Tekrar teşekkür ederim

 

[asdsxx]

Merhaba,
Bence kodları inceleseniz siz de yapabilirsiniz. Aşağıdaki kodu ekleyin.

        myRange.Font.Bold = True

Necdet Bey dediğiniz şekilde yapmıştım. ben çözmeye çalışırken siz mesaj yazmışsınız.
Size de ilginiz için teşekkür ederim. Sağolun

 

[Necdet]

Merhaba.
Haluk bey, "Parantez içindeki rakamlar küsüratlı olsa ve aynı zamanda nokta ile ayrılmış olsa" nasıl olurdu diye bir soruyu bekleyin derim ben

 

[Haluk]

Necdet Bey,

Nokta veya virgül varsa;

    regExp.Pattern = "\(\d+[.,]\d+\)"

.

 

[Haluk]

Olası bir sonraki soru için;

Eğer nokta veya virgül kimisinde var, kimisinde yoksa bütün parantez ve içlerindeki nümerik değerlerde bu işi yapmak için;

    regExp.Pattern = "\(\d*[.,]?\d+?\)"

.

 

[Zeki Gürsoy]

Eğer binlik ayraçları olan büyük sayılar varsa, "." veya "," iki veya daha fazla tekrar edebilir...
[.,]? yerine [.,]* gibi kullanmak daha iyi olur bence.

.

 

[Haluk]

@Zeki Gürsoy ,

Bende o şekilde çalışmadı üstad, ama aşağıdaki desen oldu;

    regExp.Pattern = "\((\d*[.,]?)*\d+?\)"

Çalışan link aşağıdadır:

Rubular: \((\d*[.,]?)*\d+?\)

.

 

[Necdet]

İşlem başarılı Haluk bey.
Aşağıdaki site de onayladı

https://regex101.com/

 

[Zeki Gürsoy]

@Haluk Bey, üzerinde fazla düşünmeden fikrimi yazmıştım. Yazdığınız desene benzer olarak ben bu şekilde kullandım. \([\d.,]*\)

https://regexr.com/ (JScript/VBScript motorudur)

 

[Haluk]

Ustad, bu daha pratik olmus...

.

 

[asdsxx]

Sub Test()
    ' Haluk - 22/03/2024
    ' sa4truss@gmail.com
    Dim regExp As Object, myRange As Range
 
    Set regExp = CreateObject("VBscript.RegExp")
 
    regExp.Pattern = "\(\d+\)"
    regExp.Global = True
 
    For Each Match In regExp.Execute(ActiveDocument.Range.Text)
        Set myRange = ActiveDocument.Range(Match.FirstIndex, Match.FirstIndex + Match.Length)
        myRange.Font.Color = vbRed
    Next
 
    Set myRange = Nothing
    Set regExp = Nothing
End Sub

Haluk hocam ilk yukarıdaki yazdığınız kod bazı word dosyalarında, bazı bölümlerde çalışıyor bazı bölümlerde çalışmıyor.

 

[Haluk]

Tam anlamadım ama, sizin dokümanda bazı yerlerde eklediğiniz sayfa sonları karışılığa yol açıyor galiba...

.

 

[asdsxx]

Tam anlamadım ama, sizin dokümanda bazı yerlerde eklediğiniz sayfa sonları karışılığa yol açıyor galiba...

.

Haluk Bey sayfa sonu olmayan belgelerde de aynısını yapıyor

 

[Haluk]

Bilemiyorum...

.