Macro search text BOLD UPPERCASE if within table row and apply style Word

[jec1]

Hi, attach document.

Would like to search document using VBA to change BOLD UPPERCASE heading that only appears "within a table row (always shaded)" and apply heading style Heading UCPR.

The doc downloads in Normal usually.

Many thanks for any assistance.

Janine

[gmayor]

The following will work in your document.

Sub Macro1()
Const sPwd As String = "" 'the form password if any
Dim oTable As Table
Dim oCell As Cell
Dim oRng As Range
Dim lProtect As Long
lProtect = ActiveDocument.ProtectionType
If Not ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Unprotect Password:=sPwd
End If
For Each oTable In ActiveDocument.Tables
For Each oCell In oTable.Range.Cells
Set oRng = oCell.Range
oRng.End = oRng.End - 1
If oRng.Case = wdUpperCase And oRng.Font.Bold = True Then
oRng.Style = "Heading_UCPR"
End If
Next oCell
Next oTable
ActiveDocument.Protect Type:=lProtect, NoReset:=True, Password:=sPwd
Set oTable = Nothing
Set oCell = Nothing
End Sub

[jec1]

Many thanks Graham - perfect.:)