|
|
|
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宏并運行之，彈出一個對話窗口，分別在“分子表達式”和“分母表達式”編輯框中輸入分數的分子和分母，單擊“確定”按鈕輸入分數。使用該宏命令插入的分數域，在編輯過程中被當作一個單獨的編輯單元對待，大大簡化了排版的難度。例如：。為了使用方便，你可以將該宏定義在工具欄上，使用時，只需單擊相應工具按鈕就可以打開對話窗口。
|
|
發表留言請先登錄！
|