| 网站首页 | 数学工具相关 | office软件使用 | 数学试卷 | 数学课件 | 数学教案 | 资源下载 | 请您留言 | 
 
您现在的位置: 数学工具网 >> office软件使用 >> 电脑技术 >> 正文 用户登录 新用户注册
如何将按钮添加到 Word 文档,并将分配其 Click 事件,在运行时           ★★★
如何将按钮添加到 Word 文档,并将分配其 Click 事件,在运行时
如何将按钮添加到 Word 文档,并将分配其 Click 事件,在运行时
作者:microsof… 文章来源:support.microsoft.com 点击数: 更新时间:2014-5-13 9:55:17

下面的步骤说明如何创建一个 Word 将在文档中添加控件并指定在运行时该控件的 Click 事件的宏。该步骤适用于 Word。不过,您可以应用同样的概念,以编程方式操作在 Excel 中的控件的工作簿。

注意该操作 vba 项目的能力的 Microsoft Office 文档,在运行时需要一个引用到 Microsoft Visual Basic 应用程序扩展库。

若要创建示例的步骤

  1. 在 Word 中开始一个新的文档。
  2. 按 Alt + F11 可转到 Visual Basic 编辑器。
  3. 工具 菜单上单击 引用
  4. 应用程序扩展的 Microsoft Visual Basic 中选择引用。
  5. 插入一个新的模块,然后添加下面的代码示例
    Sub Test()
        
        'Add a command button to a new document
        Dim doc As Word.Document
        Dim shp As Word.InlineShape
        Set doc = Documents.Add
        
        Set shp = doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
        shp.OLEFormat.Object.Caption = "Click Here"
        
        'Add a procedure for the click event of the inlineshape
        '**Note: The click event resides in the This Document module
        Dim sCode As String
        sCode = "Private Sub " & shp.OLEFormat.Object.Name & "_Click()" & vbCrLf & _
                "   MsgBox ""You Clicked the CommandButton""" & vbCrLf & _
                "End Sub"
        doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString sCode
            
    End Sub
  6. 运行宏"测试"。
  7. 一旦宏"test"运行完成后,您将看到一个新的 命令按钮 控件,在新文档上。当您单击 命令按钮 控件的的控件将触发 Click 事件。

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    专 题 栏 目
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    没有相关文章
    网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
     

    数学工具版权所有 Copyright © 2015-2020 mathtool.cn. All Rights Reserved .
    浙ICP备15030860号 联系方式 QQ:87735874 E_mail:zhangyongsc@163.com
    欢迎加入数学工具用户群:428656004(加群密码:www.mathtool.cn)