После листа "Лист 1" вставить в книгу рабочий лист "Шрифты". VBA

Пользователь

Сообщений: 9 Регистрация: 01.01.1970

30.11.2010 20:52:13

На нем, для каждого из установленных в системе шрифтов вывести:

в столбце А - Порядковый номер шрифта,
в столбце В - Низвание шрифта,
в столбце С - фразу "Hello, world!" данным шрифтом 12 пт
Для столбцов А-C установить автоматический выбор ширины столбца (если приложение вылетает с ошибкой – не обязательно).

Заранее благодарен.

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

30.11.2010 22:20:45

{quote}{login=porrter}{date=30.11.2010 08:52}{thema=После листа "Лист 1" вставить в книгу рабочий лист "Шрифты". VBA}{post}Заранее благодарен.{/post}{/quote}

А что вы заранее-то благодарите?
Действительно думаете, что мы сейчас бросимся решать ваши задачки по учёбе?

У нас халявщиков не любят)
Пока не увидим наработок с вашей стороны - помощи вы не дождётесь.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#3 01.12.2010 06:23:48 для начала без порядковых номеров шрифтов. Прикрепленные файлы post_179662.rar (13.74 КБ)

Hugo Пользователь Сообщений: 26348 Регистрация: 22.12.2012	#4 01.12.2010 09:13:22 Хороша помощь - под паролем :) Там по заданию нужно использовать FontNames из Word.Application В общем, это задание у него уже есть... вытянул :) пытался пошагово научить - может что и осело...

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#5 01.12.2010 09:42:09 проморгал. стояла защита без пароля. убрал защиту с VBA. ПыСы. можно было и не убирать: 1. начать запись нового макроса; 2. остановить запись; 3. сервис - макрос - макросы... - изменить. Прикрепленные файлы post_179684.rar (11.27 КБ)

Читают тему