Forum Discussion
Macro to remove brackets
I wonder if any VBA experts can help. I found online the following macro to remove square brackets. Sub RemoveSquareBrackets() Dim oRng As Range Set oRng = ActiveDocument.Range With oRng.Find ...
Not quite. If there are no brackets, the macro deletes the first character on the page.
inarbeth Use a similar test
Dim oRng As Range
Set oRng = Selection.Range
With oRng
.Start = ActiveDocument.Range.Start
If InStr(.Text, "(") <> 0 Then
.Start = .Start + InStrRev(.Text, "(") - 1
.Characters(1).Delete
End If
.End = ActiveDocument.Range.End
If InStr(.Text, ")") <> 0 Then
.End = .Start + InStr(.Text, ")")
.Characters(.Characters.Count).Delete
End If
End With- Many thanks Doug.
