office_tools 版 (精华区)

发信人: samuel (孔雀翎), 信区: office_tools
标  题: 添加快捷按钮用Word实现“复印”功能
发信站: 哈工大紫丁香 (2002年07月13日22:59:31 星期六), 站内信件

　　一个同事愁眉苦脸地拿着一张表格来请我帮忙，原来这是一张省级先进的呈报表，
只有这么一份，必须一次填好，不允许涂改，没有多余表格备用。可这位老兄不知怎的
，偏偏填错了，省先进呀，千载难逢的好机会啊！你说他急不急！
　　
　　如果能在计算机上模拟一张全新的表格就好了，给Word添加一个1:1全真显示的工具
按钮吧!说做就做，取得了打印结果与屏幕显示对应关系的比例数据后，编写了一个宏命
令。
　　同事的苦恼随之烟消云散，现将方法写出来，或许对大家有所帮助。
　　
　　取得与打印完全一致的屏幕显示比例
　　
　　由于各人使用的显示器尺寸不同及画幅调整的习惯不同，因此在此无法给出一个具
体的数据。请先将显示器的画幅调整妥当，以能够最大限度地显示出完整的全屏幕窗口
为准。找到你要使用的纸型，用尺子量取纸的宽度，精确到毫米。因为标称开本的纸张
，其实际大小并不一定与标称值相同。然后，打开Word新建一空白文档，并设置为"页面
"视图，在［文件］→［页面设置］选定纸型，再将"纸型"选项卡中的纸张宽度设置为精
确值。
　　
　　再以这张纸为依据，确定屏幕显示比例。在［视图］→［显示比例］输入框中反复
手工调整显示比例，系统本身只提供几种固定的比例，其实我们完全可以直接输入任意
一个整数。比如我的17英寸显示器在设置为81%后，屏幕上的页面大小与真实纸张完全一
致，这个"81"就是下一步需要的数据。
　　
　　编写宏命令
　　
　　在Word的编辑界面按［Alt+F8］，打开"宏"对话框，在"宏名"编辑框中输入"全真1
:1显示"，然后单击[创建]按钮，打开Visual Basic编辑器，在代码编辑窗口输入下列代
码：
　　
　　Public Sub全真1:1显示( )
　　
　　ActiveWindow.ActivePane.View
　　
　　Zoom.Percentage=81
　　
　　End Sub
　　
　　注意：Zoom.Percentage的值应灵活更改为与你的显示器对应的真实比例数字。
　　
　　创建1:1全真显示的工具栏按钮
　　
　　按［Alt+V+T+C］，调出工具栏"自定义"对话框，选择"命令/宏"，右边的列表框中
会显示出所有已经存在的宏。找到刚才编辑的那个"全真1:1显示"的宏，将它拖入Word主
界面的工具栏中的任意位置，这时工具栏中会出现一个与宏名对应的按钮，右击新按钮
，在弹出的快捷菜单的"命名"编辑框中更改按钮名称为"1:1"。按[关闭]按钮退出设置。


--
月圆之夜 紫禁之巅 一剑西来 天外飞仙

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