Преглед садржаја
Бројање речи у избору
Овај Ворд ВБА макро бројиће број речи у избору. Ако се не изврши одабир, рачунаће се број речи у целом документу.
Суб ВордЦоунт () 'броји цео документ, а затим Цоунт ворд за избор (ако је нешто изабрано) Дим нВордсЦоунт Ас Лонг Дим нЦхарЦоунт Ас Лонг нВордсЦоунт = АцтивеДоцумент.Ранге.ЦомпутеСтатистицс (вдСтатистицВордс) нЦхарЦоунт = АцтивеДоцумент.Ранге.ЦомпутеСтатистиц Цео документ садржи: "& вбЦрЛф & нВордсЦоунт &" речи и "& вбЦрЛф & _ нЦхарЦоунт &" знакови без размака ",," Број речи "" сада приказује број речи за изабрани текст Иф Селецтион.Вордс.Цоунт> = 1 И Селецтион.Типе вдСелецтионИП Затим нВордсЦоунт = Селецтион.Ранге.ЦомпутеСтатистицс (вдСтатистицВордс) нЦхарЦоунт = Селецтион.Ранге.ЦомпутеСтатистицс (вдСтатистицЦхарацтерс) МсгБок "Изабрани текст садржи:" & вбЦрЛф & нВордс размаци ",," Број речи (избор) "Енд Иф Енд Суб
