Replace Cell Color with Another (Word 2002)

Topic

New Reply

I have a folder with a couple of hundred Word document files based on a template with a formatted table. I would like to change the orange shade colored cell to a brownish shade. The attached file is a trimmed down version of the template has the exact color codes that I want replaced. Is there a easier way to automate this task? Thanks in advance.

Reply | Quote

Replies

See post 703,225, replace the ReplaceInDoc procedure with

Sub ReplaceInDoc(doc As Document)
Dim tbl As Table
Dim cel As Cell
For Each tbl In doc.Tables
For Each cel In tbl.Range.Cells
With cel.Shading
If .BackgroundPatternColor = RGB(255, 153, 0) Then
.BackgroundPatternColor = RGB(199, 169, 116)
End If
End With
Next cel
Next tbl
End Sub

then run the ReplaceInFolder macro.

Reply | Quote

This is excellent Hans. Thank you very much.

Reply | Quote

I have another situation this time deleting the last two tables on the same group of files. I will attach a sample file. I’ve marked the last two table as Table 6 and Table 7. Could you once again assist me on this. Thanks very much!!!

Reply | Quote

To delete the last table in each document you can add the VBA code
doc.Tables(doc.Tables.Count).Delete
before the line
For Each tbl In doc.Tables

Include this single line of code twice in a row to delete the last two tables in each document.

Please test this on a copy of the folder full of documents, to make sure it really is what you want.

StuartR

Reply | Quote

Thanks Stuart. I worked beautifully.

Reply | Quote