员工上班要打卡、计件，打印机工作是不是也要“记工”呢？把打印的文件名、打印时间记录下来，可从方便管理员了解打印机的使用情况，这种应用对一些公用电脑显得非常有意义。　　

　　在一般的办公室里，使用打印机最多的非Word莫属，我编写了一个Word宏，当有人打印文档时，宏就被xx并执行，将打印任务记录在一个文本文件中，供管理人员随时查阅。下面介绍实现方法。

　　{dy}步：

　　启动Word，单击菜单[工具]→[宏]→[宏]，在“宏名”框中输入宏名“FilePrint”，单击[创建]按钮。

　　第二步：

　　在弹出的Visual Basic编辑器的代码窗口中完成以下内容：

　　Sub FilePrint()

　　Dialogs(wdDialogFilePrint).Show

　　DName = ActiveDocument.Path + "" + ActiveDocument.Name

　　If ActiveDocument.Path = "" Then DName = "未保存文档"

　　Tim = Str(Date) + "日" + Str(Time)

　　Open "d:\langzi.dat" For Append As #1

　　Print #1, "于" + Tim+ "打印" + DName

　　Close #1

　　End Sub

　　Sub FilePrintDefault()

　　ActiveDocument.PrintOut

　　……(重复上面第3至6行内容)

　　End Sub　

    第三步：

　　录入完成后，单击[保存]按钮，再单击菜单[文件]→[关闭并返回Word]，全部操作完成。

　　上面的代码包含两个宏，{dy}个FilePrint宏在用户执行[文件]→[打印]菜单命令时自动运行，第二个FilePrintDefault宏在用户执行工具栏上的[打印]按钮时自动运行，宏在运行时首先执行正常的打印操作，然后提取所打印文档的路径和文件名，以及当前日期和时间，并将这些数据写入到d:\lanzi.dat文件中(此文件可在代码中修改)。用记事本打开这个记录文件，打印过的文件都详细的记录在案.

用记事本打开这个记录文件，打印过的文件都详细的记录在案（如图）。

      Excel表格是我们工作中经常用到的，而它往往涉及统计数据等敏感问题，因此，Excel表格的保护也是经常遇到的问题，如何安全使用Excel呢？我们常用到的是Excel“工具”菜单提供的“保护工作表”和“保护工作簿”功能。有没有其他方法呢？

    用宏进行“显式”加密

    在需要加密的Excel 表中，点击[工具]→[宏]→[Visual Basic编辑器]，打开“工程资源管理器”，双击该工作表，在右边的是设置该表属性的编辑窗口，单击该窗口左上方的下拉列表框，选择Worksheet，再从该窗口右上方的列表框中选择Activate(xx)（如图）。

 

    添加如下代码：（假设“123”为密码，Sheet1为限制权限表格，Sheet2为工作簿中为任何适合的工作表）

    Private Sub Worksheet_Activate()

    Sheets("sheet1").Cells.Font.ColorIndex = 2 '设置文字颜色为白色

    If Application.InputBox("请输入密码:") = 123 Then

    Range("A1").Select

    ActiveSheet.Cells.Font.ColorIndex = 56' 设置文字颜色为黑色MsgBox "密码错误，即将退出!"

    Sheets("sheet2").Select

    End If

    End Sub

    每次当你选择该“加密”表的时候都会弹出对话框要求输入密码，正确则进入该表（Sheet1），否则会选择其他表（Sheet2）。

    用宏进行“隐式”加密 “显式”加密，虽然可以让没有密码的使用者无法看到“加密”表格，但是每次选择该表格时都会弹出对话框，实在不方便而且给其他用户一种被防范的不舒服感觉。于是笔者就想出了下面的“隐式”加密方法。假如要加密的是Sheet1，我们可以设置在Sheet2的“A1”单元格为密码的输入处。于是修改以上代码如下：

    Private Sub Worksheet_Activate()

    Sheets("sheet1").Cells.Font.ColorIndex = 2'设置文字颜色为白色

    If Sheets("sheet2").Cells(1, 1) = 123 Then

    Range("A1").Select

    ActiveSheet.Cells.Font.ColorIndex = 56' 设置文字颜色为黑色

    End If

    End Sub

    设置好以后，只有Sheet2的（A1）单元格为密码“123”时“加密”表Sheet1的内容才显示出来，否则就是透明的，神不知鬼不觉；所谓“隐式”。

    “隐式”加密虽然保证了没有密码的用户不能查看“加密”表格的内容，但是不能保护其他用户对其进行修改。所以我们要综合运用上面所说的“保护表格”和“隐式加密”对要保密的表格进行设置。

    上面是笔者在实践中综合出来的加密经验，希望能给大家带来方便，也恭候大家的指点交流。  

      大家知道，在Word中，为字符添加的下划线，默认情况下是紧靠字符下方的。能不能调整一下字符和下划线之间的距离呢？答案是肯定的。

    1. 启动Word2003（其它版本请仿照操作），输入字符“分离下划线的制作”。

    2. 选中“下划线”及前后各一个（多个也可以）字符（即“离下划线的”），按“格式”工具栏上“下划线”按钮右侧的下拉箭头，在随后弹出的快捷菜单中，选定一种下划线类型（如“双下划线”等），并通过“下划线颜色”菜单，设置好下划线的颜色。

    3. 选中字符“离”，然后按住Ctrl键，再选中字符“的”（这样操作可以同时选中多处不连续的字符，本操作不支持Word2000及以前的版本），通过下划线颜色选项，将这两个字符的下划线颜色设置为“白色”。

    4. 选中字符“下划线”，执行“格式→字体”命令，打开“字体”对话框，切换到“字符间距”标签下，按“位置”右侧的下拉按钮，在随后弹出的快捷菜单中，选“提升”选项，然后在其右侧“磅值”后面的方框中输入一个数值（这个数值就是分离的距离，此处为了突出这一效果，设置为30磅），确定返回即可。

 

设置下划线颜色

 

设置字体

资料来源:学网(),原文地址:http://www.xue5.com/itedu/200704/17148_2.html