error 5850

cjcant · June 23rd, 2011, 10:07 AM

Hi,

I have an error which I cannot find any info on. It is error 5850 ('The Specified range is not from the correct document or story')

I am trying to transfer data

The error appears directly above the ?????????????????????? (the 2 lines below I commented out - see later):

Code:

Dim rngSupply As Word.Range
Set rngSupply = ActiveDocument.Bookmarks("bmSupply").Range
Dim rngSupplyBody As Word.Range
Set rngSupplyBody = ActiveDocument.Bookmarks("bmSupplyBody").Range
Dim rngSupplyBreak As Range
Set rngSupplyBreak = ActiveDocument.Bookmarks("bmSupplyBreak").Range
Call RetrieveExcelData
    
    If Me.chkSupply.Value = True Then
        rngSupply.Text = vbNewLine & "Scope of Supply" & vbNewLine
        ActiveDocument.Bookmarks.Add "bmSupply", rngSupply
         ???????????????????????????????????????????????????????
        
        rngSupplyBody.Text = docSupply.Bookmarks("test").Range & vbNewLine
        ActiveDocument.Bookmarks.Add "test", rngSupplyBody
        
        rngSupplyBreak.Select
        Selection.Range.InsertBreak (wdPageBreak)
        ActiveDocument.Bookmarks.Add "bmSupplyBreak", rngSupplyBreak

As I stated above I commented out the 2 lines but that didn't do anything. I then commented out the code below and the error disappeared:

Code:

Function RetrieveExcelData()
 'Scope of Supply Document
    Public appSupply As Word.Application
    Public docSupply As Word.Document

    Set appSupply = Word.Application
    Set docSupply = appSupply.Documents.Open("H:\proposalDocumentDevelopment\proposalTemplates\scopeOfSupply.docx")

End Function

Can anybody help? I might have just written the wrong transfer code for inserting data from one word dcoument to another.

Thanks

cjcant · June 24th, 2011, 07:30 AM

I also used code from this website instead:
http://www.wiredbox.net/forum/Thread...o_another.aspx

The same error came up until I realised that the ActiveDocument was actually the one I had just opened to retrive the data from so it was looking for the bookmark in the new document.

However, I cannot re-insert the bookmark using this code and the old code I was using still comes up with the error (even after rearranging).

Does anybody have any ideas? Either way is fine as long as though it works!

Thanks

cjcant · June 24th, 2011, 10:35 AM

Hi,

I have included the code below:

Quote:

Dim rngSupplyBody As Word.Range
Set rngSupplyBody = ActiveDocument.Bookmarks("bmSupplyBody").Range

If Me.chkSupply.Value = True Then

'Import Scope of Supply Doc
Dim appSupply As Word.Application
Dim docSupply As Word.Document
Set appSupply = Word.Application
Set docSupply = appSupply.Documents.Open("H:\proposalDocumentDevel opment\proposalTemplates\scopeOfSupply.docx")

rngSupplyBody = docSupply & vbNewLine
''Re-insert the bookmark
ActiveDocument.Bookmarks.Add "bmSupplyBody", rngSupplyBody

I do not know why but the text being inserted is 'scopeOfSupply.docx' instead of the data within the document.

The bookmark is also not re-inserting but that might be a derivitative of the insert problem.

Thanks

cjcant · June 28th, 2011, 04:59 AM

Hi,

This works except for the formatting:

Code:

    'Body
        'Import Scope of Supply Doc
        Dim appSupply As Word.Application
        Dim docSupply As Word.Document
        Set appSupply = Word.Application
        Set docSupply = appSupply.Documents.Open("H:\proposalDocumentDevelopment\proposalTemplates\scopeOfSupply.docx")
    
        
        rngSupplyBody = docSupply.Bookmarks("test").Range.FormattedText & vbNewLine
        
        docSupply.Close wdDoNotSaveChanges
        
        ''Re-insert the bookmark
        ActiveDocument.Bookmarks.Add "bmSupplyBody", rngSupplyBody
        
        
        ''Re-insert the bookmark
        ActiveDocument.Bookmarks.Add "bmSupplyBody", rngSupplyBody

Is anybody able to tell me how to keep the formatting from the previous document (where the data has come from)?

Thanks