Оффтоп Печатаем тексты "от руки"

[Lolkelol]

Все ссылки, которые я буду прикреплять ниже - не будут являться рекламой. ( Это я так, на всякий пожарный )

Итак, существует сайт ( который на данный момент в бете ), зайдя на который - вы можете перевести свой текстовый материал в рукописный текст - http://coo.by/writer ( На этом моменте и заканчивается то, что я стянул с другого форума )
Чем мне не понравился сайт, так это тем, что он выдает в конечном итоге картинку.

Что делаю я? Я наверное пару дней гуглил, как лучше и что лучше сделать, для имитации рукописного текста.

1. Я Делаю обычный Копи+паст текста в ворд.
2. Форматирую его, придавая ему более приличный вид.
Поля и т.д.

Спойлер: Тык

3. Далее я меняю шрифт.
4. Тут в дело вступает тяжелая артилерия, а именно - VBS в ворде.
ALT + F11 - открывает Virtual Basic. Туда я вставляю небольшой рандомайзер:

Спойлер: Код

Sub RandomFont()
  Application.ScreenUpdating = False

  Set objDoc = ActiveDocument
  Set objRandom = CreateObject("System.Random")

  Set objRange = objDoc.Range()
  Set colCharacters = objRange.Characters
  For Each strCharacter In colCharacters
      'strCharacter.Font.Reset
      strCharacter.Font.Scaling = 100 + objRandom.Next_2(-50, 50) / 8 'разброс ширины шрифта
      strCharacter.Font.Position = objRandom.Next_2(-200, 300) / 700 'разброс позиции относительно базовой линии
      strCharacter.Font.Size = strCharacter.Font.Size + objRandom.Next_2(-300, 400) / 400 'разброс размеров шрифта
      strCharacter.Font.Kerning = 12 + objRandom.Next_2(-10, 40) / 5 'разброс кернинга
      Select Case objRandom.Next_2(1, 5) 'рандомный шрифт
        Case 1
          strCharacter.Font.Name = "ZimM-1"
        Case 2
          strCharacter.Font.Name = "ZimM-2"
        Case 3
          strCharacter.Font.Name = "ZimM-3"
        Case 4
          strCharacter.Font.Name = "ZimM-4"
      End Select
  Next
  Application.ScreenUpdating = True
End Sub

В коде все написано, что делает.
5. Проверяю текст и печатаю.

------------------------

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

Спойлер: хабр

https://habrahabr.ru/post/127088/

И еще один вариант, не буду копировать его с пикабу полностью -

Спойлер: тьык

http://pikabu.ru/story/konspekt_dlya_lenivyikh_4093825

И еще один сайт с имитацией рукописного текста

Спойлер: тык

http://anuscript.narod.ru/manuscript.html

Надеюсь я вам помог.