Range -> Bookmark

[beczer]

Hi there

I have a small problem. Could you tell me / advice how to assign a Range to Bookmark from Sheet1 in below case ?

thanks!

Sub SomeSub()Dim r As Integer
Dim wdApp As Word.Application
Dim doc As Word.Document
Dim wkbCRMExt As Workbook
Dim wksCRMExt As Worksheet, wksCRM As Worksheet
    Set wksCRM = ActiveSheet
    Set wkbCRMExt = Workbooks.Open(Environ("UserProfile") & "\Desktop\CRM.xlsx")
    Set wksCRMExt = wkbCRMExt.Sheets(1)
    Set wdApp = New Word.Application
    Set doc = wdApp.Documents.Open(Environ("UserProfile") & "\" & ThisWorkbook.Sheets("Path").Cells(1))
    With ThisWorkbook.Worksheets("CRM2")
    [B]With ThisWorkbook.Worksheets("Sheet1")
[/B]

        For r = 1 To 5
            doc.Bookmarks(wksCRM.Cells(r, "A").Value).Range.Text = wksCRMExt.Cells(r, "B").Value
            doc.Bookmarks(.Cells(r, "A").Value).Range.Text = .Cells(r, "B").Value
            [B]doc.Bookmarks(.range A1:A20)[/B]

        Next
    End With
    doc.SaveAs2 Environ$("UserProfile") & "\Desktop\Doc1.docx"
    doc.Close False
  
End Sub

 

[beczer]

No ideas ?

 

[NdNoviceHlp]

You have messed up the wb sheet identification. You have 2 "With"'s and only one "End With". It's not clear where your data is coming from. Maybe provide a little more info about exactly what U want to accomplish (specific sheets etc). HTH. Dave

 

[beczer]

I take Data from 2 Excel files.
1. CRM - external Excel file: Sheet1 (sheet)
2. Current opened Excel file: CRM2 (sheet)

I would like to take a Data Range from 2nd sheet - Sheet1 in Current opened Excel file

 

[NdNoviceHlp]

Please just indicate exactly what the sheet name is and where the data range is that U want to put in the book marks. What range of data from what sheet goes into what bookmark? It's not clear to me. Dave

 

[beczer]

Bold lines -> this is what I need

Thanks

 

[Macropod]

Did it occur to you to do a search? There are plenty of threads showing how to populate Word bookmarks, including some very recent ones...

There is even at least one post where I provided you with code for that!!!