 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Word / Programming / March 2005Find PaleBlue and Replace with Yellow in all Tables
I have a Word 2003 document with a number of tables that have certain cells with a pale blue background. I wish to change the background colour of these cells to Yellow. I thought I could do it with find and replace, but have had no success. I'm wondering if someone could help with a macro to achieve this. Mark Hi Mark, Try this macro. I tested it with Word2000 but it should work with Word2003. Since you did not specify, I assumed that the tables have no Merged Rows and/or Columns. Dim oTable as Table Dim oRow as Row Dim oCell as Cell For Each oTable in ActiveDocument.Tables For Each oRow in oTable.Rows For Each oCell in oRow.Cells If (oCell.Shading.BackgroundPatternColor = wdColorPaleBlue) Then oCell.Shading.BackgroundPatternColor = wdColorYellow End If Next oCell Next oRow Next oTable Jerry Bodoff > I have a Word 2003 document with a number of tables that have certain cells > with a pale blue background. I wish to change the background colour of these [quoted text clipped - 4 lines] > > Mark Hi Mark, Ignore my previous Macro. The following is a little simpler and should work with merged rows and columns. Dim oTable As Table Dim oCell As Cell For Each oTable In ActiveDocument.Tables For Each oCell In oTable.Range.Cells If (oCell..Shading.BackgroundPatternColor = wdColorPaleBlue) Then oCell..Shading.BackgroundPatternColor = wdColorYellow End If Next oCell Next oTable Jerry Bodoff > I have a Word 2003 document with a number of tables that have certain cells > with a pale blue background. I wish to change the background colour of these [quoted text clipped - 4 lines] > > Mark Many thanks I'll give it a shot Mark > Hi Mark, > [quoted text clipped - 27 lines] >> >> Mark Hi Mark, Let me know if you have any problems Jerry B > Many thanks > [quoted text clipped - 33 lines] > >> > >> Mark Many thanks. Yes it worked fine. My final macro was: Sub Find_Blue_Rep_Yellow() ' Find PaleBlue replace with Yellow Dim oTable As Table Dim oCell As Cell For Each oTable In ActiveDocument.Tables For Each oCell In oTable.Range.Cells If oCell.Shading.BackgroundPatternColor = wdColorPaleBlue Then oCell.Shading.BackgroundPatternColor = wdColorYellow End If Next oCell Next oTable End Sub Thankyou Mark > Hi Mark, > [quoted text clipped - 40 lines] >> >> >> >> Mark Hi Mark, You are welcome. I thought of something else that might occur if the tables are large. The cursor may blink If that is happening and it bothers you add: Application.ScreenUpdating =False before For Each oTable and just before the End Sub add Application.ScreenUpdating = True In any case it would make it run faster. It doesn't hurt to leave these statements out. Jerry Bodoff > Many thanks. Yes it worked fine. My final macro was: > [quoted text clipped - 58 lines] > >> >> > >> >> Mark |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.