Runtime Error 91

silentwolf · #1 07-22-2017, 08:45 AM

Hi guys,

I am not that good in word VBA and need some advice to this problem...

Below is the code but I do get a runtime error 91 in the line marked below.
Object Variable or with block not declared..

Could someone tell me what is causing this problem?

Code:

Property Get Textmarke(strName As String) As String
    DieseDateiBenutzen
    If p_docDO.Bookmarks.Exists(strName) Then
        Textmarke = p_docDO.Bookmarks(strName).Range.Text
    Else
        Textmarke = ""
    End If
End Property

Property Let Textmarke(strName As String, strText As String)
    Dim rngTM As Range

    If p_docDO.Bookmarks.Exists(strName) Then
    Set rngTM = p_docDO.Bookmarks(strName).Range

        rngTM.Text = strText
        rngTM.Bookmarks.Add strName
    Else
        MsgBox "Diese Textmarke fehlt: " & strName, vbCritical
    End If
End Property

Read on the help file but can not realy understand what I need to change.

Many thanks for your help..

Silentwolf

gmaxey · #2 07-22-2017, 10:15 AM

Is p_docDo declared as a document object and set to some opened document?

What Textmarke a property of?

silentwolf · #3 07-23-2017, 12:04 AM

Hi,
thanks for your reply!

I found the problem )
I did not set the sub in the Property Let procedure!

DieseDateiBenutzen was missing in the property let statement!

Thanks for pointing it out to me!

Silentwolf

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Excel runtime error 48; error in loading dll	mwittman5	Excel Programming	0	01-19-2017 05:18 PM
Runtime error R6034	tallon	Excel	4	07-08-2016 09:24 AM
runtime error 1004	gbaker	Excel Programming	11	06-06-2012 05:23 AM
Runtime error 91	waldux	Word VBA	1	03-04-2011 11:25 PM
Runtime error 5487 - Word cannot complete the save to to file permission error	franferns	Word	0	11-25-2009 05:35 AM