WordVBA---ActiveX控件在Word文檔中的使用方法.doc

WordVBA-ActiveX控件在Word文檔中的使用方法當您想要提供一種完善的方式讓用戶與宏直接進行交互、而不受對話框干擾的時候，可以向文檔直接添加ActiveX控件，這如同可以向自定義對話框添加 ActiveX 控件一樣。使用以下過程可以將 ActiveX 控件添加到您的文檔。1、 向文檔中添加控件您可以向文檔的圖形層或文本圖層添加ActiveX 控件。向圖形層添加控件：單擊控件工具箱上的控件。拖動控件的調(diào)整控點，直到控件的輪廓大小和形狀符合要求。向文本層添加控件：請在按住 SHIFT 鍵的同時單擊控件工具箱上的控件。該控件將自動添加到文檔中的插入點。注釋：將一個控件（或一組控件）從窗體拖回控件工具箱，即可創(chuàng)建一個可重復(fù)使用的該控件的模板。這是一個非常有用的功能，能為用戶實現(xiàn)標準的應(yīng)用程序界面。2、 設(shè)置控件屬性在設(shè)計階段（宏運行之前）可以設(shè)置一些 ActiveX 控件的屬性。在設(shè)計模式中，右鍵單擊一個控件并單擊右鍵菜單中的屬性以顯示屬性窗口。屬性名稱顯示在窗口的左欄，而屬性值顯示在右欄?？稍趯傩悦Q的右邊輸入新值來設(shè)置該屬性的值。3、 初始化控件屬性您可以通過在宏中使用 Visual Basic 代碼在運行時初始化ActiveX 控件。例如，您可在其中填充列表框中，設(shè)置文本值或設(shè)置選項按鈕。以下示例使用 Visual Basic 的 AddItem 方法將數(shù)據(jù)添至名為 lstRegions 的列表框，然后設(shè)置文本框的值并顯示窗體。Private Sub GetUserName() With UserForm1 .lstRegions.AddItem North .lstRegions.AddItem South .lstRegions.AddItem East .lstRegions.AddItem West .txtSalesPersonID.Text = 00000 .Show . End With End Sub也可使用窗體的 Visual Basic Initialize 事件中的代碼為窗體上的控件設(shè)置初始值。在 Initialize 事件中設(shè)置控件初始值的好處在于，初始化代碼將保留在窗體中?？梢詫⒋绑w復(fù)制到其他項目，并且當運行 Show 方法顯示對話框時，將初始化控件。Private Sub UserForm_Initialize() With UserForm1 With .lstRegions .AddItem North .AddItem South .AddItem East .AddItem West End With .txtSalesPersonID.Text = 00000 End With End Sub4、 控件和對話框事件在向?qū)υ捒蚧蛭臋n中添加了ActiveX 控件后，應(yīng)添加事件過程以決定控件如何響應(yīng)用戶操作。用戶窗體和控件有一系列預(yù)定義的事件。例如，命令按鈕具有 Click 事件，在用戶單擊命令按鈕時，該事件發(fā)生，用戶窗體具有 Initialize 事件，在加載窗體時，該事件運行。要編寫控件或窗體的事件過程，可雙擊窗體或控件打開一個模塊，然后從過程下拉列表框中選擇事件。事件過程包含控件名稱。例如，名為 Command1 的命令按鈕的 Click 事件過程名稱為 Command1_Click。如果為事件過程添加代碼后更改該控件的名稱，這些代碼仍保留使用原名稱的過程中。例如，假定您為 Commmand1 的 Click 事件添加代碼，然后將該控件重命名為 Command2。在雙擊 Command2 時，將不會在 Click 事件過程中看到任何代碼。您需要將代碼從 Command1_Click 移動至 Command2_Click。為了簡化開發(fā)過程，最好在編寫代碼之前命名控件。5、 運行代碼時使用控件值當運行 Visual Basic 代碼時，您可以為ActiveX 控件設(shè)置并返回某些屬性。下面的示例設(shè)置文本框中的Text屬性為Hello。TextBox1.Text = Hello關(guān)閉窗體時，用戶輸入窗體中的數(shù)據(jù)將會丟失。如果卸載窗體后返回窗體上控件的值，則獲得控件的初始值而不是用戶輸入的值。若要保存輸入窗體中的數(shù)據(jù)，可在窗體運行時將信息保存到模塊級的變量中。以下示例顯示一個窗體，并在卸載窗體前用公共變量保存窗體數(shù)據(jù)。Code in module to declare public variables Public strRegion As String Public intSalesPersonID As Integer Public blnCancelled As Boolean Code in form Private Sub cmdCancel_Click() Module1.blnCancelled = True Unload Me End Sub Private Sub cmdOK_Click() Save data intSalesPersonID = txtSalesPersonID.Text strRegion = lstRegions.List(lstRegions.ListIndex) Module1.blnCancelled = False Unload Me End Sub Private Sub UserForm_Initialize() Module1.blnCancelled = True End Sub Code in module to display form Sub LaunchSalesPersonForm() frmSalesPeople.Show If blnCancelled = True Then MsgBox Operation Cancelled!, vbExclamation Else MsgBox The Salespersons ID is: & _ intSalesPersonID & _ The Region is: & strRegion End If End Sub當控件被添加到文檔之后就能創(chuàng)建可交互的文檔，例如聯(lián)機窗體。在文檔中使用控件時需要注意以下幾點：可以對文本圖層或文檔的圖形層添加 ActiveX 控件。若要向圖形層添加控件，請單擊控件工具箱上的控件。若要向文本層添加控件，請在按住 SHIFT 鍵的同時單擊控件工具箱上的控件。向文本層添加控件是一個InlineShape對象，可以通過InlineShapes集合以編程方式訪問的。向圖形層添加控件是一個Shape對象，可以通過Shapes集合以編程方式訪問的。文本層中的控件被視為字符，可以像字符那樣置于文本的某一行中。在設(shè)計模式下，繪圖層中的 ActiveX 控件只能在頁面視圖或 Web 版式視圖中顯示。如果希望用戶能夠使用 ActiveX 控件但又不改變文檔的版式，可通過單擊窗體工具欄上的保護窗體按鈕來保護文檔。Microsoft Word 實施文檔中ActiveX 控件的LostFocus和GotFocus事件。在過程下拉列表框中列出的其他事件都記錄在 Microsoft 窗體幫助。若要向文檔添加窗體域而非 ActiveX 控件，以創(chuàng)建聯(lián)機窗體，請使用窗體工具欄。文檔中 ActiveX 控件的事件過程中的 Me 關(guān)鍵字引用的是文檔而不是控件。編寫文檔控件的事件代碼與編寫窗體控件的事件代碼很相似。下面的 SpinUp 和 SpinDown 事件過程改變了包含名為SpinButton1的旋轉(zhuǎn)按鈕控件的文檔中名為TextBox1的文本框控件的值。當用戶單擊下面或左側(cè)的旋轉(zhuǎn)按鈕箭頭時，文本框控件的值將減 1；當用戶單擊上面或右側(cè)的旋轉(zhuǎn)按鈕箭頭時，該值將加 1。Private Sub SpinButton1_SpinDown() Me.TextBox1.Value = Me.TextBox1.Value - 1 End SubPrivate Sub SpinButton1_SpinUp() Me.TextBox1.Value = Me.TextBox1.Value + 1 End Sub下面的 Click