VBA Code apply draft

[lodi123]

Hi guys,

I'm having trouble with this vba code and I have no idea how to solve this.



Sub ApplyDraft()
With ActiveDocument
If .Bookmarks.Exists("Status") Then WriteToBookmarkRange "Draft", cboYourName.Value

End With
Application.ScreenUpdating = True
Unload Me
End Sub

The problem lies with the WriteToBookmarkRange
Thank you!!

[gmayor]

It certainly does, because it appears to be calling a procedure WriteToBookmarkRange that doesn't exist, and the macro as written also has no idea what cboYourName.Value is.

If you want to write text to a bookmark, you could call the FillBM sub from my web site:

Public Sub FillBM(strBMName As String, strValue As String)
'Graham Mayor - http://www.gmayor.com
Dim oRng As Range
    With ActiveDocument
        On Error GoTo lbl_Exit
        Set oRng = .Bookmarks(strBMName).Range
        oRng.Text = strValue
        oRng.Bookmarks.Add strBMName
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

This will write the value to the named bookmark (here "Draft"), assuming that bookmark exists also. If not it does nothing. e.g.

If .Bookmarks.Exists("Status") Then FillBM "Draft", Environ("USERNAME")

This inserts the user's name at the bookmark, which I guessed may be what the missing value was all about.