[求助]求高手挑战－word如何排版出手写效果？？

xc_zzzjjj · 发表于 2007-10-9 21:08

急求高手挑战如下word编程

1、利用随机函数让文档生成不同字号的文字，比如（四号字和三号字之间的大小）。

2、利用随机函数让文档生成不同间距的文字，比如（1磅和2磅的大小）。

3、利用随机函数让文档生成不同位置的文字，比如（1磅提升和降低的差异）。

总之，让word文档看起来不那么工整，像是一个人手写的文章。

（注，手写的字体已经找到并安装，效果很好，只需要让排版看起来不那么工整。）

真诚恳求各位word高手指点挑战！！！！！！！！！！！！！！！

（问题已解决，谢谢各位帮助！！！！！！！！！！！）

h7iQ6ofr.rar (32 KB, 下载次数: 570)

[此贴子已经被作者于2007-10-18 13:07:28编辑过]

konggs · 发表于 2007-10-10 15:22

Sub RandVBA()
    '四号与三号间之间可以取的值：14 14.5 15 15.5 16
    Dim R_Character As Range
    Dim myFontSize As Single
    Application.ScreenUpdating = False
    For Each R_Character In ActiveDocument.Characters
        VBA.Randomize
        myFontSize = Choose(Int(VBA.Rnd * 5) + 1, "14", "14.5", "15", "15.5", "16")
        R_Character.Font.Size = myFontSize
        '位置，同理自己改
        'R_Character.Font.Position = Int(VBA.Rnd * 5) + 1
        '字间距，同理自己改
        'R_Character.Font.Spacing = Int(VBA.Rnd * 5) + 1
    Next
    Application.ScreenUpdating = True
End Sub

'此宏效率较差。

xc_zzzjjj · 发表于 2007-10-13 18:43

谢谢

roadway · 发表于 2007-10-16 15:49

楼主可否共享手写字体？

li6662003 · 发表于 2007-10-17 16:52

如果可以应该很实用的吧，天天用手写教案的日子就可以结束了。

xc_zzzjjj · 发表于 2007-10-17 18:10

方正静蕾简体

xc_zzzjjj · 发表于 2007-10-17 18:10

我已用版主给我的程序搞定了1万字的学习笔记

太感谢版主了

hwbyy · 发表于 2007-10-18 10:12

再错落有致的手写体，打印出来不还是打印的，领导就看不出来？

xc_zzzjjj · 发表于 2007-10-18 13:09

看不出来

sqhsqhli · 发表于 2011-1-19 13:32

原帖由 hope1998 于 2011-1-19 11:05 发表
七楼说已搞定的方法可否分享一下。
请楼主分享手写字体？

你会百度不？静蕾手写

		自动登录	找回密码
密码			免费注册

[求助] [求助]求高手挑战－word如何排版出手写效果？？