Makro pro počítání normostran

v programu MS Word 2000 a vyšších

Toto makro po svém spuštění zobrazí počty normostran právě otevřeného dokumentu. Abyste mohli makrem počítat rozsahy jiných dokumentů, než tohoto, je nutno ho zkopírovat do šablony Normal.dot.

Makro jako šablonu (formát *.dot) si můžete stáhnout zde: (makro.zip - 7 KB)

Instrukce pro instalaci

V nabídce "Nástroje - Makro - Makra…" stiskněte tlačítko "Organizátor".
Vyberte kartu Makra.
V levém poli otevřete šablonu "Makro pro normostrany", v pravém "Normal.dot".
Tlačítkem "Kopírovat" zkopírujte makro Normostrany z šablony "Makro pro normostrany" do šablony "Normal.dot".

Makro bude nyní aktivní ve všech dokumentech. Z šablony Normal.dot ho můžete kdykoliv odstranit obdobným postupem: vybráním v poli Normal.dot a stisknutím tlačítka Odstranit.

Pro zkušenější uživatele programů Word a Visual Basic přikládáme i vlastní kód makra:

Dim Normostran As Double
Dim Zahod As Variant
Dim Znaku As Long
Znaku = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)
Normostran = Znaku / 1800
Zahod = MsgBox("Dokument " & Chr(34) & ActiveDocument.Name & Chr(34) & " obsahuje" & _
	Chr(10) & Chr(10) & Znaku & " znaku (včetně mezer), což je:" & Chr(10) & Chr(10) & _ 
	Format(Normostran, "0.00") & " normostran.", , "Informace o dokumentu")