Transferring Excel Array to Word table

[JoeS01]

Has anyone had any success in transferring a single dimensional array ( in Excel) to a specific column in Word?

 

[iliace]

As far as getting to any point in the table, you do it the same way as you work with a Range object in Excel.

tbl.Cells(1, 1).Select

For your next question - and it looks like you were already doing this? - if you have an array that is the same size and same position as your previous array, you should populate the Word table in the same loop. I will use your previously-posted code to illustrate this.

What's wrong with what you already had:

   For I = LBound(DocNo) To UBound(DocNo)
       .Tables(4).Columns(1).Cells(I - LBound(DocNo) + 2).Select
      wrdApp.Selection.TypeText (DocNo(I))
 
      .Tables(4).Columns(2).Cells(I - LBound(DocNo) + 2).Select
      wrdApp.Selection.TypeText (VerNo(I))
 
      .Tables(4).Columns(3).Cells(I - LBound(DocNo) + 2).Select
      wrdApp.Selection.TypeText (DrgTitle(I))
    Next I

Or, instead of using the Columns collection, just using the Cell collection:

    For I = LBound(DocNo) To UBound(DocNo)
     .Tables(4).Cell(I - LBound(DocNo) + 2, 1).Select
      wrdApp.Selection.TypeText (DocNo(I))
 
      .Tables(4).Cell(I - LBound(DocNo) + 2, 2).Select
      wrdApp.Selection.TypeText (VerNo(I))
 
      .Tables(4).Cell(I - LBound(DocNo) + 2, 3).Select
      wrdApp.Selection.TypeText (DrgTitle(I))
    Next I

If you had determined the column number programmatically, you just +1 to the previous column number, +2 for the next column number, etc.


Overall, there seems to be an issue you're having of determining the table (which we've solved) but also the column of that table, into which the data needs to go. If you explain that situation more clearly, it should be easier for us to come up with a solution.

 

[JoeS01]

Thanks for taking the time to post this, iliace, very much appreciated.

In terms getting back to the first cell in the table, I tried this before I recieved your post, and it generated an error - did not support this method

Obviously, your method is simpler and quicker, but I am wondering why the following did not work.

  'go to start of document Table where bookmark is located
    If wrdDoc.Bookmarks.Exists("TABLE_START") = True Then
 
        Selection.Goto What:=wdGoToBookmark, Name:="TABLE_START"   <<<ERROR< p> ERROR     
 
    Else
       MsgBox " no bookmark found at start of Table"
 
    End If

With regards to what I am trying to do, I just want to use one bookmark that users can specify where the data is to go in a table, and then three columns of data are installed starting at the bookmarked cell in the top LH corner.

 

[iliace]

I created a table, and made a bookmark within it using the name TABLE_START. Using the same code, I cannot recreate the bookmarks problem - it works as expected. What error are you getting, and on which line?

 

[JoeS01]

Error #438 "Object doesn't support this property or method" on the line in red below. I have checked that the bookmark actually does exist.

'go to start of document Table
    '.Tables(TableNo).Columns(1).Cells(1).Select
 
    If wrdDoc.Bookmarks.Exists("TABLE_START") = True Then
        [COLOR=red][B]Selection.Goto What:=wdGoToBookmark, Name:="TABLE_START"[/B][/COLOR]
    Else
       MsgBox " no bookmark found at start of Table"
    End If

Perhaps it has something to do with the code being an Excel macro, not a Word VBA macro?

The term " Selection" is out of the blue - I don't recall selecting anything

 

[iliace]

Oh, it's probably thinking you want the Excel selection. Specify the Word application object. For example:

wrdApp.Selection.Goto

Sorry I didn't even think of that previously - I was running the code directly in Word.