Copy and Paste a table within a Word from Excel

[sharky12345]

Guys,

I'm am playing with a routine that opens a Word document and then copies an existing Table within that document before pasting it underneath. The problem that I'm having is that the pasting is in effect attaching it to the previous Table with no break, whereas I need a new line started so the new Table is completely separate.

Here's what I have if someone can help me?

With WordDoc

.Tables(2).Range.Copy
.Tables(2).Range.Paste

End With

I was unsure if this should be posted in this forum, because it's playing with Word, or if it should go in another because it's being done from Excel - if it's in the wrong one then sorry!

 

[sharky12345]

Paul.....I've tried this on a new project but it is still pasting the new table directly underneath the previous one, in effect creating 1 long table.

Does the way in which the document is formatted have any effect? I've tried adding a new line directly under the 1st table and saving the document before running the code but it makes no difference.

Set WordDoc = WordApp.ActiveDocumentDim Rng1 As Object, Rng2 As Object, i As Long, j As Long
'Dim Rng1 As Word.Range, Rng2 As Word.Range, i As Long, j As Long
i = CLng(InputBox("How many copies?", "Table Replicator", 1))
With WordDoc
  For j = 1 To i
    Set Rng1 = .Tables(1).Range
    With Rng1
      .Start = .Start - 1
      Set Rng2 = .Duplicate
      With Rng2
        .Collapse wdCollapseStart
        .FormattedText = Rng1.FormattedText
      End With
    End With
  Next
End With

 

[Macropod]

In that case, you could use:

Set WordDoc = WordApp.ActiveDocument
Dim i As Long, j As Long
i = CLng(InputBox("How many copies?", "Table Replicator", 1))
With WordDoc.Range.Tables(1).Range
  For j = 1 To i
    .Characters.Last.Next.InsertBefore vbCr & vbCr
    .Characters.Last.Next.Next.FormattedText = .FormattedText
  Next
End With

 

[sharky12345]

Perfect - thank you Paul.