VBA Find Bold Text within Brackets and Add Quotes

[Shelley Lou]

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

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

[gmaxey]

I think in this case you will need to find within a find:

Sub DPU_BoldTextWithinBrackets_AddQuotes2()
Dim oRng As Range
Dim oRng2 As Range
  Set oRng = ActiveDocument.Range
  Application.ScreenUpdating = False
  With oRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "\(*\)"
    .Wrap = wdFindStop
    .Format = True
    .MatchWildcards = True
    While .Execute
      Set oRng2 = oRng.Duplicate
      With oRng2.Find
        .Format = True
        .Font.Bold = True
        Do While .Execute
          If oRng2.InRange(oRng) Then
          If Not oRng2.Characters.First = Chr(34) Then
            oRng2.InsertBefore Chr(34)
            oRng2.Characters.First.Font.Bold = True
            oRng2.InsertAfter Chr(34)
            oRng2.Collapse wdCollapseEnd
          End If
        Else
          Exit Do
        End If
      Loop
      End With
      oRng.Collapse wdCollapseEnd
    Wend
  End With
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub

[Shelley Lou]

Thank you so much Greg, works perfectly.

I've got an unrelated question regarding Word. I used to be able to select one cross reference/hyperlink field and use Control Shift F9 to unlink the hyperlink. Has Microsoft changed this as when I do Control Shift F9 now it unlinks every single cross reference/hyperlink in the document even the table of contents, it is really baffling if they have changed this?