I have a large document in which I have filled the character cells with a colour to highlight for me, while editing, that it needs additional treatment. Problem is, I have to generate a print a copy of the document for my advisor to read. Is there anyway I can run a macro to clear the highlights in the whole document easily? -- Ken Smith
It would help to know how you applied the formatting and to what, but from your description it seems you may be discussing a table with background colouring in some cells. The following will remove all the background colouring in table cells in a document, and print the document to the currently active printer before restoring the document with the cell colouring intact. Dim sTable As Table Dim myDoc As Document Dim docName As String Set myDoc = ActiveDocument myDoc.Save docName = myDoc.FullName For i = 1 To myDoc.Tables.Count Set sTable = myDoc.Tables(i) sTable.Select With Selection.Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With Next i myDoc.PrintOut myDoc.Close wdDoNotSaveChanges Documents.Open docName -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Ken wrote: > I have a large document in which I have filled the character cells > with a colour to highlight for me, while editing, that it needs > additional treatment. > > Problem is, I have to generate a print a copy of the document for my > advisor to read. Is there anyway I can run a macro to clear the > highlights in the whole document easily?
