office_tools 版 (精华区)

发信人: xhc (再见理想), 信区: office_tools
标  题: 用Word的宏功能打印中式信封
发信站: 哈工大紫丁香 (2000年07月13日16:05:05 星期四), 站内信件


Word 97有打印信封的功能，但毕竟是从西文环境下汉化过来的，不符合中国国情。收
信人和寄信人的位置是相反的，反写一下倒凑合了，但不能输入邮政编码就难办了。下
面是用宏打印中式信封的例子，供感兴趣的朋友参考。
　　用Word 97做文字编辑时，通过录制宏，可以把一系列的鼠标和键盘操作记录下来，
需要时，运行该宏就可以了。事实上，Word是以VBA(Visual Basic for Application)语
句的形式记录宏的。为了方便高级用户，Word中包含了VB编辑器。通过对宏的修改、或
者自行编制，用户可以实现更方便、更个性化的功能。
　　在Word环境下按“Alt＋F11”进入Visual Basic编辑器。在“视图”中的“工程资
源管理器”中找到“Normal”工程，并双击其下属的“ThisDocument”项。这时，右侧
会出现代码窗口（见右图）。把下面的代码照抄其中：
　　Sub postcode()
　　Dim x As Single, y As Single
　　x = 32 ′x为邮政编码距左边的距离,每加1向右移动1/28厘米
　　y = 16 ′y为邮政编码距上边的距离,每加1向下移动1/28厘米
　　ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
　　x, y, 189＃, 54.6).Select
　　Selection.ShapeRange.Line.Visible = msoFalse
　　Selection.ShapeRange.LockAnchor = True
　　Selection.Font.Size = 28 ′该数值为字体大小
　　Selection.Font.Spacing = 12 ′该数值为数字之间的间距
　　Selection.TypeText Text:=InputBox(″请输入邮政编码!″)
　　End Sub
 　　按“Ctrl＋S”保存后重启Word。这样，Word就可以打印中国式信封了：填好收信
人栏和寄信人栏（注意反填），然后在选项中选择自定义尺寸(11×17.6)厘米，[确定]
后选择填至文档。调整好收信人栏和寄信人栏，然后在宏中选择“postcode”，执行，
你会发现，邮政编码已经规规矩矩地设置好了。上面的例子适用于最常用的2号普通信封
，如果你用的是其他型号的信封，参照宏中的注释，是不难实现的。
--
          古来进退雍容难!
进则易伤，退则易损，该当如何？难!!

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: dip8.hit.edu.cn]