Executing macro on each subsequent page/table

azurtem · #1 07-21-2023, 07:33 AM

Hi

I have the following label template in Windows (v11) Word (v2021) : https://bit.ly/3K8IrKS

The objective is to print a list of mac addresses on individual labels

When merging data into this template, Word naturally fills the cells in from left to right and then from top to bottom

I would like to modify the resulting order of the merged cell entries in the table so as to sort them from top to bottom, and then from left to right

I came across this VBA script, generously shared by Greg Maxey : Table Re-sorter

It produces exactly the sought result; but for one page/table only. Which is totally fine.
Except that I need to execute this sort procedure on the subsequent pages/tables also present in this document

I therefore added some lines of code around the line that calls the "TableSort_Re_Sort" procedure as follows :

Code:

  Dim Pages As Long, PageNb As Long  
  Pages=Selection.Information(wdNumberOfPagesInDocument)
  For PageNb = 1 to Pages
	Selection.GoTo What:=wdGoToPage, Name:=PageNb
	TableSort_Re_Sort
  Next

To test this out, I place the cursor at the top left cell of page/table #1 and then run the macro

The added lines correctly position the cursor on the top left cell of each subsequent page/table through each iteration
But unfortunately, the "TableSort_Re_Sort" procedure only gets executed on page/table #1

If can obtain the desired (global) result (without my added code) if I position the cursor
in the top left cell of each page/table and manually execute the macro

There is obviously something that I don't understand in the VBA mechanism/process and hope that someone can point me in the right direction

Thank you

regards
yann

gmayor · #2 07-21-2023, 11:15 PM

Greg's code operates on the selected table. Change it to sequentially process all the tables e.g.

Code:

Sub SortTable()
  'Set the table object = the table with the selection
  On Error GoTo Err_Handler:
  For Each m_Otbl In ActiveDocument.Tables
    'Table must be uniform (not split or merged cells)
    If Not m_Otbl.Uniform Then
        MsgBox "The selected table has split or merge cells and cannot be sorted with this procedure", vbInformation + vbOKOnly, "Non-Uniform Table"
        Exit Sub
    End If
    TableSort_Re_Sort
  Next m_Otbl
  Exit Sub
Err_Handler:
End Sub

azurtem · #3 07-22-2023, 01:27 AM

Spot on ! Thanks Graham
Sorted :]]

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Page No 1 changes when subsequent Page No formatted as continuous	brigb	Word	3	06-28-2023 12:35 PM
Menu Macro Not Executing - Need Help	Moondoggy	Excel	4	01-14-2023 12:49 AM
Table Header - have 'continued' on subsequent pages...	User12344321	Word Tables	6	07-27-2020 12:45 PM
Executing a Word macro only after a certain date & time	rdross51	Word VBA	4	07-07-2017 06:29 AM
Shift Excel Cell after executing a macro for second time	LearningMacro	Excel Programming	2	01-08-2015 03:05 PM