In the following, I have shared 3 effective methods to explain this task. Please not that this is not the entire code, just the relevant part to this question.3 Effective Methods to Copy Only Text from Excel to Word I'm wondering if this could be done using a datagridview? Maybe the table could be exported/copied to this and then the data transfered from that into Excel. One would think this would be simple, but I'm probably making I have changed the question to reflect this and also added code to assist anyone who can help. I know how to copy as suggested above, but I need to do this programmatically. I should have been more specific with my question: I need to do this with

Here's the link that I referenced for this code: (POST 4)ĭim newXL As Excel.Application = Nothing Dim newWBS As Excel.Workbooks = Nothing Dim newWB As Excel.Workbook = Nothing Dim newWS As Excel.Worksheet = Nothing Dim newWord As Word.Application = Nothing Dim newDocs As Word.Documents = Nothing Dim newDoc As Word.Document = Nothing newXL = New Excel.Application() newXL.Visible = True newWBS = newXL.Workbooks newWB = newWBS.Open(RFMFile) newWS = newWB.Worksheets(1) newWord = New Word.Application() newDocs = newWord.Documents newDoc = newDocs.Open(wordFile) Dim objTable = newDoc.Tables(1) newWS.Cells('A1') = objTable.Cell(1, 1).Range.Text newWS.Cells('A1') = newDoc.Tables(1).Cell(1, 1).Range.Text newDoc.Close() Please not that this is not the entire code, just the relevant part to this question.

If anyone wants to comment feel free to post - I'm open to other opinions/suggestions: Dim newXL As Excel.Application = Nothing Dim newWBS As Excel.Workbooks = Nothing Dim newWB As Excel.Workbook = Nothing Dim newWS As Excel.Worksheet = Nothing Dim newWord As Word.Application = Nothing Dim newDocs As Word.Documents = Nothing Dim newDoc As Word.Document = Nothing newXL = New Excel.Application() newXL.Visible = True newWBS = newXL.Workbooks newWB = newWBS.Open(RFMFile) newWS = newWB.Worksheets(1) newWord = New Word.Application() newDocs = newWord.Documents newDoc = newDocs.Open(wordFile) Dim objTable = newDoc.Tables(1) For Each t In newDoc.Tables For rw = 1 To t.unt For cel = 1 To t.rows(rw).unt newWS.Cells(rw, cel) = objTable.Cell(rw, cel).Range.Text Next Next Next newDoc.Close() newWord.Quit() End Sub

I'm not sure if it's the 'proper way' but it gets the job done. So it looks like I might have found the solution to my problem.

Copy word table to excel