Results 1 to 4 of 4
  1. #1
    KTYorke
    Guest

    Reduce Shading easily (W97/SR2)

    yipes...
    I have about 10 documents with a TON of tables in each... for easy reading, every other line was shaded at 30%... NOW we want that shading down to 10%... is there an easy way to go through each document and reduce that percentage? I can create a macro to do each row individually... but I was hoping for something that would just go through the whole doument, look for any shading and reduce it... can that be done with a macro that won't screw up my document?

    thanks
    have fun

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Reduce Shading easily (W97/SR2)

    I have Word2000, and this works in Word2000. Does it work for you?

    Sub LightenShade()
    Dim aTable As Table, aRow As Row, aColumn As Column, aCell As Cell
    For Each aTable In ActiveDocument.Tables
    For Each aRow In aTable.Rows
    For Each aCell In aRow.Cells
    If aCell.Shading.Texture = wdTexture30Percent Then _
    aCell.Shading.Texture = wdTexture10Percent
    Next
    Next
    Next
    End Sub

  3. #3
    KTYorke
    Guest

    Re: Reduce Shading easily (W97/SR2)

    I have W2000 here at home and I'm on vacation for the next week (HAPPY 4th!! <img src=/S/fanfare.gif border=0 alt=fanfare width=31 height=23>) I'll try it when I get back to work... if it works you're a sanity saver!!
    have fun

  4. #4
    Platinum Lounger
    Join Date
    Feb 2001
    Location
    Yilgarn region of Toronto, Ontario
    Posts
    5,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Reduce Shading easily (W97/SR2)

    It sounds as if you are doing a major overhaul of '000s of documents with '000s of tables.

    You may want to try my UnderTheHood which has a growing collection of table utilities, including ones to convert tables to temporray files, replacing the table with a token pointer to the file, and convert it back (tokenise/detokenise). I find this technique a time-saver when I have to process other-than tables, because a 100-page document can shrink to about 10 pages, speeding up the process no end.

    If you try it and see something close to what you want, let me know and I'll add a feature, just for you!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •