Macro for selecting pages and formatting of tables

		Microsoft Office Forums > Microsoft Word > Word VBA
Macro for selecting pages and formatting of tables

FAQ

Thread Tools

Display Modes

#12

04-30-2012, 09:23 PM

macropod

Windows 7 64bit Macro for selecting pages and formatting of tables

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,467

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

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Another Case of Automatic/Zombie Formatting of Tables	MKummerfeldt	Word Tables	0	10-31-2011 10:40 AM
Splitting multiple pages using macro	F5JASON	Excel Programming	0	07-27-2011 08:22 AM
Selecting the macro document	lars	Word VBA	0	08-19-2010 06:06 AM
Whacked formatting in tables (2007)	Roscoe	Word Tables	6	06-11-2010 02:48 PM
Keeping Tables from Splitting Between Pages	AlexPaoletti	Word Tables	2	05-18-2010 01:17 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:41 PM.