Makarushka Опубликовано 3 октября, 2016 Жалоба Поделиться Опубликовано 3 октября, 2016 Всем привет, мне нужна помощь. Мне нужно в Word каждую строку из текста сделать разными шрифтами, можно ли это сделать автоматически? Буду благодарен если поможете. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Mercilaud Опубликовано 3 октября, 2016 Жалоба Поделиться Опубликовано 3 октября, 2016 Штатными средствами Word нельзя. Ну, допустим, можно написать скрипт, который это дело автоматизирует. Но в скрипте надо будет прописать, что строке номер такой-то назначается такой шрифт и так по каждой строке. Быстрее и проще вручную назначить. Imho. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
KaldYn Опубликовано 3 октября, 2016 Жалоба Поделиться Опубликовано 3 октября, 2016 Не помню, чтобы в Ворде были такие функции, даже в 10-й версии. Может, в более поздних есть, но сомневаюсь. Мне было бы проще вручную менять шрифт в строках. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
SergeyMiller Опубликовано 3 ноября, 2016 Жалоба Поделиться Опубликовано 3 ноября, 2016 Такой функции нет, только вручную или делать копирование. Можно сделать копирование текста разных шрифтов как шаблон и под него печать, если подразумевается дальнейшая печать, а не редактирование текста. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Teddy_Bear Опубликовано 13 ноября, 2016 Жалоба Поделиться Опубликовано 13 ноября, 2016 (изменено) Поздновато, конечно. В спячку тянет медведя... Но всё же. Поставьте курсор в левый верхний угол текста Ворд и запустите макрос (Разработчик Макросы Скопировать текст макроса) Sub Макрос1() kmax = FontNames.Count ' Количество доступных шрифтов For k = 1 To kmax Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 'Выделить строку со сдвигом на одну строку вниз Selection.Font.Name = FontNames.Item(k) 'Изменить выделенную строку очередным шрифтом из списка Selection.MoveDown Unit:=wdLine, Count:=1 'Сдвинуться вниз на строку, чтобы пропало выделение Selection.MoveUp Unit:=wdLine, Count:=1 'Вернуться вверх на строку Next k End Sub Макрос будет по очереди в каждой строке менять шрифт на следующий с списке системных шрифтов. Макрос меняет строк не более, чем шрифтов в системе. Если надо больше - макрос "обработать напильником". Изменено 13 ноября, 2016 пользователем Teddy_Bear Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.