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

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