Microsoft Office Forums - View Single Post - Word VBA Find Table Text Shading Colour and replace with another

QA_Compliance_Advisor · 09-19-2014, 05:42 AM

Quote:

Originally Posted by QA_Compliance_Advisor

I did it this way? any thoughts?

Code:

Function ChangeLogo(wdDoc)
Dim oCell As Cell, oTbl As Table, oRow As Row, oRng As Range
Dim i As Long
For Each oTbl In wdDoc.Tables
  For Each oRow In oTbl.Rows
    For Each oCell In oRow.Cells
      If oCell.Shading.BackgroundPatternColor = RGB(51, 51, 153) Then
      oCell.Shading.BackgroundPatternColor = RGB(12, 71, 157)
      End If
    Next
   Next
 Next
 
End Function

having troubles changing the text colour in the cell. Any suggestions?

how would I deal with merged cells?