Pasting a cell into bookmarked table from excel vba

Discussion in 'Word' started by klutch, Jun 15, 2018.

  1. klutch

    klutch

    Joined:
    Jun 15, 2018
    Messages:
    1
    Likes Received:
    0
    Hello, I have been looking for a way to code my workbook to copy a cell from excel and paste it into a bookmarked table I have in word. I was hoping to be able to paste it into specific cells depending on data from my worksheet. Here is what I have so for
    Code:
    Sub CopyAndPaste()
    'opens libraries to select desired file 
    Dim myfile, wdApp As New Word.Application, wdDoc As Word.Document
    myfile = Application.GetOpenFilename(, , "Browse for Document")
    
    Dim i As Integer
    i = Application.Match("Avg", Sheet1.Range("A1:A20"), 0)
    Range("E" & i).Select
    Selection.Copy
    
    
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Open(myfile)
    'select the word range you want to paste into
        wdDoc.Bookmarks("PRtable").Select
        
        
        'and paste the clipboard contents
        wdApp.Selection.Paste
    
    End Sub
    How can I change this to paste the data into cell(3,4) of the table?
    In addition to this, would I be able to paste in different cells depending on the data?
    Ex. If range("c2") = 22 then paste in bookmark cell(2,4)
    If range("C2")= 5 then paste in bookmark cell(3,4)
    If range("C2")= -20 then paste in bookmark cell(4,4)
     
    klutch, Jun 15, 2018
    #1
    1. Advertisements

  2. klutch

    macropod Microsoft MVP

    Joined:
    Mar 2, 2012
    Messages:
    403
    Likes Received:
    35
    macropod, Jun 16, 2018
    #2
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.