954,535 Members — Technology Publication meets Social Media
Username:
Password:
Lost login information?
Have something to say? Contribute New Article Reply to this Article

copy a word table and paste it in a new page

I have a table that i'm trying to use as a template that I can then copy to a new page.

i only got this much

Dim oWord As word.Application
        Dim oDoc As word.Document
        Dim oTable As word.Table


        FileCopy("C:/1535.doc", "C:/1535_1" & ".doc")

        oWord = New word.Application
        oDoc = oWord.Documents.Open("C:/1535_1" & ".doc")


        oDoc.Activate()

        oTable = oDoc.Tables(1)
        
        
        oWord.Selection.GoTo(word.WdGoToItem.wdGoToLine, word.WdGoToDirection.wdGoToLast, Nothing, Nothing)
        oWord.Selection.InsertBreak(word.WdBreakType.wdPageBreak)
        


        oDoc.Save()
        oDoc.Close()
        oWord.Quit()


So i want to get a copy of oTable then after the page break it makes a new page but i don't know how go to that page and put a copy of oTable.

ninjatalon
Junior Poster in Training
81 posts since Feb 2011
Reputation Points: 11
Solved Threads: 3
 

I ended making it work heres the code just in case anyone wants it in the future

Dim oWord As word.Application
        Dim oDoc As word.Document
        Dim oTable As word.Table
 

oTable = oDoc.Tables(1) ' 
oWord.Selection.Tables(1).Select() 'selects your table(template)
oWord.Selection.Copy() 'makes a copy of your template

do while start<end ' your loop to add as many tables you want
       'Your code to edit your table


         'after edit table
           oWord.Selection.Tables(1).Select() ' Selects the table 
           oWord.Selection.MoveDown(word.WdUnits.wdLine, 1)'moves after the table

           oWord.Selection.InsertBreak(word.WdBreakType.wdPageBreak) 'inserts new page
           oWord.Selection.PasteAndFormat(word.WdRecoveryType.wdPasteDefault) 'pastes the original table(template)

start=start+1
loop
ninjatalon
Junior Poster in Training
81 posts since Feb 2011
Reputation Points: 11
Solved Threads: 3
 

This question has already been solved

Post: Markdown Syntax: Formatting Help
You
View similar articles that have also been tagged: