利用Word制作书法字帖

hxhgxy

Word 2007中文版有书法字帖的插件，但是该插件只能设置有限的几种字帖方格大小，而且也只能插入几种字体。虽然该插件的密码已经破解，但是，终究很不灵活。

这段时间恰好在辅导女儿写字，于是一时兴起，制作了本工具。利用该工具，用户可以非常方便地制作自定义格式的书法字帖。制作过程中，得到好友守柔版主提示，特此致谢。

守柔

原帖由 hxhgxy 于 2011-6-19 16:30 发表
Word 2007中文版有书法字帖的插件，但是该插件只能设置有限的几种字帖方格大小，而且也只能插入几种字体。虽然该插件的密码已经破解，但是，终究很不灵活。

这段时间恰好在辅导女儿写字，于是一时兴起，制作了本工 ...

感谢虎兄的大作，非常大气，对话框的设计也是非常中看。

试用了一下，有几个疑问，可能由于时间关系，并未揣磨到虎兄的思路。
A：frmCalligraphy窗体从何处调用？docm格式的文档，要么在doc的基础上，以原来的菜单形式调用该窗体，要么使用customUI.xlm定义Ribbon。一时没找到。
B：对于已设置了的字贴，如果需要调整方格大小时，发现只是删除了方格线条，并未重建？
C：书法是中国的文化艺术（不一定妥当，一时找不到词），是不是把所有西文开头的字体屏蔽了？（Like [A-z,@*]）
D：OK，Cancel也改成中文吧，虽然按钮高度为高一些，但风格上可以一致。
D：貌似基本页眉中的自选图形（线条）的删除，可以简化一下。
Sub DeleteAllAhapes2()
    ThisDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.ShapeRange.Delete
End Sub
E：在我的电脑中，绘制（方格，直线）时，有逐步绘制的感觉，查看了一下源码，ScreenUpdating是关闭的。如果您在实测中也是如此时，可以考虑绘制过程中，先不设置线条颜色，最后一次性设置其颜色（可以是所有直线图形同时设置）。
以上只是我的私见，虎兄有空给看看。

hxhgxy

今天刚到新加坡就上来看看，还是守柔兄给面子：）
我偷懒没有完全制作成加载宏，你所说的这些都客观存在。我过几天回去还改改，不行再向你请教！

hxhgxy

完善的版本。

chaijing

正在为这个烦恼，谢谢了。

PS:说的word里制作字帖插件的密码是多少啊？

chaijing

试用了下感觉不错，有个小小的建议。默认方格布局为12×16，因为是给小朋友练习用的，所以想把一页中的方格数目改少，例如改成方格布局6×8，结果整个字帖缩小到中间，但方格大小没有改变，还是默认的1.5。如果能像WORD2010插件中，利用下拉菜单选择方格布局，并最终布满整个A4纸就更好了。

hxhgxy

方格大小不是可以设置的吗，默认是1.5CM，你可以设置3CM甚至更大啊。

anyingshu

高手，羡慕中。

tangqingfu

谢谢虎版！
不知有没有2003的模板？

guochangjj

非常不错的描红字帖