Macro for selecting pages and formatting of tables

macropod · #16 04-30-2012, 11:00 PM

Hi umesh,

This is the first time you've mentioned anything about the bottom borders. Obviously, if you delete the bottom row, the bottom border gets deleted too. To restore the borders, you need to:
• Dimension three more variables:
Dim BdrClr As Long, BdrWdth As Long, BdrSty As Long
• Insert the following code after 'If UCase(Rng.Text) <> "DATE" And UCase(Rng.Text) <> "PERIOD" Then GoTo NextTable':

Code:

      With .Range.Rows.Last.Borders(wdBorderBottom)
        BdrClr = .Color
        BdrWdth = .LineWidth
        BdrSty = .LineStyle
      End With

• Insert the following code between 'Next' and 'Set Rng = .Range':

Code:

      With .Range.Rows.Last.Borders(wdBorderBottom)
        .LineStyle = BdrSty
        .LineWidth = BdrWdth
        .Color = BdrClr
      End With

If you put the 'shading' code where I suggested, it does remove all the shading from the document. I suspect you have put the code before the final 'Next' statement.

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