Automatically edit formatting af tables across a document

gmayor · #6 12-28-2017, 09:40 PM

A document comprises several story ranges. In this instance the macro processes all the story ranges, but only prompts for tables in the document that don't meet the required criteria that are in the main body of the document as opposed to (say) being in headers and footers.

Your original post said that the document had many tables, so to avoid prompting for tables that already met your criteria, the macro checks whether the tables meet the criteria before prompting. As the tables are single cell you can remove the lines that relate to the insidelinestyle.

If you want to select regardless.then remove the checks e.g.

Code:

Private Sub FormatTable(oTable As Table)
Const lngBackColor As Long = wdColorGray10
    If oTable.Range.InRange(ActiveDocument.Range) = True Then
        With oTable
            .Select
            If MsgBox("Format the selected table?", vbYesNo, "Format tables") = vbYes Then
                .Borders.OutsideLineStyle = wdLineStyleNone
                .Shading.BackgroundPatternColor = lngBackColor
            End If
        End With
    Else
        With oTable
            .Borders.OutsideLineStyle = wdLineStyleNone
            .Shading.BackgroundPatternColor = lngBackColor
        End With
    End If
lbl_Exit:
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Tables in Word Document - Formatting	Networkrail	Word Tables	0	08-22-2017 05:49 AM
Edit one document, have it automatically update other connected documents.	bradyb90	Word	1	05-10-2015 10:53 AM
Forms fields: edit content easily in tables	kirby gilman	Word	8	12-04-2014 08:43 AM
Formatting all tables	knightmetal	Word	2	09-10-2012 10:53 PM
How to create an Excel add in that will automatically build tables from data	selvamariappan	Excel Programming	1	12-12-2011 03:11 AM