copy tables in a new word document

Dev Shed Forums Sponsor:

Get inside! Sample the range of functionality easily built with JMSL Library for Time Series Data Analysis, Heat Maps, Portfolio Optimization, Monte Carlo Simulation, Stock Price Charting and more. Download Now!

July 22nd, 2003, 10:07 AM

Wizard2003

Contributing User

Join Date: Jul 2003

Posts: 206

Time spent in forums: 19 h 29 m 24 sec
Reputation Power: 6

copy tables in a new word document

Hi all,

I try to copy the first and the last table of an existing word document in a new word document.
The problem is that the first table is always overwritten by the last one.
I tried it in that way:

Code:

tableCounter = 0
For Each aTable In ActiveDocument.Tables
  tableCounter = tableCounter + 1
  If (tableCounter = 1 or tableCounter = ActiveDocument.Tables.Count)
        aTable.Select
        Selection.Copy
        Selection.EndKey Unit:=wdStory ' go at the end of the doc
        Selection.TypeText ("Table foo")
        Selection.EndKey Unit:=wdStory ' go at the end of the doc
        Documents("newdoc.doc").Content.Paste
        Selection.EndKey Unit:=wdStory
        Documents("newdoc.doc").Content.InsertParagraphAfter
  End If
Next

Could anyone help me?

Thanks in advance

Oliver

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > copy tables in a new word document

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump