Microsoft Office Forums - View Single Post - [Solved] Using VB.Net 2010 I cannot duplicate tables in the correct place

macropod · 08-01-2014, 05:26 PM

There are numerous ways of doing this. For example, in VBA:

Code:

Sub Demo()
Dim Rng As Range
With ActiveDocument
  Set Rng = .Tables(1).Range
  Rng.Collapse wdCollapseEnd
  Rng.FormattedText = .Tables(1).Range.FormattedText
End With
End Sub

or:

Code:

Sub Demo()
Dim Rng As Range
With ActiveDocument
  Set Rng = .Tables(1).Range
  Rng.Copy
  Rng.Collapse wdCollapseEnd
  Rng.Paste
End With
End Sub