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

WordVBA-ActiveX控件在Word文檔中的使用方法當(dāng)您想要提供一種完善的方式讓用戶與宏直接進(jìn)行交互、而不受對話框干擾的時候，可以向文檔直接添加ActiveX控件，這如同可以向自定義對話框添加 ActiveX 控件一樣。使用以下過程可以將 ActiveX 控件添加到您的文檔。1、 向文檔中添加控件您可以向文檔的圖形層或文本圖層添加ActiveX 控件。向圖形層添加控件：單擊控件工具箱上的控件。拖動控件的調(diào)整控點(diǎn)，直到控件的輪廓大小和形狀符合要求。向文本層添加控件：請?jiān)诎醋?SHIFT 鍵的同時單擊控件工具箱上的控件。該控件將自動添加到文檔中的插入點(diǎn)。注釋：將一個控件（或一組控件）從窗體拖回控件工具箱，即可創(chuàng)建一個可重復(fù)使用的該控件的模板。這是一個非常有用的功能，能為用戶實(shí)現(xiàn)標(biāo)準(zhǔn)的應(yīng)用程序界面。2、 設(shè)置控件屬性在設(shè)計階段（宏運(yùn)行之前）可以設(shè)置一些 ActiveX 控件的屬性。在設(shè)計模式中，右鍵單擊一個控件并單擊右鍵菜單中的屬性以顯示屬性窗口。屬性名稱顯示在窗口的左欄，而屬性值顯示在右欄?？稍趯傩悦Q的右邊輸入新值來設(shè)置該屬性的值。3、 初始化控件屬性您可以通過在宏中使用 Visual Basic 代碼在運(yùn)行時初始化ActiveX 控件。例如，您可在其中填充列表框中，設(shè)置文本值或設(shè)置選項(xiàng)按鈕。以下示例使用 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ù)制到其他項(xiàng)目，并且當(dāng)運(yùn)行 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 事件，在加載窗體時，該事件運(yùn)行。要編寫控件或窗體的事件過程，可雙擊窗體或控件打開一個模塊，然后從過程下拉列表框中選擇事件。事件過程包含控件名稱。例如，名為 Command1 的命令按鈕的 Click 事件過程名稱為 Command1_Click。如果為事件過程添加代碼后更改該控件的名稱，這些代碼仍保留使用原名稱的過程中。例如，假定您為 Commmand1 的 Click 事件添加代碼，然后將該控件重命名為 Command2。在雙擊 Command2 時，將不會在 Click 事件過程中看到任何代碼。您需要將代碼從 Command1_Click 移動至 Command2_Click。為了簡化開發(fā)過程，最好在編寫代碼之前命名控件。5、 運(yùn)行代碼時使用控件值當(dāng)運(yùn)行 Visual Basic 代碼時，您可以為ActiveX 控件設(shè)置并返回某些屬性。下面的示例設(shè)置文本框中的Text屬性為Hello。TextBox1.Text = Hello關(guān)閉窗體時，用戶輸入窗體中的數(shù)據(jù)將會丟失。如果卸載窗體后返回窗體上控件的值，則獲得控件的初始值而不是用戶輸入的值。若要保存輸入窗體中的數(shù)據(jù)，可在窗體運(yùn)行時將信息保存到模塊級的變量中。以下示例顯示一個窗體，并在卸載窗體前用公共變量保存窗體數(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當(dāng)控件被添加到文檔之后就能創(chuàng)建可交互的文檔，例如聯(lián)機(jī)窗體。在文檔中使用控件時需要注意以下幾點(diǎn)：可以對文本圖層或文檔的圖形層添加 ActiveX 控件。若要向圖形層添加控件，請單擊控件工具箱上的控件。若要向文本層添加控件，請?jiān)诎醋?SHIFT 鍵的同時單擊控件工具箱上的控件。向文本層添加控件是一個InlineShape對象，可以通過InlineShapes集合以編程方式訪問的。向圖形層添加控件是一個Shape對象，可以通過Shapes集合以編程方式訪問的。文本層中的控件被視為字符，可以像字符那樣置于文本的某一行中。在設(shè)計模式下，繪圖層中的 ActiveX 控件只能在頁面視圖或 Web 版式視圖中顯示。如果希望用戶能夠使用 ActiveX 控件但又不改變文檔的版式，可通過單擊窗體工具欄上的保護(hù)窗體按鈕來保護(hù)文檔。Microsoft Word 實(shí)施文檔中ActiveX 控件的LostFocus和GotFocus事件。在過程下拉列表框中列出的其他事件都記錄在 Microsoft 窗體幫助。若要向文檔添加窗體域而非 ActiveX 控件，以創(chuàng)建聯(lián)機(jī)窗體，請使用窗體工具欄。文檔中 ActiveX 控件的事件過程中的 Me 關(guān)鍵字引用的是文檔而不是控件。編寫文檔控件的事件代碼與編寫窗體控件的事件代碼很相似。下面的 SpinUp 和 SpinDown 事件過程改變了包含名為SpinButton1的旋轉(zhuǎn)按鈕控件的文檔中名為TextBox1的文本框控件的值。當(dāng)用戶單擊下面或左側(cè)的旋轉(zhuǎn)按鈕箭頭時，文本框控件的值將減 1；當(dāng)用戶單擊上面或右側(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