Makarushka

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

5 сообщений в этой теме

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

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

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

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

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

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

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

0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

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

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

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

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

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

Изменено пользователем Teddy_Bear
0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите в него для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас