Public Points, MPoints, Start, Finish As Integer
Sub IfFinished()
  Dim o As Object
  Dim r As Range
  cnt = 0
  For Each o In ActiveDocument.InlineShapes
    If o.OLEFormat.Object.Enabled Then
      cnt = cnt + 1
    End If
  Next
  If cnt = 0 Then
    Set r = ActiveDocument.Range(Start, Finish)
    ActiveDocument.Unprotect
    r.InsertAfter Str(Points) + " (" + Str(Int(Points / MPoints * 100)) + "%)"
    ActiveDocument.Protect wdAllowOnlyFormFields
    MsgBox "Більше питань немає, можете зберегти або надрукувати весь файл або тільки результат на першій сторінці."
  End If
End Sub