Sign in to follow this  
Followers 0
Makarushka

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

5 posts in this topic

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

0

Share this post


Link to post
Share on other sites

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

0

Share this post


Link to post
Share on other sites

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

0

Share this post


Link to post
Share on other sites

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

0

Share this post


Link to post
Share on other sites

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

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

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 by Teddy_Bear
0

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0