Copy / Paste from Excel to Word

[Dziblock]

Hi,


Is it possible to extract data from a cell in Excel and paste it in a specific place, for example, the second table of a Word template, row 2, cell 3?
So far, I've only managed to paste the data at the end of the Word doc...


Thanks

 

[DanteAmor]

Hi @★ Dziblock, welcolme to the forum.

You can do the following, in your Word template, on the site where you want to paste the excel range, type a specific text.
For example:

--------------------------------------------------------------------------------
With the following code you can copy a range of cells and paste in the word:

Sub Excel_To_Word()
  Application.ScreenUpdating = False
  Dim h1 As Worksheet, wPath As String, wTemplate As String, wText As String
  Dim objWord As Object
  '
  Set h1 = Sheets("[COLOR=#ff0000]Sheet5[/COLOR]")
  wPath = "[COLOR=#ff0000]C:\trabajo\books\[/COLOR]"
  wTemplate = "[COLOR=#ff0000]MyTemplate.dotx[/COLOR]"
  wText = "[COLOR=#ff0000]Here_Paste_Range[/COLOR]"
  '
  Set objWord = CreateObject("Word.Application")
  objWord.Visible = True
  objWord.Documents.Add template:=wPath & wTemplate, NewTemplate:=False, DocumentType:=0
  '
  h1.Range("[COLOR=#ff0000]A1:D10[/COLOR]").Copy
  objWord.Selection.Move 6, -1 'moverse al principio del documento
  objWord.Selection.Find.Execute FindText:=wText
  If objWord.Selection.Find.found = True Then
    objWord.Selection.PasteExcelTable False, True, False
  End If
  objWord.Activate
  objWord.ActiveDocument.SaveAs wPath & "[COLOR=#ff0000]NewWord[/COLOR]"
  objWord.ActiveDocument.Close
  objWord.Quit
  '
  Application.CutCopyMode = False
End Sub

Change the data in red for your information.

 

[Dziblock]

Thanks Dante, your solution seems ok and I may use it for another problem but for the Word table, I've received this solution from another forum and it works perfectly:

ActiveDocument.Tables(2).Cell(2, 3).Range = Range("A1")

 

[DanteAmor]

Youre welcome, thanks for the feedback.

 

[Fluff]

@Dziblock
For future reference
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

https://www.msofficeforums.com/excel-programming/43287-export-data-word-table.html

 

[Dziblock]

Ok, sorry for that, I'll post links next time I cross post ?

 

[Dziblock]

Here's the link to the other thread I posted on Microsoft Office forums:
https://www.msofficeforums.com/excel-programming/43287-export-data-word-table.html#post144601