asdsxx
Altın Üye
- Katılım
- 22 Mayıs 2012
- Mesajlar
- 491
- Excel Vers. ve Dili
- Excel 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
Arkadaşlar Excel için yazılmış makroyu Word'da kullanabilmem için nasıl bir değişiklik yapmak lazım
Kod:
Kod:
Kod:
Sub Test3()
Dim objRegEx As Object, myCell As Range, myStr As String
Set objRegEx = CreateObject("VBscript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "\((\d+)\)"
For Each myCell In Selection
myStr = myCell.Text
myStr = objRegEx.Replace(myStr, "")
myCell = myStr
myStr = Empty
Next
Set objRegEx = Nothing
End Sub