Microsoft Office Forums - View Single Post - [Solved] Macro for selecting pages and formatting of tables

macropod · 04-30-2012, 09:23 PM

Hi umesh,

Change:
With Range.Find
to:

Code:

      Set Rng = .Range
      Rng.Start = Rng.Rows(2).Range.Start
      With Rng.Find

You can remove all shading (not highlighting) by adding the following code between the final 'Next' and 'End With' statements in the 'FormatTables' sub:

Code:

  With .Range.Font.Shading
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorAutomatic
  End With