亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

　　1.創(chuàng)建一個(gè)對(duì)話窗口

　　單擊“工具”*“宏”*“Visual Basic 編輯器”，啟動(dòng)Visual Basic 編輯器。單擊其菜單欄上的命令“插入”*“添加用戶窗體”，添加一個(gè)空白用戶窗體，在窗體上添加兩個(gè)標(biāo)簽(Label)、兩個(gè)文本編輯(TextBox)和兩個(gè)命令按鈕(CommandButton)控件，按下表修改它們的屬性。

　　組件 屬性 值

　　userform (命名) frmEnterFraction

　　Caption 輸入分?jǐn)?shù)

　　TextBox1 (命名) tbNumerator

　　Caption 分子表達(dá)式：

　　TextBox2 (命名) tbDenominator

　　Caption 分母表達(dá)式：

　　CommandButton1 (命名) btnOK

　　Caption 確定

　　CommandButton2 (命名) btnCancel

　　Caption 取消

　　然后單擊命令按鈕1(CommandButton1，btnOK)，為其添加一段命令處理程序如下：

　　PRivate Sub btnOK_Click()

　　If tbNumerator.Text <> "" And tbDenominator.Text <> "" Then

　　fractionText = "EQ F(" + tbNumerator.Text + "," + tbDenominator.Text + ")"

　　Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _

　　fractionText, PreserveFormatting:=False

　　End If

　　frmEnterFraction.Hide

　　End Sub

　　單擊命令按鈕2(CommandButton2，btnCancel)，為其添加一段命令處理程序如下：

　　Private Sub btnCancel_Click()

　　frmEnterFraction.Hide

　　End Sub

　　最后給窗體的激活事件(UserForm_Activate)添加如下程序段：

　　Private Sub UserForm_Activate()

　　Load frmEnterFraction

　　End Sub

　　2. 創(chuàng)建調(diào)用該對(duì)話窗口的宏命令

　　單擊Visual Basic編輯器菜單欄上的“插入”*“添加模塊”命令，在代碼編輯窗口輸入如下程序段：

　　Sub EnterFraction()

　　frmEnterFraction.Show

　　End Sub

　　完成上述步驟后，保存整個(gè)工作，切換回Word，就可以使用該宏命令了。

　　3. 使用該宏命令

　　將插入點(diǎn)定位在需要插入分?jǐn)?shù)的位置，單擊“工具”*“宏”*“ 宏”，打開宏對(duì)話窗口，選擇EnterFraction宏并運(yùn)行之，彈出一個(gè)對(duì)話窗口，分別在“分子表達(dá)式”和“分母表達(dá)式”編輯框中輸入分?jǐn)?shù)的分子和分母，單擊“確定”按鈕輸入分?jǐn)?shù)。使用該宏命令插入的分?jǐn)?shù)域，在編輯過程中被當(dāng)作一個(gè)單獨(dú)的編輯單元對(duì)待，大大簡(jiǎn)化了排版的難度。例如：。為了使用方便，你可以將該宏定義在工具欄上，使用時(shí)，只需單擊相應(yīng)工具按鈕就可以打開對(duì)話窗口。