How to Find and Replace Tables with a certain Shading

  • Thread starter Thread starter zyzzyva
  • Start date Start date
Dim i As Long
With ActiveDocument
For i = 1 To .Tables.Count
.Tables(i).Shading.BackgroundPatternColor = wdColorAutomatic
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Shading in table 1
remove shading on side of page 1
Shading Issue 1
Shading on form text fields 1
Paragraph Shading in Word 1
how to shade a paragraph with bullets without gaps in the shade 1
Remove field shading when pasted 1
Word 2000 cell shading 1

Back
Top