 |
|
CHÍP CÙNG “DÂN
KẸP GIẤY” |
|
Macro tạo các phân số trong MS Word |
|
Nếu bạn thường xuyên phải đánh các phân số trong
Word, công việc này có thể làm tốn nhiều thời gian
của bạn. Như đã biết, ta có thể sử dụng các trường
(field) để gõ phân số, tuy nhiên, thật khó khăn khi
phải nhớ hết công thức của nó. Vì vậy bạn nên tạo
một macro giúp mình làm việc này. |
|
Trước tiên bạn vào menu Tools\ Macro\ Visual Basic
Editor (Alt + F11). Khi xuất hiện cửa sổ Micrososft
Visual Basic, bạn vào menu Insert\ Module và nhập
đoạn mã sau đây (có thể chép tại www.echip.com.vn). |
Sub InsertFraction()
Dim Tuso As String
Dim Mauso As String
Tuso = InputBox("Ban hay nhap tu so:", "Tu so")
If Tuso <> "" Then
Mauso:
Mauso = InputBox("Ban hay nhap mau so:", "Mau so")
If Mauso = "0" Then
MsgBox "Mau so khong the la gia tri 0 duoc.", ,
"Khong dung"
GoTo Mauso
Else
If Mauso <> "" Then
ActiveDocument.Fields.Add Range:=Selection.Range, _
Type:=wdFieldEmpty, Text:="EQ \f(" & Tuso & ", " &
Mauso & " )", _
PreserveFormatting:=False
End If
End If
End If
End Sub |
|
Nhập xong, nhấn Alt+Q để trở về cửa sổ Word. Mỗi khi
cần tạo các phân số, bạn vào menu Toos\ Macro\
Macros, chọn InsertFraction và nhấn nút Run. Công
việc của bạn là nhập phân số theo hướng dẫn và cuối
cùng bạn sẽ có một phân số theo ý muốn. |
|
LÂM QUANG BÌNH (Hà Nội) |
|
|
|
|
|
|
