Имитировать рукописный текст (для сдачи работы в ВУЗе)

[sguschenka]

Есть преподы в ВУЗе которые требуют рукописные контрольные и курсовые работы.Зачастую они их не читают, а лишь бегло просматривают. Для обмана пользуюсь вот таким макросом и печатаю текст синими чернилами.Однако макрос хотелось бы улычшить
1 сделать так чтобы отступы от левого поля на разных строчках были разными
2 сделать так чтобы иногда некоторые буквы вставлялись от другого рукописного шрифта
3 принимаю все предложения от вас как его еще можно улучшить

Заранее спасибо

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

[bdfy]

))
принтер ведь струйный надеюсь ? там да - похоже не чернила ) еще б бумагу в клеточку ему скармливать )

2 сделать так чтобы иногда некоторые буквы вставлялись от другого рукописного шрифта

а у тебя есть эти самые рукописные шрифты ? я кроме "пушкин" не знаю ничего. а он уж больно красив.

[bdfy]

а шрифт прикольный вопрос какие еще "рукописные" существуют. выходит да - чертофски интересно может фото выложишь - как это на бумаге смотриться ?
и название темы измени - "Имитировать рукописный текст"
из недостатков шрифта :
греческих символов там нет. соответственно формулы разлетаются.
Соответственно задача - найти рукописный шрифт с поддержкой хотя бы греческих символов.
Вот список рукописных шрифтов. вопрос какие из них выглядят как рукописные ?
http://script.font-cat.com/index-ru.html
какие из них греческие символы поддерживают ?
еще подборка.
http://www.lenagold.ru/tool/font/ruko1.html
но опять же много вычурных, слишком красивых

[sguschenka]

Есстесно принтер струйный, шрифт BirchCTT был представлен как образец, на самом деле гораздо больше пользуюсь шрифтом Segoe Script. Он достаточно точно отражает мой почерк. Размер шрифта регулирую в зависимости от того что пишу.

[bdfy]

шрифт BirchCTT был представлен как образец, на самом деле гораздо больше пользуюсь шрифтом Segoe Script

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

[NSvirus]

Я вообще шрифт под свой почерк мастерил. Смастеришь три шрифта под свой почерк и случайно выбирай макросом любой из твоих шрифтов.
Получается: 1) твой почерк. 2) Одинаковые буквы всегда по разному написаны.
Это самый вариант, а распечатывать можно на листах тетрадных, мол черной ручкой писал. )

[bdfy]

Я вообще шрифт под свой почерк мастерил

а поделиться ? сколько вообще интересно стоит заказать шрифт ?

[NSvirus]

Чем поделится? Программа для этого есть специальная, фонт креатор называется. А создание шрифта это работа достаточно нудная и требует нервишек мешок у меня знакомый сейчас этим занимается по безработице

[bdfy]

Чем поделится?

шрифтом вестимо

[Сансей7]

Подскажи, пожалуйста, как применить данный макрос, где и как вводить данные для того, чтоб текст был не идеальным ( т.е. чтоб были разные промежутки между символами, отклонения по сторонам и т.д.)