#1
|
|||
|
|||
VBA Run time error '91' suspect .placeholdertext=nothing
I have created a form with multiple tables.
When it gets to this part of the code I get Run Time Error '91' Object variable or with block not set I believe it is because the .placeholdertext = nothing How can I fix this? Thank you in advance Code:
With ActiveDocument.Tables(6) If ContentControl.Range.InRange(.Range) Then For i = 3 To .Rows.Count With .Cell(i, 2).Range.ContentControls(1) If .Range.Text <> .PlaceholderText Then k = k + 1 For j = 1 To .DropdownListEntries.Count If .DropdownListEntries(j) = .Range.Text Then l = l + .DropdownListEntries(j).Value Exit For End If Next End If i = i + 1 End With Next With ActiveDocument.Tables(1).Rows.Last.Cells(1).Range If k > 0 Then .Text = Format(l, "##0") Else .Text = vbNullString End If End With End If End With |
#2
|
||||
|
||||
Are we to assume your ".placeholdertext = nothing" is the result of having used ".SetPlaceholderText , , """ somewhere? If so, that won't produce an error with the above code; neither would leaving the default placeholdertext in-situ.
Note also that, instead of "If .Range.Text <> .PlaceholderText Then" you could use "If .ShowingPlaceholderText = False Then" It's not apparent to me where the error is occurring. You might do well to insert some message boxes into the code to return the values of your variables and text at various points so you can discover at what point in the process the code falls over.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Thank you Paul. The error was occurring in the 5th line of code. I changed the code to what you suggested and it seems to work fine.
Thank you again for your expertise. |
Tags |
runtime error 91, vba |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Run Time Error '1004' | galkej | Excel | 0 | 02-03-2014 06:39 AM |
Get Run-time Error 11 | Jamtart | PowerPoint | 2 | 08-31-2012 05:04 AM |
Run time error 1004 | yonasan | Excel Programming | 3 | 06-12-2012 11:08 PM |
Word Visual Basic error - run time error 504 | crazymorton | Word | 11 | 01-13-2012 04:32 AM |
Run-time error 438 | cksm4 | Word | 2 | 01-12-2011 03:41 PM |