一个同事愁眉苦脸地拿着一张表格来请我帮忙，原来这是一张省级先进的呈报表，只有这么一份，必须一次填好，不允许涂改，没有多余表格备用。可这位老兄不知怎的，偏偏填错了，省先进呀，千载难逢的好机会啊！你说他急不急！

　　如果能在计算机上模拟一张全新的表格就好了，给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”。按[关闭]按钮退出设置

评论 (0) All

登陆 还没注册？