Программа для перевода текста в рукописный вид!
Написана на PHP GD2. Ссылка появится чуть позже.
Можно сделать свой шрифт в ворде, который будет твоим подчерком. В свое время спасался им при написании курсовых ( требовали от руки писать ).
раскрыть ветку (33)
раскрыть ветку (19)
повторяются, но не все. я так думаю, для каждой буквы несколько вариантов написания, которые тупо рандомно подставляются. если только не сидит чувак, который оперативно от руки пишет текст:)
раскрыть ветку (11)
я верю в этого чувака!) он и ссылку не выкладывает, т.к. народ ещё не собрали, штат маленький!
раскрыть ветку (6)
Судя на чем он пишет,он пишет на PHP DevelStudio,там такое реализовать трудновато,но возможно
раскрыть ветку (3)
Вот ссылка на пост для ворда http://pikabu.ru/story/sozdayom_shrift_imitiruyushchiy_rukop...
Ps: Чтоб не так повторялось можно сделать несколько шрифтов
Ps: Чтоб не так повторялось можно сделать несколько шрифтов
раскрыть ветку (2)
Сделать 3 -4 шрифта, и макрос который который для каждой буквы будет выбирать один из вариантов написания. Вот и все
раскрыть ветку (6)
Ребят вы че велосипед изобретаете? какие макросы? какие программы? Давным давно существует формат шрифта opentype который и не такое умеет.
раскрыть ветку (4)
Уже Сделали хуле:
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
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
раскрыть ветку (3)
раскрыть ветку (1)
В любом приложении из пакета MS Office вызываете редактор VBA, например, в Excel комбинация клавиш ALT+F11 откроет редактор Visual Basic. Копипастите и нажимаете F5.
думаю, если сделать в ворде шрифт похожий на мой почерк, то он будет называться "разъярённый псих"
раскрыть ветку (1)
Та же фигня была, требовали от руки писать. Но я забил, и красиво оформлял на компьютере. И приняли без проблем (Препод сделал исключение, так сказать).
