Word 2003 使用技巧_技术无忧网 - 技术从此无忧 -- 一站式中文IT技术网站

简介

本文介绍了使用 Word 的一些技巧，这些技巧来自不同的新闻组并经过编辑。对于那些不熟悉新闻组的人，新闻组就是一种论坛，用户和开发人员可以在此处提交与许多技术主题（如 Office 应用程序）相关的各种问题。用户和其他专业人员应答这些问题。目前，新闻组包含丰富的定制信息，以便您使用选择的 Office 应用程序并进行开发。形成这些技巧的答案是许多超级用户和具有最有价值专家 (MVP) 称号的开发人员多年以来的经验结晶。

向 Word 文档中添加按钮并指定运行时的单击事件

本示例演示使用 Microsoft Visual Basic for Applications (VBA) 过程，以编程方式向 Word 文档中添加控件，然后为该控件添加 Click 事件处理程序。

在 Word 中新建一个空白文档。
按 Alt+F11 转到 Visual Basic 编辑器。
单击 Tools，然后单击 References 并选择 Microsoft Visual Basic for Applications Extensibility 引用。

单击 Insert 菜单插入新模块，然后单击 Module。添加以下代码：

Sub AddButton()

    '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

运行“AddButton”过程。
代码运行完成后，可在新建文档中看到一个新的 CommandButton 控件。单击该命令按钮时，其 Click 事件引发，显示一条消息。

在打印文档前显示消息对话框

可以显示消息对话框，以在打印文档前向用户提供信息。例如，可以显示一条消息，告知用户打印文档后在何处选取此文档。为此，请创建一个名为“FilePrint”的宏，它允许您截获打印命令，添加到您自己的对话框中，然后添加可按正常模式打印文档的代码。下面是一些示例代码：

在 Tools 菜单上，指向 Macro，然后单击 Visual Basic Editor。

在代码窗口中键入以下过程：

Sub FilePrint()
    MsgBox "I am printing " + ActiveDocument.Name
    ActiveDocument.PrintOut
End Sub

请注意：必须将宏命名为 FilePrint。

关闭 Visual Basic 编辑器。
单击 File 菜单，然后单击 Print，以打印此文档。

将显示该消息对话框。
单击 OK，关闭对话框并打印文档。

向菜单项中添加命令

您是否曾有这样的愿望：您的用户可以像单击菜单项一样简单地运行宏？按照以下步骤就可实现您的愿望：

单击 Tools，单击 Customize，单击 Toolbars 选项卡，然后选择 Shortcut menus 项。
展开此工具栏上的下拉列表，并找到希望添加此命令的菜单。
接着，移至 Customize 对话框的 Commands 选项卡上，并选择 Macros 类别，然后单击并拖动要移至菜单上的宏。
右键单击该项，并根据需要自定义。.

(责任编辑：admin)

搜索

热门标签: