VBA Find Bold Text within Brackets and Add Quotes

Shelley Lou · #1 09-25-2024, 08:13 AM

A while ago, Greg very kindly updated some code for me to add quotes to bold text within brackets (see link below). At the time, the documents I was working on had an opening bracket bold text closing bracket. I'm now working on documents where there is also plain text with bold text within the brackets e.g. (the Tenant) or (the Property).

What can I add to the code to ignore the plain text and just add double bold quotes to the bold text?

https://www.msofficeforums.com/word-...ckets-add.html

Code:

Sub DPU_BoldTextWithinBrackets_AddQuotes()
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  Application.ScreenUpdating = False
  With oRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Wrap = wdFindStop
    .Format = True
    .MatchWildcards = False
    .Font.Bold = True
    While .Execute
      On Error GoTo Err_Handler
      If oRng.Characters.First.Previous = Chr(40) And oRng.Characters.Last.Next = Chr(41) Then
        oRng.InsertBefore Chr(34)
        oRng.Characters.First.Font.Bold = True
        oRng.InsertAfter Chr(34)
      End If
Err_Handler:
      oRng.Collapse wdCollapseEnd
    Wend
  End With
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Find Bold Text within Brackets and Add Quotes	Shelley Lou	Word VBA	6	07-12-2024 08:43 AM
VBA format plain quotes to bold quotes	Shelley Lou	Word VBA	3	02-11-2024 05:56 AM
Subscript and bold number between square brackets and remove square brackets	nonno	Word	0	02-10-2024 08:23 AM
Find and delet all text within brackets and the brackets themselves	ranjan	Word VBA	2	07-22-2021 01:06 AM
find and delet all text within brackets and the brackets themselves	wrdy	Word	2	08-03-2017 06:55 PM