Sub AutoTextToBM(strbmName As String, oTemplate As Template, strAutotext As String)
If CheckBox1 = True Then
'strBMName is the name of the bookmark to fill
'strbmname should be "bm1"
'oTemplate is the template with the autotext - probably ActiveDocument.AttachedTemplate
'oTemplate should be ActiveDocument.AttachedTemplate
'strAutotext is the name of the autotext entry
'strAutotext should be "tekstbm1"
'How to declare these values?
Dim oRng As Range
'    On Error GoTo lbl_Exit
    With ActiveDocument
        Set oRng = .Bookmarks(bm1).Range
        Set oRng = oTemplate.AutoTextEntries(tekstbm1).Insert _
                   (Where:=oRng, RichText:=True)
        .Bookmarks.Add Name:=bm1, Range:=oRng
    End With
lbl_Exit:
    Exit Sub
    End If
        'no errors, but also no text has been placed
End Sub