Copying text from last row of multiple tables of different lengths

Guessed · #2 04-09-2019, 03:43 PM

Try this version

Code:

Sub Results2()
  Dim i As Integer, iTables As Integer
  Dim aTbl As Table, tblLast As Table
  Dim aRng As Range, aRngEnd As Range
  
  iTables = ActiveDocument.Tables.Count
  Set tblLast = ActiveDocument.Tables(iTables)
  
  For i = 1 To iTables - 1
    Set aTbl = ActiveDocument.Tables(i)
    Set aRng = aTbl.Range.Cells(1).Range
    If InStr(aRng.Text, "Worksheet") > 0 Then
      Set aRngEnd = tblLast.Range
      aRngEnd.Collapse Direction:=wdCollapseEnd
      aRngEnd.FormattedText = aTbl.Rows.Last.Range.FormattedText
    End If
  Next i
End Sub

Note that you will likely encounter problems if your tables have merged cells or the cell counts are not consistent in the last rows.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to compile text from multiple tables into a cell in a nested table	jrooney7	Word VBA	2	03-11-2019 07:55 AM
Copying text into multiple cells at once	BIMwit	Word Tables	1	05-14-2015 09:50 PM
Ink to Text lines are different lengths	raineysky	OneNote	0	02-12-2015 11:21 AM
Copying multiple files as text without extensions	Metamag	Office	3	05-09-2011 06:25 PM
Copying Multiple tables from excel into a single word document	dineshtgs	Word Tables	1	04-07-2011 01:27 AM