Нужна помощь в word

[Makarushka]

Всем привет, мне нужна помощь. Мне нужно в Word каждую строку из текста сделать разными шрифтами, можно ли это сделать автоматически? Буду благодарен если поможете.

[Mercilaud]

Штатными средствами Word нельзя. Ну, допустим, можно написать скрипт, который это дело автоматизирует. Но в скрипте надо будет прописать, что строке номер такой-то назначается такой шрифт и так по каждой строке. Быстрее и проще вручную назначить. Imho.

[KaldYn]

Не помню, чтобы в Ворде были такие функции, даже в 10-й версии. Может, в более поздних есть, но сомневаюсь. Мне было бы проще вручную менять шрифт в строках.

[SergeyMiller]

Такой функции нет, только вручную или делать копирование. Можно сделать копирование текста разных шрифтов как шаблон и под него печать, если подразумевается дальнейшая печать, а не редактирование текста.

[Teddy_Bear]

Поздновато, конечно. В спячку тянет медведя... Но всё же.

Поставьте курсор в левый верхний угол текста Ворд и запустите макрос (Разработчик Макросы Скопировать текст макроса)

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

Макрос будет по очереди в каждой строке менять шрифт на следующий с списке системных шрифтов.

Макрос меняет строк не более, чем шрифтов в системе. Если надо больше - макрос "обработать напильником".

Edited November 13, 2016 by Teddy_Bear