不启用宏则看不到内容.pdfVIP

不启用宏则看不到内容 在Word 中有时制作好包含宏的文档传送给客户后，因为客户电脑上Word 程序的宏安全性 设置为高，从而导致看不到效果。此时利用下面的方法可以给客户提醒，以便让其知道此文档运 行宏后效果会更好。 288.1 不启用宏友好提醒 在Word 中如果不启用宏，宏代码就不会起作用。假设一篇文档使用的功能必须在启用宏后 方可使用，否则给个“友好”的提示，如图288-1 所示的例子为一份在没有启用宏时的“国家自 然科学基金申请书”文档，文档中显示了“您现在不能……”这样的提示。 图288-1 没有启用宏时的提示 如果启用宏时，则这些提示文字会自动删除，如图288-2 所示。 1 / 4 图288-2 启用宏后的效果 制作这种效果的思路是： 在文档关闭事件中加入将文档的相应文字添加或变成红色的代码。 在文档打开事件中加入将文档的相应文字删除或变成白色的代码。 假设将文档的第三段设置为启用宏时不显示文字，不启用宏时显示为红色的文字。 按Alt+F11组合键打开“Visual Basic 编辑器”窗口，双击“资源管理器窗口”的当前文档 的“ThisDocument ”节点打开右侧“代码窗口”，然后输入如下代码并运行。 Private Sub Document_Close() Me.Paragraphs(4).Range.Font.Color = wdColorRed End Sub Private Sub Document_Open() Me.Paragraphs(4).Range.Font.Color = wdColorWhite End Sub 288.2 强制的提示 对于未启用宏时的提示，有时用户可能会“不予理睬”，因为他们已经能看到文档的内容了。 如果希望用户不启用宏就看不到文档的任何有效内容，方法如下。 按Alt+F11组合键打开【Visual Basic 编辑器】窗口，双击【资源管理器窗口】的当前文档 的“ThisDocument ”节点打开右侧【代码窗口】，然后输入如下代码并运行。 Dim docVar As Variable Dim longPar As Long Dim i As Long 文档打开时运行 Private Sub Document_Open() On Error Resume Next Application.ScreenUpdating = False Dim astring As String 2 / 4 还原到文档 For Each docVar In Me.Variables astring = astring docVar.Value Next 一次性写入文档 ActiveDocument.Range = astring ActiveDocument.Paragraphs.Last.Range.Delete 此处可以设置格式 SetFormat Application.ScreenUpdating = True End Sub 文档关闭时运行 Private Sub Document_Close() On Error Resume Next Application.ScreenUpdating = False 全部删除文档变量 For Each docVar In Me.Variables docVar.Delete Next 创建文档变量，并存为内容 longPar = Me.Paragraphs.Count 取得文档的段落数 For i = 1 To longPar