Excel to Word Copy paste Data using bookmarks by VBA

[mohichem]

Below Code is working only for one cell,I want to change this to "If a particular cell is double-clicked automatically transfer the entire row data into the corresponding word bookmarks"

Sub test()
Dim objWord As Object
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1")

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

objWord.Documents.Open "C:\test.docx" ' change as required

With objWord.ActiveDocument
.Bookmarks("Text1").Range.Text = ws.Range("A1").Value
.Bookmarks("Text2").Range.Text = ws.Range("A2").Value
.Bookmarks("Text3").Range.Text = ws.Range("A3").Value
End With

Set objWord = Nothing

End Sub


I was tried many combinations it was not working,Please help me .........

 

[davesexcel]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim objWord As Object
    If Not Application.Intersect(Target, Me.Range("A1:A3")) Is Nothing Then
        Cancel = True
    End If

    Set objWord = CreateObject("Word.Application")

    objWord.Visible = True

    objWord.Documents.Open "C:\Users\davem\OneDrive\Excel Examples\Test.docx" ' change as required

    With objWord.ActiveDocument
        .Bookmarks("Text1").Range.Text = Target.Value
        .Bookmarks("Text2").Range.Text = Target.Offset(, 1).Value
        .Bookmarks("Text3").Range.Text = Target.Offset(, 2).Value
    End With

    Set objWord = Nothing

End Sub

This belongs in the worksheet module

 

[mohichem]

Thanks for the help,it is very useful me.

I would like to learn VBA, Could you please suggest any Youtube video channel?