Comments by Member 11438562 (Top 4 by date)

Does any body know what could be the issue causing this inconsistent error.

Hi Richard,
Following is the code which is shown in the error description.

Public Sub ActiveBookmarkSet(iIndex As Integer, Optional szBookmark As String = "")
On Error GoTo ActiveBookmarkSetErr
Dim iErrorTimes As Integer

iErrorTimes = 0
If Not moBookmarks Is Nothing Then
If iIndex > 0 Then
If miActiveBookmarkCount >= iIndex Then
Set moBookmark = moBookmarks.Item(iIndex)
mszActiveBookmark = moBookmark
End If
ElseIf szBookmark <> "" Then
If moBookmarks.Exists(szBookmark) = True Then
Set moBookmark = moBookmarks.Item(szBookmark)
mszActiveBookmark = moBookmark
End If
End If
Else
mobjRevision.objError.RaiseError CWORDERR_BASE_NoActiveBookmarks, App.EXEName & "::CGCDocWordApp::ActiveBookmarkSet", ""
End If
Exit Sub
ActiveBookmarkSetErr:
iErrorTimes = iErrorTimes + 1
If iErrorTimes < 6 Then
Resume
End If
& "::CGCDocWordApp:ActiveBookmarkSet Method", "")
Call mobjRevision.objError.RaiseError(Err, App.EXEName & "::CGCDocWordApp:ActiveBookmarkSet Method", Err.Description)
End Sub

Hi All,

Thank you for you reply I will impliment the solutions provided by you all.

And let you all know about the status.

Thank you so much.:)