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ì)話窗口。