Private Sub UserForm_Activate()
Dim oBM As Bookmark
    With ActiveDocument
        If .Bookmarks.Exists("LJSidor1") = True Then
            Set oBM = .Bookmarks("LJSidor1")
            If oBM.Range.Font.Hidden = True Then
                MsgBox "hidden"
                LJNejKnapp.value = True
            Else
                MsgBox "not hidden"
                LJJaKnapp.value = True
            End If
        Else
            MsgBox "missing"
            LJNejKnapp.value = False
            LJJaKnapp.value = False
        End If
    End With
End Sub