Увидел я тут тему на форуме, с которого все тянут инфу и сюда скидывают.
Прошелестив поиск - не нашел ее тут. И вот я ее выкладываю, но! Добавляю со своими замечаниями.
Все ссылки, которые я буду прикреплять ниже - не будут являться рекламой. ( Это я так, на всякий пожарный )
Итак, существует сайт ( который на данный момент в бете ), зайдя на который - вы можете перевести свой текстовый материал в рукописный текст - --Ссылка удалена-- ( На этом моменте и заканчивается то, что я стянул с другого форума )
Чем мне не понравился сайт, так это тем, что он выдает в конечном итоге картинку.
Что делаю я? Я наверное пару дней гуглил, как лучше и что лучше сделать, для имитации рукописного текста.
1. Я Делаю обычный Копи+паст текста в ворд.
2. Форматирую его, придавая ему более приличный вид.
Поля и т.д. 
3. Далее я меняю шрифт.
4. Тут в дело вступает тяжелая артилерия, а именно - VBS в ворде.
ALT + F11 - открывает Virtual Basic. Туда я вставляю небольшой рандомайзер:
В коде все написано, что делает.
5. Проверяю текст и печатаю.
------------------------
Если у вас есть больше времени, вы можете свой шрифт сварганить, на хабре есть специальная статья по этому случаю.
И еще один вариант, не буду копировать его с пикабу полностью -
И еще один сайт с имитацией рукописного текста
Надеюсь я вам помог.
Прошелестив поиск - не нашел ее тут. И вот я ее выкладываю, но! Добавляю со своими замечаниями.
Все ссылки, которые я буду прикреплять ниже - не будут являться рекламой. ( Это я так, на всякий пожарный )
Итак, существует сайт ( который на данный момент в бете ), зайдя на который - вы можете перевести свой текстовый материал в рукописный текст - --Ссылка удалена-- ( На этом моменте и заканчивается то, что я стянул с другого форума )
Чем мне не понравился сайт, так это тем, что он выдает в конечном итоге картинку.
Что делаю я? Я наверное пару дней гуглил, как лучше и что лучше сделать, для имитации рукописного текста.
1. Я Делаю обычный Копи+паст текста в ворд.
2. Форматирую его, придавая ему более приличный вид.
Поля и т.д.
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 Sub5. Проверяю текст и печатаю.
------------------------
Если у вас есть больше времени, вы можете свой шрифт сварганить, на хабре есть специальная статья по этому случаю.
И еще один вариант, не буду копировать его с пикабу полностью -
И еще один сайт с имитацией рукописного текста
Надеюсь я вам помог.
Последнее редактирование:
