Download

Macro for calculation of "standard pages"

in MS Word 2000 and higher

Sizes of documents are mostly specified in "standard pages" in the Czech Republic. We are always ready to quote per word, but if you frequently deal with Czech companies, you might find this macro useful.

This macro displays the number of "standard pages" in the currently open file. In order to be able to utilise the macro for other documents, it needs to be copied into the Normal.dot template.

You can download the macro (in *.dot format) here: (macro.zip - 7 kB)

Installation:

  1. Click the "Organiser" button in the "Tools - Macro - Macros..." menu.
  2. Select the Macros tag.
  3. Open the "Standard pages" template in the left field and the "Normal.dot" in the right one.
  4. Use the "Copy" button to copy the "Normostrany" macro from the "Standard pages" template into the "Normal.dot" template.

The macro is now active in all documents opened in MS Word. You can remove it from the "Normal.dot" template any time by similar method: select it in the "Normal.dot" field and click the "Remove" button.

There follows the macro code for advanced users of MS Word and Visual Basic:

Dim Normostran As Double
Dim Zahod As Variant
Dim Znaku As Long
Znaku = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)
Normostran = Znaku / 1800
Zahod = MsgBox("Document " & Chr(34) & ActiveDocument.Name & Chr(34) & " contains" & _
	Chr(10) & Chr(10) & Znaku & " characters (incl. spaces), which is:" & Chr(10) & _ 
	Chr(10) & Format(Normostran, "0.00") & " standard pages.", , "Document info")