Object variable or With block variable not set Error 91

Question

I have the following code   Sub AddSources       Dim pubPage As Page     Dim pubShape As Shape     Dim hprlink As Hyperlink     Dim origAddress   As String     Dim exportFileName As String     exportFileName    TestResume      Dim linkSource As String     linkSource    TestSource2      Dim hyperLinkText As TextRange        For Each pubPage In ActiveDocument Pages         For Each pubShape In pubPage Shapes             If pubShape Type   pbTextFrame Then                 For Each hprlink In pubShape TextFrame TextRange Hyperlinks                     If InStr hprlink Address   http   bleaney ca    gt  0 Then                         hyperLinkText   hprlink Range                         origAddress   Split hprlink Address    source                            hprlink Address   origAddress 0      source     linkSource                         hprlink Range   hyperLinkText                     End If                 Next hprlink             End If         Next pubShape     Next pubPage     ThisDocument ExportAsFixedFormat pbFixedFormatTypePDF   C      exportFileName     pdf  End Sub   I am getting the  Object variable or With block variable not set  Error 91   error on the line with hyperLinkText   hprlink Range  When I debug I can see that hprlink Range does have a value  Any thoughts what I m doing wrong

User · Accepted Answer

As I wrote in my comment  the solution to your problem is to write the following   Set hyperLinkText   hprlink Range   Set is needed because TextRange is a class  so hyperLinkText is an object  as such  if you want to assign it  you need to make it point to the actual object that you need

[vba] Object variable or With block variable not set (Error 91)

Examples related to vba

Examples related to ms-publisher