Доњи макро ће приказати листу свих инсталираних фонтова. Белешка! Ако имате инсталирано много фонтова,
макро може престати да реагује због недостатка расположиве меморије. Ако се то догоди, можете испробати
узорак за Ворд касније у овом документу.
Суб СховИнсталледФонтс () Цонст СтартРов Ас Интегер = 4 Дим ФонтНамесЦтрл Ас ЦоммандБарЦонтрол, ФонтЦмдБар Ас ЦоммандБар, тФормула Ас Стринг Дим фонтНаме Ас Стринг, и Ас Лонг, фонтЦоунт Ас Лонг, фонтСизе Ас Интегер фонтСизе = 0 фонтСизеБок = Апплицатион.И Ентер. Величина фонта између 8 и 30 ", _" Изабери величину узорка фонта ", 12,,,,, 1) Ако је фонтСизе = 0 Затим изађите из Суб Ако фонтСизе 30 Затим фонтСизе = 30 Подесите ФонтНамесЦтрл = Апплицатион.ЦоммандБарс (" Форматирање "). ФиндЦонтрол (ИД: = 1728) 'Ако контрола фонта недостаје, креирајте привремену ЦоммандБар Ако ФонтНамесЦтрл није ништа, тада поставите ФонтЦмдБар = Апплицатион.ЦоммандБарс.Адд ("ТемпФонтНамесЦтрл", _ мсоБарФлоатинг, Фалсе, Труе) Подесите ФонтНамесЦтрБ. Фонт Додај (ИД: = 1728) Заврши ако Апплицатион.СцреенУпдатинг = Фалсе фонтЦоунт = ФонтНамесЦтрл.ЛистЦоунт Воркбоокс.Адд 'имена фонтова листе у колони А и пример фонта у колони Б За и = 0 То ФонтНамесЦтрл.ЛистЦоунт - 1 фонтНаме = ФонтНамесЦтрл.Лист (и + 1) Апплицатион.СтатусБар = "Фонт уноса" & _ Формат (и / (фонтЦоунт - 1), "0 %") & "" & _ фонтНаме & "…" Ћелије (и + СтартРов, 1) .Формула = фонтНаме са ћелијама (и + СтартРов, 2) тФормула = " абцдефгхијклмнопкрстуввкиз "Иф Апплицатион.Интернатионал (клЦоунтриСеттинг) = 47 Тада је тФормула = тФормула &" још "Крај ако је тФормула = тФормула & УЦасе (тФормула) тФормула = тФормула =" НектФормула Апплицатион.СтатусБар = Нетачно Ако није ФонтЦмдБар ништа, онда ФонтЦмдБар.Делете Постави ФонтЦмдБар = Ништа није постављено ФонтНамесЦтрл = Ништа 'додај наслове Цолумнс (1) .АутоФит Витх Ранге ("А1") .Формула = "Инсталирани фонтови:" .Фонт.Болд = Труе .Фонт.Сизе = 14 Заврши са опсегом ("А3") .Формула = "Назив фонта:" .Фонт.Болд = Труе. Фонт.Сизе = 12 Заврши са распоном ("Б3") .Формула = " Пример фонта: ".Фонт.Болд = Труе .Фонт.Сизе = 12 Заврши са опсегом (" Б "& СтартРов &": Б "& _ СтартРов + фонтЦоунт). Фонт.Сизе = фонтСизе Заврши са опсегом (" А "& СтартРов &": Б "& _ СтартРов + фонтЦоунт) .ВертицалАлигнмент = клВАл игнЦентер Енд Витх Ранге ("А4"). Изаберите АцтивеВиндов.ФреезеПанес = Труе Ранге ("А2"). Изаберите АцтивеВоркбоок.Савед = Труе Енд Суб