Paste Table From XL - Word Error - Bad Parameter

[dan88]

Hi folks,



I am copying tables from excel using Paul's code below.

I modified it to use excel ranges that feed into each array.

The only issue I have now is it pastes the first table from excel into the first bookmark.

Then i get error - bad parameter on line

.MoveEnd wdTable, 1

https://www.msofficeforums.com/word-...cel-table.html

http://www.vbaexpress.com/forum/show...Tables-To-Word

Sub XLTablesWord()


Dim i           As Long

Dim TableArray() As Variant
TableArray = Range("TableNames")

Dim BookmarkArray() As Variant
BookmarkArray = Range("BookmarkNames")


    
    '---------PASTE TO DOCUMENT
    With GetObject("C:\Users\Dan\Desktop\Tables.docx")
    
    
        .Parent.Visible = True
        
        For i = LBound(TableArray) To UBound(TableArray)
            For Each sh In Sheets
                
            For Each lob In sh.ListObjects
                
                
            If TableArray(i, 1) = lob.Name Then
                
            lob.Range.Copy       'Copy Table Range from Excel
                
                
            With .Bookmarks(BookmarkArray(i, 1)).Range    'Paste Table into MS Word & format
            
                .PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
                
                .MoveEnd wdTable, 1
                .Tables(1).AutoFitBehavior (wdAutoFitWindow)
                
                End With
                End If
                Next lob
            Next sh
        Next i
    End With
   
End Sub

This has me stumped, I am not sure what the problem is

Many thanks for any advice


dan

[macropod]

The only error I can see as likely to be generated on that line is 'variable not defined' - and then only if you haven't set a reference to the Word object library.

[dan88]

Hi Paul,

that seemed to do the trick set the reference to the Word Library

but sadly another error has appeared.

For some reason it is skipping the middle table
example

Arrays Set Up like this

Table1 ------BM1
Table2 ------BM2
Table3 ------BM3


Table3 - gets pasted into BM2

and nothing in BM3
any ideas?

thank you
dan

[macropod]

Without actually seeing the problem Word document and Excel workbook, it can be difficult for anyone to diagnose the issue. Can you attach a document & workbook to a post with some representative content (delete anything sensitive)? You do this via the paperclip symbol on the 'Go Advanced' tab at the bottom of this screen.