织梦CMS - 轻松建站从此开始!

技术无忧网 - 技术从此无忧 -- 一站式中文IT技术网站 - www.tech51.net

Word 2003 使用技巧(3)

时间:2009-01-04 14:00来源: 作者: 点击:
创建屏蔽密码的对话框 在 Word 中,您可以使用文本框创建自定义对话框,为用户提供信息。一般情况下,当在文本框中键入文本时,该文本按您键入的方

创建屏蔽密码的对话框

在 Word 中,您可以使用文本框创建自定义对话框,为用户提供信息。一般情况下,当在文本框中键入文本时,该文本按您键入的方式显示。然而,您可以使用 Visual Basic Edition UserForm 的属性来创建隐藏和屏蔽文本框效果。在创建密码对话框(不希望显示在文本框中所键入的文本)时,这很有用。要对此进行测试,请遵循如下操作:

创建对话框

  1. 启动 Word。

  2. Alt+F11 启动 Visual Basic 编辑器。

  3. Insert 菜单上,单击 User Form

  4. 使用“控件”工具箱将文本框和命令按钮添加到您的用户窗体中。

  5. Properties 页的 Object 列表中,单击 TextBox1

  6. Alphabetic 选项卡上,单击 PasswordChar

  7. 键入一个星号 ( * )。

  8. Properties 页上的 Object 列表中,单击 UserForm1

  9. 单击用户窗体将其选定。

  10. Run 菜单上,单击 Run User Form

键入字母时,不会显示键入的字母,而显示此星号。

检索文本的代码示例

要检索写入此文本框中的文本字符串,可以使用以下示例代码:

  1. 在您的用户窗体上双击 CommandButton1

  2. 键入以下代码:

    Private Sub CommandButton1_Click()
        MsgBox Me.TextBox1
    End Sub
    
  3. 单击 Save 保存项目。

  4. Run 菜单上,单击 Run Sub/User Form

  5. 在文本框中键入一个单词,然后单击 Command 按钮。键入的文本显示在消息框中。 

取消/重设文档保护

以下过程取消或重设文档保护:

Sub ProtectIt(ProtectType)
    If ProtectType <> wdNoProtection Then
        If ActiveDocument.ProtectionType = wdNoProtection Then
            ActiveDocument.Protect Type:=ProtectType, NoReset:=True,
Password:="My_PassWord"
        End If
    End If
End Sub
Function UnprotectIt()
    wasLocked = ActiveDocument.ProtectionType
    If ActiveDocument.ProtectionType <> wdNoProtection Then
        ActiveDocument.Unprotect "My_Password"
    End If
    UnprotectIt = wasLocked
End Function

要在代码段中使用它,请尝试以下操作:

' First unprotect the document.
ProType = UnprotectIt()
' Here goes the code to be done in the unprotected document
' then lock it back up.
ProtectIt ProType 

小结

本文介绍了在 Word 中使用的一些技巧和 VBA代码。通过使用这些步骤并根据需要进行修改,可以使您的应用程序更加可靠,并为您的用户提供更多的选择。

(责任编辑:admin)
织梦二维码生成器
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片