Word Dosyasında parantez içi bilgilerin silinmesi

[asdsxx]

Arkadaşlar bir word dosyasında parantez içinde yazılan bilgilerin tamamını kod ile silerek sadece parantez dışındaki cümlelerin kalmasını sağlayan bir kod olabilir mi?
Teşekkürler...

 

[mesuttasar]

Kod aşağıdadır.

Sub deneme()
Dim doc As Document
Set doc = ActiveDocument
    
Dim kelime As Paragraph
Dim ilk, son As Long
Dim yazi As String
    
    For Each kelime In doc.Paragraphs
        ilk = InStr(kelime.Range.Text, "(")
        Do While ilk > 0
            son = InStr(ilk, kelime.Range.Text, ")")
            If son > 0 Then
                yazi = Mid(kelime.Range.Text, ilk, son - startPos + 1)
                kelime.Range.Text = Replace(kelime.Range.Text, yazi, "")
            End If
            ilk = InStr(ilk + 1, kelime.Range.Text, "(")
        Loop
    Next kelime
End Sub

 

[Haluk]

Alternatif-1 (Find/Replace - Bul/Değiştir):






Alternatif-2 (VBA);

Sub Test()
'   Haluk - 08/08/2023
    Dim regExp As Object
  
    Set regExp = CreateObject("VBscript.RegExp")
  
    regExp.Pattern = "(\(.*\))"
    regExp.Global = True
  
    ActiveDocument.Range.Text = regExp.Replace(ActiveDocument.Range.Text, "")
  
    Set regExp = Nothing
End Sub

.