Word VBA Find Table Text Shading Colour and replace with another

QA_Compliance_Advisor · #5 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?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to find text and replace with form field containing that text	iiiiifffff	Word VBA	16	06-04-2016 01:47 AM
Find and Replace multiple table columns	smakdown61	Word	1	08-28-2014 09:24 PM
Word VBA Macro to Find and Replace based on the Alt Text of an Image	bennymc	Word VBA	1	01-27-2014 04:23 PM
Find - Replace Macro using a table list	mdw	Word	0	08-01-2013 04:36 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM