Ensure macro only run for specific table or table in page 1

gmayor · #2 03-14-2022, 04:53 AM

It is probably best to error trap each table to ensure that you are processing the correct tables e.g. as follows. I have assumed each table has six cells - change each as appropriate. However why do you need to change the tables? Wouldn't it be better to create your document from a template that already has the masthead correctly formatted?

Code:

Dim oTable As Table
Dim i As Integer
    If ActiveDocument.Tables.Count > 3 Then
        If ActiveDocument.Tables(1).Range.Cells.Count = 6 And _
           ActiveDocument.Tables(2).Range.Cells.Count = 6 And _
           ActiveDocument.Tables(3).Range.Cells.Count = 6 And _
           ActiveDocument.Tables(4).Range.Cells.Count = 6 And _
           ActiveDocument.Tables(4).Range.Information(wdActiveEndPageNumber) = 1 Then
            For i = 1 To 4
                Set oTable = ActiveDocument.Tables(i)
                'Do something with otable e.g.
                oTable.Cell(1, 1).Range.Text = "Test"
            Next i
        End If
    End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Looking for a macro for word count in one specific column of table, only rows with white background	mobj	Word VBA	2	10-17-2019 03:09 AM
Macro to delete table rows based on the absence of a single specific keyword	JellehFishh	Word VBA	2	06-27-2019 08:23 AM
Linking Specific text fields in PP to specific cells in an Excel table	GWRW1964	PowerPoint	0	02-26-2018 07:37 AM
VBA Table – Search All Tables - Find & Replace Text in Table Cell With Specific Background Color	jc491	Word VBA	8	09-30-2015 06:10 AM
Save table sytle, NOT a specific table	Lebber	Word	9	02-01-2013 12:31 AM