1.創建一個對話窗口
單擊“工具”*“宏”*“Visual Basic 編輯器”,啟動Visual Basic 編輯器。單擊其菜單欄上的命令“插入”*“添加用戶窗體”,添加一個空白用戶窗體,在窗體上添加兩個標簽(Label)、兩個文本編輯(TextBox)和兩個命令按鈕(CommandButton)控件,按下表修改它們的屬性。
組件 屬性 值
userform (命名) frmEnterFraction
Caption 輸入分數
TextBox1 (命名) tbNumerator
Caption 分子表達式:
TextBox2 (命名) tbDenominator
Caption 分母表達式:
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. 創建調用該對話窗口的宏命令
單擊Visual Basic編輯器菜單欄上的“插入”*“添加模塊”命令,在代碼編輯窗口輸入如下程序段:
Sub EnterFraction()
frmEnterFraction.Show
End Sub
完成上述步驟後,保存整個工作,切換回Word,就可以使用該宏命令了。
3. 使用該宏命令
將插入點定位在需要插入分數的位置,單擊“工具”*“宏”*“ 宏”,打開宏對話窗口,選擇EnterFraction宏並運行之,彈出一個對話窗口,分別在“分子表達式”和“分母表達式”編輯框中輸入分數的分子和分母,單擊“確定”按鈕輸入分數。使用該宏命令插入的分數域,在編輯過程中被當作一個單獨的編輯單元對待,大大簡化了排版的難度。例如:。為了使用方便,你可以將該宏定義在工具欄上,使用時,只需單擊相應工具按鈕就可以打開對話窗口。