Makro pro zobrazení počtu normostran ve Wordu

normostrany.vba

Sub Normostrany()
    Dim Title As String
    Dim CharCount As Long
    Dim Message As String
    Dim Pages As Double

    CharCount = ActiveDocument.BuiltInDocumentProperties("Number of characters (with spaces)")
    Pages = CharCount / 1800#
    
    Title = "Počet normostran"
    Message = LTrim(Format(Pages, "###0.00")) + " normostran"
    MsgBox Message, vbOKOnly, Title
End Sub