Mismatch Type Error

[Mbrandt5@my.wctc.edu]

The following code updates the bookmark BMK when the Word VBA Userform code is loaded from the activedocument

                    

           With ActiveDocument

                    Set BMRange = ActiveDocument.Bookmarks("BMK").Range
                    BMRange.Text = "  "
                    If Len("BMK") > 0 Then ActiveDocument.Bookmarks.Add "BMK", BMRange

           End With

The code below, in an excel VBA userform, opens the word application and then opens the below document. Then it sets that document as the active document.

    
    Dim BMRange As Range
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document

    If wrdApp Is Nothing Then
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Open("c:\Document Name.docx")
    Documents("Document Name.docx").Activate

When I try to use first code, in an Excel VBA userform, to specify the active document the bookmark belongs to it gives me an error of mismatch type. Can someone explain to me why this is occurring? Also without restructuring the code anyone know how I can make it work?

Thanks

[Mbrandt5@my.wctc.edu]

Figured it out...For anyone with a similar issue.

When a Range is altered in word from excel it must be specified as a Word.Range like below

Dim BMRange As Word.Range

[techgnome]

The reason is that there is also an Excel.Range ... so when you're in Excel and you declare something as a "Range" it thinks you want an Excel.Range ... which is not a Word.Range... thus the type mismatch error. So, as you found out, the way to correct that is to be explicit in telling VB which Range you want to use.

-tg