Создаём шрифт, имитирующий рукописный почерк

goldh2o

Знающий
Дней с нами
3.556
Розыгрыши
0
Сообщения
169
Репутация
17
Реакции
105
Это нужно ,если вам лень писать лекции и тому подобное,а теперь всё по порядку
1)
можно взять готовый шрифт на сайте --Ссылка удалена--,качаем шрифт
2)
статья из пикабу,всё подробно расписано как создать свой шрифт ссылка
3)
этот скрипт поможет нам изменить текст
1 скрипт
Sub Макрос2()

For k = 1 To 300

'Блок генерации случайных параметров
S = 7 * Rnd + 16 'Размер шрифта от 16 до 23
L = 5 * Rnd + 1 'Длина выделяемого блока от 1 до 6 символов
P = 2 * (Rnd - 0.5) * 2 'Вертикальное отклонение от -2 до +2
D = 2 * (Rnd - 0.5) * 3 'Разрыв между символами от -3 до +3

' Выделение символьного фрагмента
Selection.MoveRight Unit:=wdCharacter, Count:=L, Extend:=wdExtend

' Установка параметров текста
With Selection.Font
.Name = "BirchCTT" ' <---- Рукописный шрифт
.Size = S
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = Red
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = D
.Scaling = 100
.Position = P
.Kerning = 0
.Animation = wdAnimationNone
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Next k

End Sub

Чтобы использовать скрипт в word надо нажать alt f11,у вас открывается окно в этом окне не верху нажимаем module и туда вставляем скрипт ,жмём f5 или стрелку старт
Также вроду существуют подобные сайты
 
а для врачей есть?
 
  • Like
Реакции: ping_0
Японские шрифты
норм, спасибо
1442761.ttf.png
 
норм , я лично вообще не знал, теперь можно на парах вообще ничего не делать
 
  • Like
Реакции: `Rambebool и z3u5