Hi All,
I would like some help and advice on how to put this macro together.
I have searched the forum and not yet found a solution although I am sure a similar one exists.
My apologies if it's already been solved.
Situation:
I have many tables in a document.
I need to search ALL the Tables and find table cells that contain:
· A specific back ground Color
· Find and Replace text in that cell ONLY - e.g. % with CB
Code:
Sub FindTableText()
Dim aTable As Table, oCell As Cell
For Each aTable In ActiveDocument.Tables
For Each aCell In aTable.Range.Cells
' if background shading is a specific color
Selection.Shading.BackgroundPatternColor = RGB( 63, 123, 196 )
'Find text in the cell and replace
With Selection.Find
.Text = "%"
.Replacement.Text = " CB1"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next aCell
Next aTable
End Sub
I am not sure how to put this together.
If anyone can advise, I would be really grateful.
Many thanks for your time in advance
J